Sub CreateOurTables
Dim m As Map
' Table for Categories
m.Initialize 'clear the map
m.Put("CId", DBUtils.DB_INTEGER)
m.Put("Categories", DBUtils.DB_TEXT)
DBUtils.CreateTable(SQL1, "Categories", m, "CId")
' Table for Items
m.Initialize 'clear the map
m.Put("IId", DBUtils.DB_INTEGER)
m.Put("CId", DBUtils.DB_INTEGER)
m.Put("Items", DBUtils.DB_TEXT)
m.Put("Data", DBUtils.DB_BLOB)
DBUtils.CreateTable(SQL1, "Items", m, "IId")
End Sub