Click here to Skip to main content
15,905,414 members

Comments by ggoutam7 (Top 3 by date)

ggoutam7 4-Oct-12 2:59am View    
Yes. Thank you.
ggoutam7 4-Oct-12 2:17am View    
Hello,

Thank you. It can work now.
Modified code as below :

<pre lang="vb"> Public Sub InsertFile()
Dim sMainFolder As String = "D:\Project"
Dim conAccess As Data.OleDb.OleDbConnection
Dim commSQL As Data.OleDb.OleDbCommand = New Data.OleDb.OleDbCommand()
Dim bytImage As Byte()
Dim QueryParameter As New Data.OleDb.OleDbParameter
QueryParameter.DbType = Data.DbType.Binary

Try
If Me.fulFileUpload.HasFile = True Then
bytImage = Me.fulFileUpload.FileBytes
QueryParameter.Value = bytImage

conAccess = New Data.OleDb.OleDbConnection
conAccess.ConnectionString = "File Name=" & sMainFolder & "\" & "Project.udl"
conAccess.Open()
commSQL.Connection = conAccess
commSQL.CommandText = "INSERT INTO [PICS] ([IMAGE]) VALUES (?)"

QueryParameter = commSQL.Parameters.Add("@bytImage", Data.OleDb.OleDbType.Binary)

commSQL.ExecuteNonQuery()
conAccess.Close()
commSQL.Dispose()
End If
Catch ex As Exception

End Try
End Sub
</pre>

Thank you,
~ Goutam
ggoutam7 4-Oct-12 1:40am View    
Thank you.
I removed that extra bracket and still have the error.