dbProva.Initialize(File.DirRootExternal, GlobalCartellaOrario & "/" & GlobalNomeDataBase, True)
dbProva.BeginTransaction
Try
dbProva.ExecNonQuery("DROP TABLE IF EXISTS TabOre")
Criterio="CREATE TABLE [TabOre] ([ID] INTEGER NOT NULL,[Giorno] INTEGER NOT NULL, [Ora] INTEGER, [Materia] TEXT(50), [Classe] TEXT(50), [Docente] TEXT(50), [Sede] TEXT(50), [Tipo] TEXT(50), [Inizio] FLOAT, [Durata] FLOAT, [Compresenza] TEXT(1))"
dbProva.ExecNonQuery(Criterio)
dbProva.TransactionSuccessful
Catch
Log (LastException.Message)
End Try
dbProva.EndTransaction