怎样用delphi 5读取 sql server 7.0存储过程返回的多个表？

[yzy]

[yzy]

补充：
Sql server 7.0 的存储过程
create procedure mypro
as
select abc as abcfield
select efg as efgfield
我用Delphi 5 的 TADOStoredProc 调用执行它
然后用TDataSource 连接返回的表
但只能返回第一个表，我应该怎么办？
vb的ado可用nextrecordset实现，但Delphi 的ado 不知怎样用。

[pjy]

我也想知道！

[huntout]

delphi語法我不熟，ado的recordset對象有NextRecordset方法

Set recordset2 = recordset1.NextRecordset( RecordsAffected )

RecordsAffected Optional. A Long variable to which the provider returns the number of records that the current operation affected.

[LittleStar]

use pubs
go
create proc Mypro
as
begin
SELECT * FROM AUTHORS
SELECT * FROM JOBS
end


procedure TForm1.FormCreate(Sender: TObject);
VAR I:INTEGER;
begin
try
I:=2;
MyQuery.sql.add('exec mypro');
MYQUERY.Active:=TRUE;
MYQUERY.RecordSet := MYQUERY.NextRecordset(I);//读第二个表
while not myquery.Eof do
begin
memo1.lines.add(myquery.FieldByName('job_desc').asstring);
myquery.Next;
end;
finally

end;
//ADODataSet1.Active:=TRUE;
end;

[yzy]

我还是不明白NextRecordset()中所传递的RecordsAffected参数的用处是什么。
还有当
use pubs
go
create proc Mypro
as
begin
--update,insert在这里插入后，就读不了后面的表了
SELECT * FROM AUTHORS
SELECT * FROM JOBS
end
谢谢！

[yzy]

请教各位高手！

[yzy]

改版后为何没人答我的问题？

[ustczhy]

能否用ODBC连接SQL Server7.0然后再编程

[yzy]

单现在我用的是ADO连接，难道ODBC可以解决这个问题吗？