读书人

新手

发布时间: 2012-04-27 11:57:44 作者: rapoo

新手求助
test01 = "select bmb01 主料,bmb03 原料,' ',bmb06/bmb07 用量 from bmb_file where bmb01 = " & "'" & ima011.Text & "'" '有问题
'test01 = "select bmb01 主料,bmb03 原料,bmb06/bmb07 用量 from bmb_file where bmb01 = " & "'" & ima011.Text & "'" '没问题

Set rs = New ADODB.Recordset
rs.Open test01, cn, adOpenKeyset, adLockOptimistic
Set bmb.DataSource = rs
bmb.Refresh
l_cn2 = bmb.Columns.Count

test01的2个sql,第一个和第二个的区别就是在原料后面多了个空格,但是第二句就有问题了,报实时错误 '7004' 行集合不能作为标签的错误。

但是这2句sql都没有问题,都可以单独执行。
请教各位是什么问题呢?

[解决办法]
cn或rs要使用客户端游标。
.
.
cn.CursorLocation = adUseClient
cn.open

.
.
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open test01, cn, adOpenKeyset, adLockOptimistic
Set bmb.DataSource = rs
bmb.Refresh
l_cn2 = bmb.Columns.Count

读书人网 >VB

热点推荐