| 'The following listings demonstrate how to update binary data in an OLE object field without using the GetChunk or AppendChunk methods. Sub ADOUpdateBLOB() Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim rgPhoto() As Byte ' Open the connection cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=.\NorthWind.mdb;" ' Open the recordset rst.Open "SELECT Photo FROM Employees ", cnn, adOpenKeyset, adLockOptimistic ' Get the first photo rgPhoto = rst.Fields("Photo").Value ' Move to the next record rst.MoveNext ' Copy the photo into the next record rst.Fields("Photo").Value = rgPhoto ' Save the changes you made to the current record in the Recordset rst.Update ' Close the recordset rst.Close End Sub |
Update BLOB |
India web developer web development India | Freelance web development ecommerce web developer | Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design