Sub Service_Create
'This is the program entry point.
'This is a good place to load resources that are not specific to a single activity.
Log("Service create !")
DB_init
End Sub
Sub Service_Start (StartingIntent As Intent)
Log("Service start !")
End Sub
Sub Service_Destroy
Log("Service Destroy !")
End Sub
Sub ServiceStop
End Sub
Sub DB_init
' Dim appversion As Int
' Dim packageman As PackageManager
If File.IsDirectory(File.DirDefaultExternal, "Fotos") = False Then 'wenn Verzeichnis für Zählerfotos nicht vorhanden
File.MakeDir(File.DirDefaultExternal, "Fotos") 'Verzeichnis erstellen
End If
If File.Exists(File.DirDefaultExternal, "zaehler.db") = False Then 'wenn Zähler DB nicht vorhanden
If SQLzaehler.IsInitialized = False Then
SQLzaehler.Initialize(File.DirDefaultExternal, "zaehler.db", True) 'Zähler DB initialisieren
End If
SQLzaehler.ExecNonQuery("DROP TABLE IF EXISTS Zaehler")
SQLzaehler.ExecNonQuery("CREATE TABLE Zaehler (ticksdatum TEXT, datum TEXT, zaehlernr TEXT, bezeichnung TEXT, zaehlerart TEXT, anbieter TEXT, faktorkwh TEXT, grundpreis TEXT, ehtpreis TEXT, abschlag TEXT, notiz TEXT, ehtart TEXT, ehtwaehr TEXT, objekt TEXT, stadt TEXT, ehtpreisnt TEXT, zweitarifzaehler INT, datumvon TEXT, datumbis TEXT, schmutz TEXT, niederschlag TEXT, abschlaege INT, sortnr INT, multiplikator TEXT, zaehlerid TEXT, einheiten_id INT)")
Else 'Zähler DB ist vorhanden
If SQLzaehler.IsInitialized = False Then
SQLzaehler.Initialize(File.DirDefaultExternal, "zaehler.db", True) 'Zähler DB initialisieren
End If
End If