German Datum filtern?

superscope

Member
Licensed User
Hallo zusammen,
wie kann ich Datum Filtern aus SQL Datenbank und webview zeigen lassen?
Meine datenbank name arbzeiten unt table stunden danach noch 6 felder.

ID, Datum, Beginn, Ende, Pause, Stunden

B4X:
Sub btnSuch_Click

   Dim Query As String
   Dim txtvom As String
   Dim txtbis As String
   txtvom = edtVom.Text
   txtbis = edtBis.Text
    
   Query = "Select Id, Datum, Stunden FROM " & Main.DBTableName & " WHERE Datum = " & txtvom & " AND Datum = " & txtbis
   
   WebView1.LoadHtml(DBUtils.ExecuteHtml(Main.SQL1, Query, Null, 0, True))

  End Sub


Ich habe nicht geschaft. Ganze Ziet bei googel beispiel cod gesucht leider ohne refolg. :-(

Vielen Dank
superscope
 
Last edited:

Kiffi

Well-Known Member
Licensed User
drei Dinge:

1.: von welchem Typ ist das Feld Datum?

2.: wenn es vom Typ TEXT ist, dann sollte das Datum in einfache Hochkommata
eingeschlossen werden: ... WHERE Datum = '" & txtvom & "' AND ...

3.: die Abfrage ist meines Erachtens nicht logisch, wenn Du gleichzeitig Datum auf txtvom UND txtbis prüfst.

Grüße ... Kiffi
 

superscope

Member
Licensed User
Hallo Kiffi, danke für anwort. Datum Feld typ ist TEXT

Mit Klaus hilfe ich habe par änderung gemacht. so funktioniert aber heute ich habe eine fehler endekt.

zB. 01.04.13 bis 30.04.13 datum filtern möchte, bekomme daten vom Mai auch. Was muss ich noch ändern.



Jetz
B4X:
Sub btnSuch_Click
   Dim Query As String
   Dim txtvon, txtbis As String
   txtvon = edtVon.Text
   txtbis = edtBis.Text
   Query = "Select Datum, Beginn, Ende, Stunden FROM " & Main.DBTableName  & " WHERE Datum BETWEEN'" & txtvon & "' AND '" &  txtbis & "'" 
   
   WebView1.LoadHtml(DBUtils.ExecuteHtml(Main.SQL1, Query, Null, 0, True))

 End Sub
Beste Grüsse.
 
Top