| Pregunta: | 5313 - COMO GUARDO UNA IMAGEN EN MYSQL CON VB60 |
| Autor: | gerardo munoz |
| que tengo que hacer para guardar una imagen en base de datos mysql (¿si es que se puede?) montado sobre windows 9X y un odbc, estoy trabajando con vbasic 6.0 nesesito el tipo de campo y el procedimiento. gracias | |
| Respuesta: | Edwin Amado Corzo |
| Primero que todo el tipo de dato tiene que ser "Image", y el proceso para almacenar la imagen es el siguiente:
Public Sub LetPicture(f As Field, pic As PictureBox) On Error Resume Next Dim x() As Byte Dim n As Long Dim ff As Integer SavePicture pic.Picture, "pic" ff = FreeFile Open "pic" For Binary Access Read As ff n = LOF(ff) If n Then ReDim x(n) Get ff, , x() f.AppendChunk x() Close ff End If Kill "pic" End Sub Call LetPicture(adoAspi.Recordset("foto"), pbFoto) pbFoto es el nombre del objeto en el formulario que tiene la imagen Espero te sea de ayuda el código, cualquier duda me la puedes enviar por email.. | |