Sub LOCALCreatePartnersTable
Dim m As Map
m.Initialize 'clear the map
m.Put("id", DBUtils.DB_TEXT)
m.Put("partner1img", DBUtils.DB_BLOB)
m.Put("partner2img", DBUtils.DB_BLOB)
m.Put("partner3img", DBUtils.DB_BLOB)
m.Put("partner4img", DBUtils.DB_BLOB)
m.Put("partner5img", DBUtils.DB_BLOB)
DBUtils.CreateTable(Starter.SQL0, "partners", m, "")
ToastMessageShow("Partners Table Created", False)
LoadPartnersDummy
End Sub
Sub LoadPartnersDummy
'convert the image file to a bytes array
Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(File.DirAssets, "yelloe icone empty - copy.png")
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(1000)
File.Copy2(InputStream1, OutputStream1)
Dim Buffer() As Byte 'declares an empty array
Buffer = OutputStream1.ToBytesArray
Starter.SQL0.ExecNonQuery2("INSERT INTO partners (id, partner1img) VALUES ('1',?)", Array As Object(Buffer))
'convert the image file to a bytes array
Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(File.DirAssets, "greyicon empty.png")
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
Starter.SQL0.ExecNonQuery2("INSERT INTO partners (id, partner2img) VALUES ('1',?)", Array As Object(Buffer))
'convert the image file to a bytes array
Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(File.DirAssets, "green icon empty.png")
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
Starter.SQL0.ExecNonQuery2("INSERT INTO partners (id, partner3img) VALUES ('1',?)", Array As Object(Buffer))
'convert the image file to a bytes array
Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(File.DirAssets, "yelloe icone empty - copy.png")
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
Starter.SQL0.ExecNonQuery2("INSERT INTO partners (id, partner4img) VALUES ('1',?)", Array As Object(Buffer))
'convert the image file to a bytes array
Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(File.DirAssets, "rediconempty - copy.png")
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
Starter.SQL0.ExecNonQuery2("INSERT INTO partners (id, partner5img) VALUES ('1',?)", Array As Object(Buffer))
End Sub