Sub controllo_versione
Dim DbVerReq As Int : DbVerReq = 2
Dim DbVerCor As Int
DbVerCor = dbSql.ExecQuerySingleResult("PRAGMA user_version")
dbSql.Initialize(PthMD,"SiscoApp.db",True) 'apro il db installato nel dispositivo
If Not (DbVerCor = DbVerReq) Then
'cancello il db corretente, non mi importa dei dati
File.Delete(PthMD,"SiscoApp.db")
'carico il db nuovo nel file di installazione
File.Copy(File.DirAssets,"SiscoApp.db",PthMD,"SiscoApp.db")
dbSql.Initialize(PthMD,"SiscoApp.db",True)
End If
End Sub