I'm trying to (1) store an image in a database, and (2) fetch that image from the database and display it.
The 'fetch and display' routine:
produces an error:
'File opened that is not a database file
file is encrypted or is not a database
Continue?'
The 'capture' routine:
produce an error:
'File opened that is not a database file
near 'WHERE': syntax
error
Continue?'
The entire program follows:
(the 'camera' object is from dz's camera capture library; 'con' and 'cmd' are SQL library objects)
I'm slowly losing my mind in my old age; does anyone see what I'm doing wrong?
Gary
:sign0085:
The 'fetch and display' routine:
B4X:
Sub btnShow_Click
cmd.CommandText = "SELECT photodata FROM photos"
reader.Value = cmd.ExecuteReader
reader.ReadNextRow
Form1.Image = reader.GetImage(0)
End Subproduces an error:
'File opened that is not a database file
file is encrypted or is not a database
Continue?'
The 'capture' routine:
B4X:
Dim img
pfn = camera.GetImage( 640, 480, 0, "Form1", "Camera" )
Msgbox( pfn )
If pfn <> "" Then
query = "REPLACE INTO photos ( id, photodata ) VALUES ( 1, " & cmd.FileToBLOB( pfn ) & " ) WHERE ( id = 1 )"
cmd.CommandText = query
cmd.ExecuteReader
End If
End Subproduce an error:
'File opened that is not a database file
near 'WHERE': syntax
error
Continue?'
The entire program follows:
(the 'camera' object is from dz's camera capture library; 'con' and 'cmd' are SQL library objects)
B4X:
Sub Globals
dbfn = ""
End Sub
Sub App_Start
Con.New1
Cmd.New1( "", con.Value )
dbfn = AppPath & "\photos.s3db"
Con.Open( "Data Source = " & dbfn )
reader.New1
camera.New1
formHeader.Color = cBlack
formHeader.FontColor = cWhite
formHeader.FontSize = 9
formHeader.Width = form1.Width
formHeader.Height = 23
btnShow.Top = 25
btnCapture.Top = 25
Form1.Show
End Sub
Sub btnCapture_Click
Dim img
pfn = camera.GetImage( 640, 480, 0, "Form1", "Camera" )
Msgbox( pfn )
If pfn <> "" Then
query = "REPLACE INTO photos ( id, photodata ) VALUES ( 1, " & cmd.FileToBLOB( pfn ) & " ) WHERE ( id = 1 )"
cmd.CommandText = query
cmd.ExecuteReader
End If
End Sub
Sub btnShow_Click
cmd.CommandText = "SELECT photodata FROM photos"
reader.Value = cmd.ExecuteReader
reader.ReadNextRow
Form1.Image = reader.GetImage(0)
End Sub
Sub btnClose_Click
AppClose
End SubI'm slowly losing my mind in my old age; does anyone see what I'm doing wrong?
Gary
:sign0085: