Bueno lo prometido es deuda, tras unos dias de desfase total xD
aqi teneis ya el codigo de como subir una imagen a una base de datos mysql (o la que sea) y además el como mostrarla, utilizo DataTable tipados, que facilitan muy mucho la labor de manejar la base de datos.
Codigo de Subida:
Código:
'Data Table instanciado en el load (Me.dtToma, BD de prueba).
'Indico la imagen con un dialogo, comprobando que se selecione algun fichero
' El filtro sera: (.JPG)|.JPG (en mi caso).
IfMe.dlgImagen.ShowDialog() = Windows.Forms.DialogResult.OK AndAlsoMe.dlgImagen.FileName IsNotNothingThen
'Creo una nueva fila y la instancio (dandole ademas la estructura de los campos)
Dim drToma As tomaRow = Me.dtToma.NewtomaRow
If IsDBNull(Me.dtToma.Compute("MAX(ID)", "")) Then
drToma.ID = 1
Else
drToma.ID = Me.dtToma.Compute("MAX(ID)", "") + 1
EndIf
'Convierto la imagen a BYTE's y se la asigno al campo de la BD que sea del tipo BLOB (o su hermano mayor -LONGBLOB-
drToma.ima = System.IO.File.ReadAllBytes(Me.pctImagen.ImageLocation)
'A¤ado la fila a la tabla.
Me.dtToma.AddtomaRow(drToma)
Dim sError AsString
'Guardo la tabla.
sError = GuardarToma(Me.dtToma)
If sError <> ""Then
MessageBox.Show(sError)
EndIf
EndIf
Código de Muestreo:
Código:
IfMe.ListBox1.SelectedItem IsNotNothingThen
Dim imag AsNew ImageConverter
Dim drToma As tomaRow = Me.dtToma.FindByID(Me.ListBox1.SelectedValue)
'Convierto los byte's a tipo imagen con el control ImageConverter
Me.PictureBox1.Image = imag.ConvertFrom(drToma.ima)
EndIf