'Datenbank erstellen, wenn noch nicht vorhanden
If FirstTime Then
If File.Exists(File.DirRootExternal, "/" & Starter.Prog_Verzeichnis & "/" & Starter.DB_Name) = False Then
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
wait for Activity_PermissionResult(Permission As String, Result As Boolean)
'Pfad erzeugen
File.MakeDir(File.DirRootExternal, Starter.Prog_Verzeichnis)
' File.MakeDir(Starter.rp.GetAllSafeDirsExternal("Mein Spritverbrauch"))
'DB erzeugen
Main.SQL_DB.Initialize(File.DirRootExternal,"/" & Starter.Prog_Verzeichnis & "/" & Starter.DB_Name, True)
'Tabelle anlegen
Main.SQL_DB.ExecNonQuery("CREATE TABLE IF NOT EXISTS Tankvorgang (FZNR Long, Datum Text, Datum_zum_sortieren Long, Zeit Text, Ort Text, Tachostand Real, Liter Real, Literpreis DECIMAL(7,2), Verbrauch Real, Rechnung Real, Tankart Text, Beleg Blob, Notiz Text)")
'DB schließen
Main.SQL_DB.Close
End If
End If