Sub UpdateDB1_2(sq As SQL)
'empty database, lets create all required tables
Dim m As Map
m.Initialize 'clear the map
m.Put("Patient_No", DBUtils.DB_TEXT)
m.Put("First_Name", DBUtils.DB_TEXT)
m.Put("Last_Name", DBUtils.DB_TEXT)
m.Put("Date_of_Birth", DBUtils.DB_INTEGER)
m.Put("Sex", DBUtils.DB_TEXT)
m.Put("Patient_ID", DBUtils.DB_INTEGER)
DBUtils.CreateTable(sq, "Patients", m, "") 'no primary key assigned
m.Initialize 'clear the map
m.Put("ExamTime", DBUtils.DB_INTEGER)
m.Put("ExamPatient_ID", DBUtils.DB_INTEGER)
m.Put("ExamTestNum", DBUtils.DB_INTEGER)
m.Put("ExamData", DBUtils.DB_BLOB)
DBUtils.CreateTable(sq, "Exams", m, "") 'no primary key assigned
DBUtils.SetDBVersion(sq, 2)
End Sub