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-Key: 204301
Url: https://administrator.de/contentid/204301
Ausgedruckt am: 28.03.2024 um 22:03 Uhr
1 Kommentar