Private Sub ScriviCampoOle(sPictFile As String) Dim lSize As Long Dim lOffset As Long Dim bytChunkData() As Byte Dim iFileNum As Integer iFileNum = FreeFile Open sPictFile For Binary As #iFileNum ReDim bytChunkData(FileLen(sPictFile)) Get #iFileNum, , bytChunkData Close #iFileNum 'Inserisco il record nel rs temporaneo adoRsTmp.Fields("natOleImg").AppendChunk bytChunkData adoRsTmp.Update End Sub |