THEMA: 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