测试代码如下:
Public Function bbb() As Integer
On Error GoTo Error_hand:
Dim rs As New Recordset
Dim coo As New ADODB.Connection
sql = "select abcd from UserDegreeTable"
connStr = GetconnStr()
'rs.CursorLocation = adUseClient
rs.Open sql, connStr, 3, 1
Debug.Print rs("abcd")
Set rs = Nothing
Exit Function
Error_hand:
Set rs = Nothing
Debug.Print Err.Description
End Function
语句能查出结果,但是当要取字段的内容时就会报
"多步 OLE DB 操作产生错误。如果可能,请检查每个 OLE DB 状态值。没有工作被完成。"
如果我用客户端游标,那么会报"多步操作产生错误。请检查每一步的状态值。"
郁闷一下午了,哪位碰到过,告诉小弟解决下,先谢了!
1 个解决方案
#1
我现在也遇到了这个问题我在vb6中用ado连接mysql数据库
可以读得数据库中的数据但在修改该条记录时,只要新输入
的字段值的长度大于原值,便会出现你所说的错误,连接其它
数据库不会出现这个错误,可我现在也没有找到办法解决
在此提出,希望有更多的人来共同探讨一下这外问题。
如果只是取得该字段内容应该没有问题。Txtstr=rs("abd")
可以读得数据库中的数据但在修改该条记录时,只要新输入
的字段值的长度大于原值,便会出现你所说的错误,连接其它
数据库不会出现这个错误,可我现在也没有找到办法解决
在此提出,希望有更多的人来共同探讨一下这外问题。
如果只是取得该字段内容应该没有问题。Txtstr=rs("abd")
#1
我现在也遇到了这个问题我在vb6中用ado连接mysql数据库
可以读得数据库中的数据但在修改该条记录时,只要新输入
的字段值的长度大于原值,便会出现你所说的错误,连接其它
数据库不会出现这个错误,可我现在也没有找到办法解决
在此提出,希望有更多的人来共同探讨一下这外问题。
如果只是取得该字段内容应该没有问题。Txtstr=rs("abd")
可以读得数据库中的数据但在修改该条记录时,只要新输入
的字段值的长度大于原值,便会出现你所说的错误,连接其它
数据库不会出现这个错误,可我现在也没有找到办法解决
在此提出,希望有更多的人来共同探讨一下这外问题。
如果只是取得该字段内容应该没有问题。Txtstr=rs("abd")