Hallo!
Ich möchte mit VB eine Access Datenbank auslesen aber nur eine Spalte (Erscheinungs_Termin) und am ende möchte ich es mit dem heutigen Datum vergleichen:
z.B.: Heute ist der 10.03.2010 und als Termin ist auch 10.03.2010 denn soll er mir in einer Textbox Anzeigen das Heute der Termin ist.
Ich hoffe ihr könnt mir helfen ;)
Ich brauch nur wissen wie ich einen Datensatz auslesen kann.
Meinst du sowas ? Da ich deine Datenbank nicht kenne - hier beispielweise eine Adressdatenbank mit der Tabelle adr. Als vergeleichsfeld wird hier das Feld Geburtstag genommen. So ähnlich ist es wohl auch bei dir mit dem Datumsfeld Erscheinungs_Termin.
' VB 6.0
'Project-Verweise Microsoft DAO 3.51 Object Library zuvor einbinden wegen Access Datenbank
'Variablen setzen
Dim Rs As Recordset
Dim db As Database
Private Sub Form_Load()
'Datenbank im aktuellen Verzeichniss öffnen
Set db = OpenDatabase(App.Path & "\Adressen.mdb")
'Tabelle mit Recordset verbinden (Hier die ganze Tabelle)
Set Rs = db.OpenRecordset("adr")
'Erster Datensatz auswählen
Rs.MoveFirst
'Für jeden Datensatz in Tabelle
While Not Rs.EOF
If CDate(Rs.fields("Geburtstag")) = Date Then
MsgBox Rs.fields("Nachname") + " hat heute Geburtstag !", vbInformation, today
End If
Rs.MoveNext
Wend
Rs.Close
set db = Nothing
End Sub
Falls du das als VBA direkt in Access meinst, das ganze mal unter Access 2007
----------------
Option Compare Database
Sub checkDate()
Dim rs As Recordset
Dim db As Database
Set db = CurrentDb()
'Tabelle mit Recordset verbinden (Hier die ganze Tabelle)
Set rs = db.OpenRecordset("Tabelle1")
'Erster Datensatz auswählen
rs.MoveFirst
'Für jeden Datensatz in Tabelle
While Not rs.EOF
If CDate(rs.Fields("Erscheinungs_Termin")) = Date Then
MsgBox rs.Fields("Name") + " hat heute Geburtstag !", vbInformation, Date
End If
rs.MoveNext
Wend
rs.Close
Set db = Nothing
End Sub