Mehrere DateTIme-Felder auf Wert prüfen

' Diese Funktion ist zwingend erforderlich! Public Function DoWork() As Object Dim SQLite as String Dim Gebiet as String Dim Unzip as String Dim ImportKey As String Dim StartParmeter as String Dim oAdapter as DatabaseAdapter ' Hier den Pfad zu den den SQLite Datenbanken anpassen $GEBIET$ wird dabei ersetzt! SQLite = "C:\inetpub\wwwroot\FileTransferService\Android\Hochland\inbox\Hochland$Gebiet$\$UnzipFolder$\hochland.db3" ' Zugriff SQLite Adapter der WRITE Seite oAdapter = AdapterRead StartParmeter = Parameter("StartParameter").GetString() Dim arrParameter() as String arrParameter = Parameter("StartParameter").GetString.Split(";") Gebiet = arrParameter(0) Unzip = arrParameter(1) ImportKey = arrParameter(2) Parameter("Gebiet").Value = Gebiet Parameter("UnzipFolder").Value = Unzip Parameter("ImportKey").Value = ImportKey ' Gebiet im SQLite Adapter ersetzen oAdapter.Database = SQLite.Replace("$GEBIET$", Gebiet) oAdapter.Database = SQLite.Replace("$UnzipFolder$", Unzip) UD End Function Public Function UD Dim adapter as DatabaseAdapter adapter = AdapterRead adapter.execute("UPDATE [bsstxt] SET [Datum_von] = NULL WHERE Datum_von = ''") adapter.execute("UPDATE [bsstxt] SET [Datum_bis] = NULL WHERE Datum_bis = ''") adapter.execute("UPDATE [bsstxt] SET [Zeit_von] = NULL WHERE Zeit_von = ''") adapter.execute("UPDATE [bsstxt] SET [Zeit_bis] = NULL WHERE Zeit_bis = ''") End Function