kostenloser Webspace werbefrei: lima-city


VB6 + SQL RecordCount ist immer 1!!!!

lima-cityForumProgrammiersprachenBasic

  1. Autor dieses Themas

    jambs

    jambs hat kostenlosen Webspace.

    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!
  2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?

Über lima-city

Login zum Webhosting ohne Werbung!