VB + SQL-Abfrage

[Lady1201]

Ich hoffe, mir kann jemand von euch weiterhelfen!

Ich habe eine Access-Datenbank, in der ich Einträge speichern, löschen und verwalten kann. Das Speichern und Löschen von Einträgen wird über VB geregelt, indem man Datensätze über ein Formular eingeben kann.

Nun lasse ich die Daten in einem ListView anzeigen. Dort möchte ich jetzt jedoch vom Benutzer auswählen lassen, welche Datensätze angezeigt werden sollen.

Auswahl: Monat und Jahr, nachdem man den Monat aus einer Combo-Box ausgewählt hat, bzw. das Jahr aus einer weiteren Combo-Box. In der Access-Tabelle speichere ich das Datum komplett in einer Spalte ab.

Frage:

Wie kann ich über einen SQL-Befehl die entsprechenden Datensätze auslesen lassen? Benätige nur die Bedingung "where ..." das ausgewählte Jahr im Datum enthalten ist, bzw. der entsprechende Monat.

Sprache: VB

Bin für alle hilfreichen Tipps offen! Schon mal danke.

Gruss Lady

[Ganymed]

Wenn ich dich richtig verstanden habe, dann würde ich dir empfehlen die das Datum zu "basteln".

Dazu eine String Variable deklarieren:

dim Datum as String

Und dann liest du die Werte der 3 (???) Comboboxen in die Variable ein:

Datum = ComboTag.Text & "." & Combo.Monat.Text & "." & "ComboJahr.Text & "."

Dann baust du dir den Sql-String zusammen mit der Klausel:

"[...] Where TabelleXY.Datum = Datum;"

Hoffe geholfen zu haben

[Lady1201]

Erst mal danke!

An so was in der Art hatte ich auch schon mal gedacht. Hast du einen Tipp, wie ich das regeln könnte, wenn ich nur das Jahr auswähle? D. h., dass ich alle Einträge des Jahres 2002 sehen möchte?

Gruss Lady

[Leominora]

kommt darauf an, wie du das Datum gespeichert hast,

als String yyyy.mm.dd oder dd.mm.yyyy oder als Datumsfeld.

Das erstere ist das beste (find ich).

Where Left(Datum,4) = ' " & zJahr & "'

oder mit Monat

Where Left(Datum,7) = ' " & Format(zJahr,"0000") & "." & Format( zMonat,"00") &"'

oder

WHERE Datum BETWEEN 'ersterTag' AND 'LetzterTag'

Habe alles schon verwendet.

[Lady1201]

Danke dir noch mal für deine Hilfe!

Ein Kollege hat mir noch was gezeigt:

...

strJahr = cmbJahr.Text

... where Year([Datum])= " & strJahr

...

Mit dem Monat funktioniert es auch, wenn man eben Year durch Month ersetzt, aber das ist ja selbstverständlich.

Gruss Lady