Ver Mensaje Individual
  #2 (permalink)  
Antiguo 21/11/2008, 02:46
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses
Puntos: 37
Respuesta: Guardar Imagenes desde vb6 a mysql 3

Cita:
Iniciado por godye Ver Mensaje
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