用vb做一个用户登陆界面出现错误，求帮助
实时错误 '3001 '
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
用的是VB6.0 调试时显示错误是rs.Open str, ConnectionString, adOpenKeyset, 2
Private Sub Command1_Click()
If TxtCname.Text = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"
TxtCname.SetFocus
Exit Sub
End If
If TxtCpass.Text = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"
TxtCpass.SetFocus
Exit Sub
End If
Dim Conn As New ADODB.Connection
Dim User As String
Dim pass As String
Dim str As String
Dim nTryCount As Integer
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
User = Trim(TxtCname.Text)
pass = Trim(TxtCpass.Text)
str = "select * from 顾客 where Cname='" & TxtCname.Text & "' and Cpass = '" & TxtCpass.Text & " '"
rs.Open str, ConnectionString, adOpenKeyset, 2
If rs.EOF Then
MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误"
TxtCname.Text = ""
TxtCpass.Text = ""
TxtCname.SetFocus
nTryCount = nTryCount + 1
If nTryCount >= 3 Then
MsgBox "您无权操作本系统！", vbCritical, "无权限"
Unload Me
End If
Else
Form8.Show
Unload Me
End If
End Sub
[解决办法]
conn.connectionstring=ConnectionString
conn.open
str = "select * from 顾客 where Cname='" & TxtCname.Text & "' and Cpass = '" & TxtCpass.Text & " '"
rs.Open str, conn, adOpenKeyset, 2
[解决办法]
误
str = "select * from 顾客 where Cname='" & TxtCname.Text & "' and Cpass = '" & TxtCpass.Text & " '"
正:
str = "select * from 顾客 where Cname='" & TxtCname.Text & "' and Cpass = '" & TxtCpass.Text & "'"
[解决办法]
同学
这样是不行的
str = "select * from 顾客 where Cname='" & TxtCname.Text & "' and Cpass = '" & TxtCpass.Text & " '"
rs.Open str, ConnectionString, adOpenKeyset, 2
'---------------
你要这样做
conn.connectionstring=connectionstring '--在你这一步作对的前提下
conn.open
rs.open str,conn,adOpenKeyset, 2
