可以这样做,我以前也碰到这个问题: 执行完存储过程之后,关掉数据集,然后再重新打开 Set RS = mycommand.Execute() RS.Close RS.Open "exec GetFields '" & tlbname & "'"'GetFields:存储过程名,tlbname:参数 Set sqlRS = RS
set Rs=cn.execute ("存储过程名 '"& 参数名 &"'") 'cn为数据库联接在存储过程中最好加一句: set nocount on
Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset .. cn.open Set rs = cn.Execute("exec sp1")之後 rs.movelast 或 rs.MoveFirst rs.MoveNext rs.MovePrevious 的時候确會出錯,關注ing.....
然后就可以用
rs.MoveFirst
rs.MoveNext
rs.MoveLast
rs.MovePrevious
执行完存储过程之后,关掉数据集,然后再重新打开
Set RS = mycommand.Execute()
RS.Close
RS.Open "exec GetFields '" & tlbname & "'"'GetFields:存储过程名,tlbname:参数
Set sqlRS = RS
set nocount on
Dim rs As New ADODB.Recordset
..
cn.open
Set rs = cn.Execute("exec sp1")之後 rs.movelast
或 rs.MoveFirst
rs.MoveNext
rs.MovePrevious
的時候确會出錯,關注ing.....