Visual Basic - vb6+mysql+campos+longblob

Life is soft - evento anual de software empresarial
   
Vista:

vb6+mysql+campos+longblob

Publicado por joel (4 intervenciones) el 06/12/2007 21:53:10
hola a todos tengo un problema quiero mostrar una imagen que se encuentra en un campo de tipo longblob en vb6.0 pero me sale un error aqui les dejo el codigo haber si me ayudan :

Private Sub Grid_Click()
On Error GoTo control
codigo = Val(Grid.Columns(0).Value)

If codigo > 0 Then
Dim sql As String
sql = "select * from files where file_id=" & Val(codigo) & ""

rs.Open sql, CONEXION, adOpenKeyset, adLockOptimistic

mystream.Type = adTypeBinary
mystream.Open

mystream.Write (rs.Fields("image").Value)
mystream.SaveToFile "c: emp.jpg", adSaveCreateOverWrite

Image1.Picture = LoadPicture("c: emp.jpg")

mystream.Close
rs.Close
End If
Exit Sub
control:
MsgBox "error : " & Err.Description & " - " & Err.Number
End Sub

Me arroja el Error : -2147217865

** espero de su ayuda bye *******
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder