请求vb高手援手!
来源:百度知道 编辑:UC知道 时间:2024/06/20 17:54:37
我在做一个人力资源管理系统的登录界面但是运行时怎么报出“实时错误3001参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突”
下面是我写的代码:
Private Sub cmdOK_Click()
Static intmytimes As Integer
Dim rs1 As New ADODB.Recordset, rs2 As New ADODB.Recordset
rs1.Open "权限信息表", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
If txtUserName.text = "" Then
MsgBox "请输入用户名!", "提示窗口"""
txtUserName.SetFocus
Exit Sub
End If
rs2.Open "权限信息表where操作员=" '+txtusername.text+'"",cnn,adopenkeyset,adLockOptimistic
If rs2.RecordCount > 0 Then
If txtPassword.text = "" Then
MsgBox "请输入密码!", "提示窗口”"
txtPassword.SetFocus
Exit Sub
End If
If txtPassword = rs2.Fields("密码") Then
czy = textusername
Load frmmain
frmmain.Show
Unload Me
Else
If intmatimes > maxtimes Then
MsgBox "您无权使用该软件!", &
下面是我写的代码:
Private Sub cmdOK_Click()
Static intmytimes As Integer
Dim rs1 As New ADODB.Recordset, rs2 As New ADODB.Recordset
rs1.Open "权限信息表", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
If txtUserName.text = "" Then
MsgBox "请输入用户名!", "提示窗口"""
txtUserName.SetFocus
Exit Sub
End If
rs2.Open "权限信息表where操作员=" '+txtusername.text+'"",cnn,adopenkeyset,adLockOptimistic
If rs2.RecordCount > 0 Then
If txtPassword.text = "" Then
MsgBox "请输入密码!", "提示窗口”"
txtPassword.SetFocus
Exit Sub
End If
If txtPassword = rs2.Fields("密码") Then
czy = textusername
Load frmmain
frmmain.Show
Unload Me
Else
If intmatimes > maxtimes Then
MsgBox "您无权使用该软件!", &
cnn数据源连接对不对
不知道你用的是VB的哪个版本。
感觉这句代码不太对
MsgBox "请输入用户名!", "提示窗口"""
问题出在你没有告诉计算机cnn变量是什么,所以程序执行到这一句便报错
参考解答:
Dim cnn As New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=d:\abc.mdb"
cnn.Open
将上述代码中数据库路径填好后,放在你的
Dim rs1 As New ADODB.Recordset, rs2 As New ADODB.Recordset
代码之前,我想应该就没有问题了,
如果再有问题,就是看看你那个“工程”中有没有“引用”ADODB这个类库就是了。