I wrote this snippet of code. But it didn't work.

Shortly how to insert image field type data into SQL database from ADO?

Thanks in advance.



Dim FileNumber

Dim FileBuffer(1050000) As Byte

Dim temp As Variant

Dim fl As Long                   'Used to store file length

      

Private Sub GetFile_Click()

    FileNumber = FreeFile

    fl = FileLen(CommonDialog1.FileName)

    Open CommonDialog1.FileName For Binary As #FileNumber

    Get #FileNumber, , FileBuffer

    Close #FileNumber

End Sub



Private Sub GetFileName_Click()

    CommonDialog1.ShowOpen 

End Sub



Private Sub StoreImageFileIntoLocalFile_Click()

    objRec.Source = "Select f_Name, f_File from Subject where f_ID = 19"

    objRec.Open

FileNumber = FreeFile

    Open "C:\rem.txt" For Binary Access Write As #FileNumber

    'Text1.Text = Input(LOF(FileNumber), FileNumber)

    temp = objRec.Fields(1).GetChunk(1050000)

    Put #FileNumber, , temp

    'Put #FileNumber, , objRec.Fields(1).Value

    Close #FileNumber

    If objRec.Fields(1).Attributes = adFldLong Then

        Text1.Text = "Yes"

    Else

        Text1.Text = "No"

    End If

End Sub



Private Sub InsertIntoImageField_Click()

    objComm.CommandType = adCmdText

    objComm.CommandText = "INSERT INTO Subject (f_Lecture_ID, f_Name, 

f_File) VALUES (1, 'rrr', ?)"

    Set objParam = objComm.CreateParameter

    objParam.Name = "Parameter1"

    objParam.Type = adVarBinary

    objParam.Attributes = adParamLong

    temp = FileBuffer

    objParam.Size = fl                    'FileLen

    objParam.AppendChunk temp

    objComm.Parameters.Append objParam

    objComm.Execute

End Sub

I wrote this snippet of code. But it didn't work.

Shortly how to insert image field type data into SQL database from ADO?

Thanks in advance.



Private Sub InsertIntoImageField_Click()

Dim FileNumber

Dim FileBuffer(1050000) As Byte

Dim temp As Variant

Dim fl As Long



    FileNumber = FreeFile

    fl = FileLen(CommonDialog1.FileName)

    Open CommonDialog1.FileName For Binary As #FileNumber

    Get #FileNumber, , FileBuffer

    Close #FileNumber



    objComm.CommandType = adCmdText

    objComm.CommandText = "INSERT INTO Subject (f_Lecture_ID, f_Name, 

f_File) VALUES (1, 'rrr', ?)"

    Set objParam = objComm.CreateParameter

    objParam.Name = "Parameter1"

    objParam.Type = adVarBinary

    objParam.Attributes = adParamLong

    temp = FileBuffer

    objParam.Size = fl                    'FileLen

    objParam.AppendChunk temp

    objComm.Parameters.Append objParam

    objComm.Execute

End Sub