Adodc控件与SQL数据库连接处理查询数据问题

lihb03 2006-03-12 06:23:43

以下是一个用户登录程序设计代码：

Const MaxLogTimes As Integer = 3

Private Sub cmdCancel_Click()

If MsgBox("你选择了退出系统登录，退出将不能启动管理系统！" & vbCrLf & "是否真的退出？", vbYesNo, "登录验证") = vbYes Then
End
End If

End Sub

Private Sub cmdOK_Click()

Dim strName As String, strPassword As String
'静态常量intLogTimes用于保存用户请求验证的次数
Static intLogTimes As Integer
intLogTimes = intLogTimes + 1 '保存登录次数
If intLogTimes > MaxLogTimes Then
'超过允许的登录次数，显示提示信息
MsgBox "你已经超过允许的登录验证次数！" & vbCr & "应用程序将结束！", vbCritical, "登录验证"
End '结束应用程序
Else
'进一步验证登录信息的合法性
strName = txtUserName.Text
strPassword = txtPassword.Text
'检验用户名和密码的合法性，并根据检验返回值执行相应的操作
Select Case Check_PassWord(strName, strPassword)
Case 0
'用户不是系统用户
MsgBox "用户不是系统用户，请检查用户名输入是否正确！", vbCritical, "登录验证"
txtUserName.SetFocus
txtUserName.SelStart = 0
txtUserName.SelLength = Len(txtUserName)
Case 1
'密码错误
MsgBox "密码错误，请重新输入！", vbCritical, "登录验证"
txtPassword = ""
txtPassword.SetFocus
Case 2
Unload Me '密码正确，卸载登录窗体
MsgBox "登录成功，将启动系统程序！", vbInformation, "登录验证"
FrmManPurchase.Enabled = True
Case Else
'登录验证未正常完成
MsgBox "登录验证未正常完成！请重新运行登录程序，" & vbCrLf & "如果仍不能登录，请报告系统管理员！", vbCritical, "登录验证"
End Select
End If

End Sub

Private Function Check_PassWord(ByVal UserName As String, ByVal PassWord As String) As Byte

Adodc1.ConnectionString = "driver={SQL Server};server=MIJK;uid=;pwd=;database=ERP"
Adodc1.RecordSource = "select 密码 from user where 用户名='" & UserName & "'"
'判断有无查询结果
If Adodc1.Recordset.EOF Then
Check_PassWord = 0 '没有查询结果，表示该用户为非法用户
Else
'检查密码是否正确
If PassWord <> Trim(Adodc1.Recordset.Fields("密码").Value) Then
Check_PassWord = 1 '密码不正确
Else
Check_PassWord = 2 '密码正确
End If
End If

End Function

下面是报错的地方：
If Adodc1.Recordset.EOF Then　　错误提示：对象变量或 With 块变量没有设置
请问这是怎么回事？
请各位帮忙解决问题！！

...全文

278 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

faysky2 2006-03-14

打赏
举报

Adodc1.RecordSource = "select 密码 from user where 用户名='" & UserName & "'"
-------------------------------
这句有问题，因为user是sql里的关键字，得给它加上[]:
Adodc1.RecordSource = "select 密码 from [user] where 用户名='" & UserName & "'"

faysky2 2006-03-14

打赏
举报

提示的还是 “对象变量或 With 块变量没有设置”错误吗？只提示这个错误吗？
加上了Adodc1.Refresh没有，错误指向哪句呢？

lihb03 2006-03-14

打赏
举报

还是不行啊，各位大哥，哪位可以帮忙解决一下这个问题啊？

rayxu 2006-03-13

打赏
举报

其实你不用ＡＤＯ会更好，直接用代码写。

rayxu 2006-03-13

打赏
举报

同意楼上的。

faysky2 2006-03-13

打赏
举报

加上Refresh就好了：
......
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
......

faysky2 2006-03-13

打赏
举报

出错的可能原因：
1.Adodc1的ConntionString没写对（换种连接字符串试试："Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=sa;Initial Catalog=ERP;Data Source=MIJK")

2.Adodc1.RecordSource的查询语句没写对（改一下试试："select 密码 from [user] where 用户名='" & UserName & "'"
）

3.Adodc1的CommandType 属性没设置为adCmdUnknown或adCmdText

这3点都检查，看看

lihb03 2006-03-13