var
RecordAffected: integer;
rs: _Recordset;
begin
qry2.SQL.Text := 'exec xx';
qry2.Open;
rs := qry2.NextRecordset(RecordAffected);
if rs.State<>0 then
begin
ds.Recordset := rs;
while not ds.EOF do
begin
end;
end;
end;
NextRecordset要这么用
最新推荐文章于 2025-11-15 16:15:48 发布
本文展示了一个使用Delphi进行数据库操作的例子，其中包括通过执行存储过程来获取数据，并利用_Recordset对象遍历查询结果。
扫一扫
1064
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
