剑三成品脸:数据库常见问题
来源:百度文库 编辑:高考问答 时间:2024/07/03 09:39:59
这是什么意思
Option Explicit
Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Private Sub cmdOK_Click()
Rs.Open "select * from Users where Name='" & txtName.Text & "'", Conn, adOpenKeyset, adLockPessimistic
If Rs.RecordCount <= 0 Then
MsgBox "用户不存在"
Rs.Close
Exit Sub
End If
Rs.Close
Rs.Open "select * from Users where Name='" & txtName.Text & "' and Pass='" & txtPass.Text & "'", Conn, adOpenKeyset, adLockPessimistic
If Rs.RecordCount <= 0 Then
MsgBox "用户名和密码不正确"
Rs.Close
Exit Sub
End If
MsgBox "用户名和密码正确,可以登录"
Rs.Close
End Sub
Private Sub Form_Load()
Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Conn.ConnectionString = "Provider=SQLOLEDB.1;Password=nndk;Persist Security Info=True;User ID=nndk;;Initial Catalog=pubsData Source=SERVER"
Conn.Open
End Sub
Option Explicit
Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Private Sub cmdOK_Click()
Rs.Open "select * from Users where Name='" & txtName.Text & "'", Conn, adOpenKeyset, adLockPessimistic
If Rs.RecordCount <= 0 Then
MsgBox "用户不存在"
Rs.Close
Exit Sub
End If
Rs.Close
Rs.Open "select * from Users where Name='" & txtName.Text & "' and Pass='" & txtPass.Text & "'", Conn, adOpenKeyset, adLockPessimistic
If Rs.RecordCount <= 0 Then
MsgBox "用户名和密码不正确"
Rs.Close
Exit Sub
End If
MsgBox "用户名和密码正确,可以登录"
Rs.Close
End Sub
Private Sub Form_Load()
Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Conn.ConnectionString = "Provider=SQLOLEDB.1;Password=nndk;Persist Security Info=True;User ID=nndk;;Initial Catalog=pubsData Source=SERVER"
Conn.Open
End Sub
打开数据库,根据你提供的sql语句来在数据库中寻找批配的结果。Rs.RecordCount为匹配的条数。如果条数小于等于零则数据库中没有与之相匹配的记录。就弹出“用户名和密码不正确”,否则就是正确了~!