驭丰速运客服电话:数据库常见问题

来源：百度文库 编辑：杭州交通信息网 时间：2024/05/12 19:53:48
这是什么意思
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为匹配的条数。如果条数小于等于零则数据库中没有与之相匹配的记录。就弹出“用户名和密码不正确”，否则就是正确了～！

数据库常见问题 数据库常见问题 常见问题！ 两个常见问题 网吧常见问题 计算机常见问题 MP3常见问题 mp3常见问题 asp常见问题 qq常见问题