Dim InputStream1 As InputStream
Try
InputStream1 = File.OpenInput("/storage/sdcard0/map", "1.jpg")
ToastMessageShow("File exist!",False)
Catch
ToastMessageShow("OOPs no file exist!",False)
End Try
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(1000)
File.Copy2(InputStream1, OutputStream1)
Dim Buffer() As Byte 'declares an empty array
Buffer = OutputStream1.ToBytesArray
'write the image to the database
Try
ExecuteRemoteQuery("INSERT INTO pictures VALUES('One', Array As Object(Buffer))",MENUS_LIST)
ToastMessageShow("Saving file done",False)
Catch
ToastMessageShow("Not save!",False)
End Try