aaaayuda con insertar imágenes en VB 6

[jcl]

Hola,

Trata de cortar y pegar el siguiente código, a mi me funciona. Sólo debes ajustar algunos valores, de acuerdo con tu realidad:

Public Sub StoreToDB(ByRef FilePath, ByRef ImgDec)
On Error Resume Next
Dim Cnn1 as ADODB.Recordset
Dim rs As ADODB.Recordset
Dim fds As ADODB.Stream
Set fds = New ADODB.Stream
fds.Type = adTypeBinary
fds.Open

Set Cnn1 = New ADODB.Recordset
Cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; ... bla, bla, bla"

Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM images", Cnn1, adOpenKeyset, adLockOptimistic

'Load File
fds.LoadFromFile FilePath
rs.AddNew
rs!MyPath = FilePath
rs!Description = ImgDec '<-- Esta es la descripción de mi imagen
rs!A_Image = fds.Read
rs.Update
'...clean up objects ect.
If rs.State = adStateOpen Then
rs.Close
End If
Set rs = Nothing
fds.Close
Set fds = Nothing
End Sub


Esto supone una DB con los campos MyPath (string), Description (string), A_Image (Objeto OLE).

FilePath contendrá la ruta completa de ubicación de tu imagen.

La solucion que da RootK es bastante eficiente y económica.

Saludos.