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 05/12/2007 23:54:50
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

vb6+mysql+campos+longblob

Publicado por pigmeo (1 intervención) el 23/10/2012 01:08:17
mystream.Write (rs.Fields("image").Value)
mystream.SaveToFile "c: emp.jpg", adSaveCreateOverWrite
el error se encuentra en esta linea
mystream.Write (rs.Fields("image").Value)
mystream.SaveToFile "c:\temp.jpg", adSaveCreateOverWrite
si muestra la ubicacion del archivo como c: sin el "\" muestra un error de acceso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar