NextRecordset
Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset Cmd.ActiveConnection = "DSN=MySamples;UID=sa"
Cmd.CommandText = "MyNextProc"
Cmd.CommandType = adCmdStoredProcSet rs = Cmd.Execute()
While Not rs Is Nothing
If (Not rs.EOF) Then
Debug.Print rs(0)
End If
Set rs = rs.NextRecordset()
Wend
Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset Cmd.ActiveConnection = "DSN=MySamples;UID=sa"
Cmd.CommandText = "MyNextProc"
Cmd.CommandType = adCmdStoredProcSet rs = Cmd.Execute()
While Not rs Is Nothing
If (Not rs.EOF) Then
Debug.Print rs(0)
End If
Set rs = rs.NextRecordset()
Wend
解决方案 »
- 求数据库经典的资料
- 关于xpstar90.dll错误
- 如何显示分组数据,类似PB中的数据报表
- round函数应用
- 菜鸟初学者问题
- 急!为什么我的SQLSERVER2000版本在Windows XP下面不能安装?...
- Mdf文件附加的时候出错!高手快进来看看,适当的收费也可以,急啊!
- bcp 在SQLSERVER查询分析器执行正常,在程序里就出现错误?请指教!
- 如何统计表中有多少批人??急!!!!,在线
- 请求 foxpro(版本忘掉,在dos下的),谢谢
- 如何从win98+sql7的数据库中把数据倒到win2000p+sql2000中,二者异构,要求实时更新目标库
- 这么一个项目,求助各位兄弟------有没有好的解决方案
SELECT type, price, advance
FROM titles
ORDER BY type
COMPUTE SUM(price), SUM(advance) BY type改为:
select type, SUM(price) price, SUM(advance) advance from
(SELECT type, price, advance
FROM titles
ORDER BY type) A
group BY type