VB6 + SQL RecordCount ist immer 1!!!!
lima-city → Forum → Programmiersprachen → Basic
-
HI,
wie ihr im Titel lesen k?nnt bei mir immer wieder nur RecordCount "1" raus obwohl 15 Datens?tze abgespeichert sind.
Quelltext:
dbfile = App.Path + "\nv_schichtbuch.mdb" Set db = Workspaces(0).OpenDatabase(dbfile) If (cmb_schicht = "Alle" And cmb_zeit <> "Alle") Then sql = "SELECT * FROM schichtdaten WHERE schichtzeit='" & cmb_zeit & "' AND datum BETWEEN '" & txt_datum_von & "' AND '" & txt_datum_bis & "'" ElseIf (cmb_schicht <> "Alle" And cmb_zeit = "Alle") Then sql = "SELECT * FROM schichtdaten WHERE schichtbezeichnung='" & cmb_schicht & "' AND datum BETWEEN '" & txt_datum_von & "' AND '" & txt_datum_bis & "'" ElseIf (cmb_schicht <> "Alle" And cmb_zeit <> "Alle") Then sql = "SELECT * FROM schichtdaten WHERE schichtbezeichnung='" & cmb_schicht & "' AND schichtzeit='" & cmb_zeit & "' AND datum BETWEEN '" & txt_datum_von & "' AND '" & txt_datum_bis & "'" ElseIf (cmb_schicht = "Alle" And cmb_zeit = "Alle") Then sql = "SELECT * FROM schichtdaten WHERE datum BETWEEN '" & txt_datum_von & "' AND '" & txt_datum_bis & "'" End If Set rs = db.OpenRecordset(sql) MsgBox rs.RecordCount & " vorhandene Datens?tze.", vbOKOnly, "Ausgabe"
egal wie die Combo-Listen w?hle bekomm ich immer nur 1 raus!
Bitte um Hilfe! -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage