txt="CREATE TABLE IF NOT EXISTS ticket (ID INTEGER PRIMARY KEY AUTOINCREMENT, DATE TEXT, CONTRACTOR TEXT)"
SQL1.ExecNonQuery(txt) 'create the ticket table
txt="INSERT INTO ticket VALUES(?,?,?)"
SQL1.ExecNonQuery2(txt, Array As Object(Null,"20150310", "Smith"))
SQL1.ExecNonQuery2(txt, Array As Object(Null,"20150309", "Taylor")) 'Insert in ticket table
'Copy ticket table To a new temp table while changing a column name from ID To PK
txt="CREATE TABLE tempticket As Select ID 'PK', DATE, CONTRACTOR FROM ticket"
SQL1.ExecNonQuery(txt)
txt="ALTER TABLE ticket RENAME TO ticketOLD" 'renamed ticket To ticketOLD
SQL1.ExecNonQuery(txt)
txt="ALTER TABLE tempticket RENAME TO ticket" 'renamed tempticket to ticket
SQL1.ExecNonQuery(txt)
Dim ID As Int
Cursor1 = SQL1.ExecQuery("SELECT * FROM ticket WHERE CONTRACTOR= 'Taylor'")
Cursor1.Position=0
ID=Cursor1.GetInt("PK")
Log(ID) 'displays 2