Sub ReadBlob
Private ImageView1 As ImageView
Cursor1 = SQL1.ExecQuery2("SELECT image FROM stuff WHERE name = ?", Array As String("name"))
Cursor1.Position = 0
Dim Buffer() As Byte
Buffer = Cursor1.GetBlob("image") ' Error = CursorIndexOutOfBoundsException: Index 0 requested, with a size of 0
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(Buffer, 2, Buffer.Length)
Dim Bitmap1 As Bitmap
Bitmap1.Initialize2(InputStream1)
InputStream1.Close
ImageView1.SetBackgroundImage(Bitmap1)
ImageView1.Color=Colors.Cyan ' Color does NOT appear
' If Cursor1.RowCount < 5 Then ' Msgbox does NOT appear with 3 images in the db.
If Cursor1.RowCount > 0 Then ' Msgbox does NOT appear with 3 images in the db.
Msgbox("any Rows", "what")
End If
End Sub