2016-03-22 1 views
1
Public Function cekUsername(ByVal usr As String) As Boolean 
Dim rs As ADODB.Recordset 
Set rs = New ADODB.Recordset 
Set rs.ActiveConnection = CurrentProject.Connection 
rs.Open "SELECT * FROM pengguna WHERE username='" & usr & "';" 
If rs.RecordCount = 1 Then 
    cekUsername = True 
Else 
    cekUsername = False 
End If 
rs.Close 
Set rs = Nothing 
End Function 

es immer false zurück Obwohl es eines der Daten in der DatenbankWarum recordCount nicht an meinem Code arbeitete?

+2

Der Cursor zeigen type beeinflusst den RecordCount genauso stark wie die spezifische Verbindung. Vielleicht möchten Sie hier nachlesen: https://msdn.microsoft.com/en-us/library/ms676701(v=vs.85).aspx – Ralph

+0

danke! es ist Arbeit, ich verwende adOpenStatic für cursorType –

Antwort

1

Sie haben

rs.MoveLast 

verwenden Bevor Sie Record verwenden können, sonst wird es falsche Werte