UC知道VB制作登陆窗口
来源：百度知道 编辑：UC知道 时间：2024/06/23 13:16:45
我这有个代码，大家帮看看，到底是那里出了问题，因为我一点运行，他就直接弹出：在SQL语句结尾之后找到字符，请大家帮看看，到底是那里有问题，如何修正
代码如下：
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cnn.Open "Provider=Microsoft." & _
"Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\DLL.mdb"
rs.Open "select [UNAndPW].*;form UNAndPW", cnn
Do Until rs.EOF
If Text1 = rs.Fields("UserName").Value Then
If Text2 = rs.Fields("Password").Value Then
MsgBox "用户名密码正确"
Else
MsgBox "用户名正确，密码错误"
End If
Exit Do
End If
rs.MoveNext
Loop
If rs.EOF Then MsgBox "用户名错误！"
End Sub
代码所需要的DLL.MDB我已经做好了
代码如下：
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cnn.Open "Provider=Microsoft." & _
"Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\DLL.mdb"
rs.Open "select [UNAndPW].*;form UNAndPW", cnn
Do Until rs.EOF
If Text1 = rs.Fields("UserName").Value Then
If Text2 = rs.Fields("Password").Value Then
MsgBox "用户名密码正确"
Else
MsgBox "用户名正确，密码错误"
End If
Exit Do
End If
rs.MoveNext
Loop
If rs.EOF Then MsgBox "用户名错误！"
End Sub
代码所需要的DLL.MDB我已经做好了
建议你这样修改。
cnn.Open "Provider=Microsoft." & _
"Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\DLL.mdb"
rs.cursorlocation = adUseClient
rs.open "select * from unandpw where unandpw.username ='" & text1.text & "'" ,cnn
if rs.recordcount =0 then
msgbox "用户名错误"
else
if text2.text <> rs.fields("password") then
msgbox "密码输入错误！"
else
msgbox "用户名密码正确！"
end if
end if