hola tambien estoy trabajando con imagenes en SQL
una consulta como insertas y actualisas el binario del SQL en VB6
' DestinationFile = ese es el origen de la foto ej c:\foto.jpg
yo lo normal coloco una variable String y executo sin embargo lo que encontre
fue
'parte del codigo
Dim Rs As New ADODB.Recordset '
Dim mystream As New ADODB.Stream ' stream fotos
Dim Direc As String ' foto temporal
'*********************************
StrSQL = "Select * From FOTOGRAFIA_SQL where run = '" & Trim(nombre) & " ' "
Rs.Open StrSQL, Cn, adOpenStatic, adLockOptimistic
Direc = App.path & "& nombre &".jpg" ' directorio temporal
mystream.Type = adTypeBinary
If Rs.BOF = False Then
Previsualizar
End If
Rs.AddNew
mystream.Open
mystream.LoadFromFile DestinationFile
Rs("nombre") = Trim(nombre)
Rs("foto") = mystream.Read
Rs.Update
mystream.Close ' Cerrar Stream
Rs.close
'*********************************
Private Sub Previsualizar()
On Local Error Resume Next ' por si surge alguno error
mystream.Open ' abrimos el stream
mystream.Write Rs!foto ' leemos la imagen
mystream.SaveToFile Direc, adSaveCreateOverWrite ' guardamos la imagen en unestro directorio temporal
mystream.Close ' cerramos el stream
' aca yo recupero la foto en forma fisica la que esta en la base de datos
FotoDB.Picture = LoadPicture(Direc) ' previsalizamos la imagen en nuestro picture
control
End Sub
'*********************************
el problema lo tengo al actualizar
tambien estoy reconstruyendo la foto aun no tengo problema ...igual se que esta el tema de la memoria si queres reconstruit todas las fotos a la vez
en .NET esta hecho sin embargo me lo pidieron para vb6
[email protected]