HOME WORKSHOPS BEFEHLSREFERENZ API-REFERENZ FAQ FORUM DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

Partnerseiten
Top 5 Partnerlinks


Weitere...

Entwickler / Welt

··· Tipps & Tricks · Microsoft Visual Basic 5/6 Classic · Datenbanken · DAO

SQL-Datumsabfragen im Griff Ein leidiges Thema für viele ;-)) Wie kann ich eine Datumsabfrage in eine SQL-Anweisung einbinden?
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  34.900
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	kein Beispielprojekt

Ein leidiges Thema für viele
Da muss man sich eh schon mit der SQL-Syntax herumplagen und meint, man beherrscht das ganze jetzt in etwa - und dann...?

...dann möchte man eine simple Datumsabfrage in seine SQL-Anweisung einbauen. Ist ja nicht schwer...meint man:

Dim SQL As String
Dim sDatum As String
 
sDatum = "17.10.2001"
SQL = "SELECT * FROM Termine WHERE Datum = '" + sDatum + "'"

Sieht eigentlich überhaupt nicht verkehrt aus - die SQL-Anweisung - oder?
Ist aber verkehrt, denn für Datumsabfragen muss man folgende SQL-Regeln beachten:

1. Verwenden der amerikanischen Schreibweise, also m-d-yy
2. Datum zwischen zwei Doppelkreuze setzen: #m-d-yy#

Das war es dann auch schon. Wenn Sie diese beiden Regeln beachten, kann eigentlich nichts mehr schief gehen

Und zur Veranschaulichung nachfolgend ein paar Beispiele:

' Alle Termine von HEUTE selektieren
SQL = "SELECT * FROM Termine WHERE Datum = #" & _
  Format$(Now, "m-d-yy") & "#"

' Alle Termine eines variablen Datums ermitteln
Dim sDatum As Date
 
' Datum in den Typ Date umwandeln
sDatum = CDate(txtDatum.Text)
 
SQL = "SELECT * FROM Termine WHERE Datum = #" & _
  Format$(sDatum, "m-d-yy") & "#"

Nun kommt es aber bestimmt genauso häufig vor, dass man Daten nicht nach einem ganz bestimmten Datum (Tag) selektieren möchte, sondern für einen bestimmten Zeitraum - also von...bis.

Hierzu bietet sich die SQL-Funktion BETWEEN..AND an! Die Syntax ist hierbei folgende:

SELECT * FROM Tabelle WHERE Datum BETWEEN #m-d-yy# AND #m-d-yy#

Und auch hierfür noch ein Beispiel:

Dim SQL As String
Dim sDatumVon As Date
Dim sDatumBis As Date
 
' Zeitraum
txtVon.Text = "01.10.2001"
txtBis.Text = "31.10.2001"
 
' Alle Termine eines bestimmten Zeitraums ermitteln
sDatumVon = CDate(txtVon.Text)
sDatumBis = CDate(txtBis.Text)
 
' SQL-Anweisung
SQL = "SELECT * FROM Termine WHERE Datum BETWEEN #" & _
  Format$(sDatumVon, "m-d-yy") & "# AND #" & _
  Format$(sDatumBis, "m-d-yy") & "#"

Wie gesagt, wenn Sie die beiden obigen Regeln beachten, sollte das leidige Thema der Datumsabfragen in SQL-Anweisungen ab sofort der Vergangenheit angehören