Access ADO - RecordCount liefert -1, auch wenn Ergebniss keine Resultat ergibt
Hi, NG
folgender VBA-Code:
Private Sub sfAnmelden_Click()
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Set db = New ADODB.Connection
db.ConnectionString = "DRIVER={MySQL ODBC 5.2a Driver}; SERVER=localhost; DATABASE=adressen; UID=root; OPTION=3"
Set rs = New ADODB.Recordset
db.Open
sql = "SELECT * FROM zugang WHERE Benutzername= '" & Me.Benutzername & "' AND Passwort = '" & Me.Passwort & "'"
rs.Open sql, db, adOpenDynamic, adLockOptimistic
'gibt -1 aus, auch wenn kein Datensatz da ist
MsgBox Str$(rs.RecordCount)
If Str$(rs.RecordCount) = "" Then
MsgBox "nicht angemeldet"
Else
MsgBox "angemeldet"
End If
rs.Close
db.Close
End Sub
wird von RecordCount immer -1 ausgegeben, auch wenn eigentlich kein Datensatz zurückgegeben wird.
Wo liegt der Fehler?
Gruß
Andy
folgender VBA-Code:
Private Sub sfAnmelden_Click()
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Set db = New ADODB.Connection
db.ConnectionString = "DRIVER={MySQL ODBC 5.2a Driver}; SERVER=localhost; DATABASE=adressen; UID=root; OPTION=3"
Set rs = New ADODB.Recordset
db.Open
sql = "SELECT * FROM zugang WHERE Benutzername= '" & Me.Benutzername & "' AND Passwort = '" & Me.Passwort & "'"
rs.Open sql, db, adOpenDynamic, adLockOptimistic
'gibt -1 aus, auch wenn kein Datensatz da ist
MsgBox Str$(rs.RecordCount)
If Str$(rs.RecordCount) = "" Then
MsgBox "nicht angemeldet"
Else
MsgBox "angemeldet"
End If
rs.Close
db.Close
End Sub
wird von RecordCount immer -1 ausgegeben, auch wenn eigentlich kein Datensatz zurückgegeben wird.
Wo liegt der Fehler?
Gruß
Andy
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 204301
Url: https://administrator.de/forum/access-ado-recordcount-liefert-1-auch-wenn-ergebniss-keine-resultat-ergibt-204301.html
Ausgedruckt am: 19.04.2025 um 13:04 Uhr
1 Kommentar