Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: afede19 en Septiembre 13, 2022, 10:04:18 pm
-
Buenas, les consulto a los que saben
Tengo que guardar una imagen en mysql, tengo una tabla con el campo BLOB (que es para imagen),
No se como se podrá guardar una imagen en un registro.
Mil Gracias
-
Hola no se mucho del tema pero no tienes que guardar el Array de bits de la imagen?, si es asi lo que tienes que hacer cuando selecionas una imagen para cargar en un objeto imagen o picture , guardas la ruta de la imagen para tambien leer el array de bits y ese array de bits es el que guardas en el campo BLOB
puedes usar esta simple función.
Private Function GetFileArray(sFileName As String) As Byte()
On Error GoTo e
Dim FF As Integer
FF = FreeFile
Open sFileName For Binary As #FF
ReDim GetFileArray(LOF(FF) - 1)
Get #FF, , GetFileArray
Close #FF
e:
End Function
-
Buenas, te comento tengo algo de esto, pero no se si esta bien. (soy medio bruto)
'abro la base de datos
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=odbcimagen;uid=root;pwd=;database=imagen;"
Set adoPrimaryRS = New Recordset
'
adoPrimaryRS.Open "select IDPersonas,docnro,imagen from personas WHERE docnro = '" & valorNroDocumento & "'", db, adOpenStatic, adLockOptimistic
'.....................................
'agregar el registro
txtFields(1).Text = text1.Text 'el Nro de Documento
Picture1.Picture = LoadPicture(App.Path & "\foto.jpg") 'imagen
adoPrimaryRS.Update
'-------------------------------------
MYSQL
imagen Blob
Es como lo tengo.
Mil gracias