Guardar Imagenes desde vb6 a mysql 3

[godye]

Estimados todos soy nuevo en el foro estoy buscando informacion de como guardar imagenes en una base de datos de mysql desde visual basic 6.0 si alguien me puede ayudar le quedare eternamente agradecido

[Avellaneda]

Iniciado por godye

Estimados todos soy nuevo en el foro estoy buscando informacion de como guardar imagenes en una base de datos de mysql desde visual basic 6.0 si alguien me puede ayudar le quedare eternamente agradecido

Hola, puedes utilizar un procedimiento como este (Referenciar ADO)

Código:

Private Sub GuardarImagen(sRuta As String, rst As ADODB.Recordset)
Dim b() As Byte
Open sRuta For Binary As #1
ReDim b(FileLen(sRuta))
Get #1, , b
Close #1
rst.AddNew
rst.Fields("CampoBLOB").AppendChunk b
rst.Update
End Sub

"CampoBLOB" es el nombre del campo imagen.

Para llamarlo:

GuardarImagen "C:\Mis imagenes\LaImagen.jpg", MiRecordset

[godye]

Gracias por tu ayuda lo voy a probar hoy y te cuento como quedo