este codigo toma una direccion de imagen y la almacena en tu tabla
primero debes ingresar el registro dejando el campo imagen NULL
para leerlo se hace normalmente con un select almacenandolo en un control IMAGE o PICTURE BOX
Public Sub InsertImage(sql As String, lsruta As String)
''''REQUERIMIENTO''''''''''
'en la variable sql, el campo imagen seleccionado debe tener el nombre de IMAGEN
'ejemplo
' select imagen from tabla, de lo contrario cambiar la palabra imagen de esta funcion
' select campo as imagen from tabla
'''''''''''''''''''''''''''''''''''''''''''''''''''
Dim RecSet As New Recordset
Dim lnNumero
Dim fl As Long, i As Long
Dim fragment As Long
Dim Chunks
Dim varChunk() As Byte
RecSet.Open sql, V_cDSN, adOpenKeyset, adLockOptimistic
If RecSet.EOF Then
RecSet.AddNew
End If
lnNumero = FreeFile
Open lsruta For Binary Access Read As lnNumero
fl = LOF(lnNumero) ' Longitud de los datos en el archivo
If fl = 0 Then Close lnNumero: Exit Sub
Chunks = fl \ 16384
fragment = fl Mod 16384
RecSet!Imagen.AppendChunk Null
ReDim varChunk(fragment)
' se toma un trozo del tamaño necesario
Get lnNumero, , varChunk()
RecSet!Imagen.AppendChunk varChunk()
ReDim varChunk(16384)
For i = 1 To Chunks
Get lnNumero, , varChunk()
RecSet!Imagen.AppendChunk varChunk()
Next i
Close lnNumero
RecSet.Update
RecSet.Close
End Sub
