vfp使用ADO访问SQL，如何一次返回多个结果表

[gavinou]

我用ADO访问SQL，需要返回2个结果表。但我用recordset，只能返回1个结果集，另1个不知怎样拿，请帮忙

oCmd=CREATEOBJECT("ADODB.Command")
ocmd.commandtext="ostore1"
ocmd.commandtype=4 && 存储过程


oConn=CREATEOBJECT("ADODB.Connection")
oConn.Open(this.conString)
oCmd.ActiveConnection=oConn
oRs=CREATEOBJECT("ADODB.Recordset")
oRs=oCmd.Execute()
DO WHILE NOT oRs.eof
oRs.movenext() && 拿第一个表
enddo

[wwwwb]

oCmd1=CREATEOBJECT("ADODB.Command")
ocmd1.commandtext="ostore1"
ocmd1.commandtype=4 && 存储过程

oCmd1.ActiveConnection=oConn
oRs1=CREATEOBJECT("ADODB.Recordset")
oRs1=oCmd1.Execute()
DO WHILE NOT oRs1.eof
oRs1.movenext() && 拿第二个表
enddo

[十豆三]

vfp用ADO不如ODBC灵活

[cxmcxm]

对于象"select * from 表1　select * from 表2"这样的查询，
adorecordset的nextrecordset返回第二个表
如
ocon=newobject('adodb.connection')
ocon.connectionstring="连接串"
ocon.open
ocmd=newobject("adodb.command")
ocmd.activeconnect=ocon
orec=newobject("adodb.recordset")
ocmd.commandtext="select * from A表 select * from B表"
orec.activecommand=ocmd
ocmd.execute()
*得到第一个表(A表)
orec1=newobject('adodb.recordset')
orec1=orec.nextrecordset &&执行此方法得到第二个表(B表) ，对存储过程，道理相同

[cxmcxm]

movenext只是操作当前recordset.

[hglltm]

顶,非常需要