呵呵,你是想既执行事务,又返回记录集吧,不要用RDS了,用ADO的RS一样的。Private Sub ForYou()
Dim adoConn as New ADODB.Connection
Dim adoRS as New ADODB.Recordset adoConn.open "xxxxxxx"
adoRS.open " Begin Tran Set NoCount On" & _
" You Code Go Here " & _
" Set NoCount Off Commit Tran " & _
" Select * from Server.DB.Owner.Object ",adoConn
adoRS.Close
Set adoRS=Nothing
adoConn.Close
Set adoConn=NothingEnd Sub其实你不使用Set NoCount Off/On 也可以通过 adoRS的NextRecordSet取得
你在批处理中的各个记录集,但是MS的ADO对一个CONNECTION对象的返回记录集
个数有限制。
Dim adoConn as New ADODB.Connection
Dim adoRS as New ADODB.Recordset adoConn.open "xxxxxxx"
adoRS.open " Begin Tran Set NoCount On" & _
" You Code Go Here " & _
" Set NoCount Off Commit Tran " & _
" Select * from Server.DB.Owner.Object ",adoConn
adoRS.Close
Set adoRS=Nothing
adoConn.Close
Set adoConn=NothingEnd Sub其实你不使用Set NoCount Off/On 也可以通过 adoRS的NextRecordSet取得
你在批处理中的各个记录集,但是MS的ADO对一个CONNECTION对象的返回记录集
个数有限制。
这个问题没办法解决(当然也许能解决),最好改用三层结构,不用RDS访问数据库。