VB6.0 archivo de imagen de Mysql
Hola, necesito ayuda, quiero guardar una imagen blob (como archivo) que se encuentra en mysql desde vb6.0. Conseguí un código pero me marca error. ¿Qué puede ser?... Este es el código:
Dim rsconsulta As ADODB.Recordset 'consulta a la tabla tmppv
Dim cmdconsulta As ADODB.Command
Dim mystream As New ADODB.stream
Set mystream = New ADODB.stream
Set cmdconsulta = New ADODB.Command
Set cnn = New ADODB.Connection
conexion
If cnn.State = 1 Then cnn.Close
cnn.Open
mystream.Type = adTypeBinary
With cmdconsulta
.ActiveConnection = cnn
.CommandText = "Select * from ima where clave='1'"
.CommandType = adCmdText
Set rsconsulta = .Execute()
End With
mystream.Open
mystream.Write (rsconsulta.Fields("zonas").Value)
mystream.SaveToFile "c:\newimage.gif", adSaveCreateOverWrite
mystream.Close
rsconsulta.Close
cnn.Close
Gracias
Dim rsconsulta As ADODB.Recordset 'consulta a la tabla tmppv
Dim cmdconsulta As ADODB.Command
Dim mystream As New ADODB.stream
Set mystream = New ADODB.stream
Set cmdconsulta = New ADODB.Command
Set cnn = New ADODB.Connection
conexion
If cnn.State = 1 Then cnn.Close
cnn.Open
mystream.Type = adTypeBinary
With cmdconsulta
.ActiveConnection = cnn
.CommandText = "Select * from ima where clave='1'"
.CommandType = adCmdText
Set rsconsulta = .Execute()
End With
mystream.Open
mystream.Write (rsconsulta.Fields("zonas").Value)
mystream.SaveToFile "c:\newimage.gif", adSaveCreateOverWrite
mystream.Close
rsconsulta.Close
cnn.Close
Gracias
Respuesta de Roberto Alvarado
1