aaaayuda con insertar imágenes en VB 6

[jcl]

Hola,

Creo que me olvidé de darte la otra parte del código para recuperar la imagen desde la DB.

Es algo así (Mensaje Editado):


Public Sub LoadFromDB(ByRef picObj)
On Error Resume Next
Dim Cnn1 as ADODB.Connection
Dim rs As ADODB.Recordset
Dim fds As ADODB.Stream
Set fds = New ADODB.Stream
fds.Type = adTypeBinary
fds.Open

Kill "C:\ImageTemp.jpg" '<<= un lugar temporal para la imagen

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

fds.Write rs.Fields("A_Image").Value
fds.SaveToFile "C:\ImageTemp.jpg", adSaveCreateOverWrite
Set picObj.Picture = LoadPicture("C:\ImageTemp.jpg")

'Suponiendo que tienes un objeto Picture "picObj" en algun Form.

Set rs = Nothing
fds.Close
Set fds = Nothing
End Sub



Saludos.