Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Doch nicht alles OK !!!!!!!!
Autor: Michael
Datum: 01.10.01 17:01
Hallo, ein Problem bleibt dennoch ! Ich bekomme nicht die richtige Anzahl ausgegeben ! Ich habe jetzt folgenden Code verwendet : Dim sDatum2 As String sDatum = CStr(Date) sDatum2 = "'" & sDatum & "'" Dim n As Long Dim db_kurz6 As Database Set db_kurz6 = OpenDatabase(App.Path + "\" + "Friseur.mdb") SQL2 = "SELECT COUNT(*) As anzahl From Kunden Where (Geburt = " & sDatum2 & ")" Data2.RecordSource = SQL2 Set Data2.Recordset = db_kurz6.OpenRecordset(SQL2, _ dbOpenSnapshot, dbOpenForwardOnly) Data2.Refresh Label3.Caption = "Es wurden " & Data2.Recordset.RecordCount & " Kunden gefunden !" If anzahl > 0 Then Frame11.Visible = True SQL = "SELECT * From Kunden Where (Geburt = " & sDatum2 & ")" Data1.DatabaseName = (App.Path + "\" + "Friseur.mdb") Data1.RecordSource = SQL Else Frame11.Visible = False End If Was ist denn jetzt noch falsch ???? Bitte helft mir ! Gruss Michael

Nochmal eine kleine SQL Frage !	81	Michael	01.10.01 14:52
Re: Nochmal eine kleine SQL Frage !	58	TheFox01	01.10.01 16:14
Danke !	50	Michael	01.10.01 16:19
Doch nicht alles OK !!!!!!!!	64	Michael	01.10.01 17:01
Re: Doch nicht alles OK !!!!!!!!	391	unbekannt	01.10.01 19:44
Dank an beide	64	Michael	02.10.01 14:04
Re: Doch nicht alles OK !!!!!!!!	61	TheFox01	01.10.01 20:30

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen