我的查询是用户输入姓名,输出的是单人信息,调用sql是可以的, 但是access的就不行,跳出的错误信息是:发现数据库内置错误,错误号:0;错误源:;错误描述。如果还有问题,请联系管理员,接着是跳出错误信息:错误号-2147217904;错误源:project1;错误描述:对象'refresh'的方法'IAdodc'失败。
我的查询是用户输入姓名,输出的是单人信息,调用sql是可以的, 但是access的就不行,跳出的错误信息是:发现数据库内置错误,错误号:0;错误源:;错误描述。如果还有问题,请联系管理员,接着是跳出错误信息:错误号-2147217904;错误源:project1;错误描述:对象'refresh'的方法'IAdodc'失败。
Private Sub mnu姓名查询_Click()
Dim myName As String On Error GoTo ErrLog
myName = InputBox("请输入房主姓名", "姓名搜索", "")
strSortFieldName = "身份证号码"
strTableName = "房主信息"
strSQLQuery = "SELECT * FROM 房主信息 WHERE 姓名='" & myName & "'"
datPrimaryRS.ConnectionString = strConStr
datPrimaryRS.CommandType = adCmdText
datPrimaryRS.LockType = adLockOptimistic
datPrimaryRS.CursorType = adOpenDynamic
datPrimaryRS.RecordSource = strSQLQuery & " ORDER BY " & strSortFieldName & " ASC"
datPrimaryRS.Mode = adModeReadWrite + adModeShareDenyNone
datPrimaryRS.Refresh SetButtons True
Exit SubErrLog:
'WriteErrLogFile Me.Caption & ":Form_Load,", "错误号:" & Err.Number & ";错误源:" & Err.Source & ";错误描述:" & Err.Description
MsgBox "发现错误!错误号:" & Err.Number & ";错误源:" & Err.Source & ";错误描述:" & Err.Description & "。如果还有问题,请联系管理员解决。", vbCritical
Unload Me
end sub
为什么会说对象'refresh'的方法'IAdodc'失败。
什么是'IAdodc'?
分数不够,我可以加的,回答的好的人,可以再加100分啊
谢谢!