Public Sub SelectOneImagen(Id As Int) As Bitmap
Dim cursor As Cursor
' Dim data As Mascota
' data.Initialize()
cursor = Sql.ExecQuery2("SELECT Image FROM IMG WHERE ID = ?", Array As String(Id))
If cursor.RowCount > 0 Then
cursor.Position = 0
Dim ImageData() As Byte
ImageData = cursor.GetBlob("Image")
' Convierte el array de bytes en un Bitmap
Dim In As InputStream
In.InitializeFromBytesArray(ImageData, 0, ImageData.Length)
Dim bmp As Bitmap
bmp.Initialize2(In)
In.Close
Log("Se encontró la imagen con ID " & Id)
cursor.Close
Return bmp
Else
cursor.Close
Log("No se encontró la imagen con ID " & Id)
Return Null
End If
' cursor.Position = 0
' Dim ImageData() As Byte
' ImageData = cursor.GetBlob("Image")
'
' Dim In As InputStream
' In.InitializeFromBytesArray(ImageData, 0, ImageData)
' Dim bmp As Bitmap
' bmp.Initialize(In)
' In.Close
' Return bmp
End Sub