2016-03-22 52 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 

它總是返回false雖然數據庫中的數據的一個爲什麼recordCount不適用於我的代碼?

+2

光標類型會影響RecordCount與特定連接一樣多。您可能需要閱讀以下內容:https://msdn.microsoft.com/zh-cn/library/ms676701(v=vs.85).aspx – Ralph

+0

謝謝!它的工作,我只是使用cursorType的adOpenStatic –

回答

1

你必須使用

rs.MoveLast 

之前,你可以使用總記錄,否則會顯示錯誤的值

相關問題