2,497
社区成员
发帖
与我相关
我的任务
分享
function Exec_Proc4: Boolean;
var
rs: _Recordset;
recordCount: Integer;
sqn: integer;
name: string;
begin
result := true;
query.close;
query.sql.clear;
query.sql.add('call p_test2(:sqn, :name)');
query.Parameters[0].value := 1;
query.Parameters[1].value := 'test';
try
query.open;
// 获得第二个结果集中的数据
rs := query.NextRecordset(recordCount);
if rs <> nil then
begin
sqn := rs.Fields[0].value;
name := rs.Field[1].value;
end;
// 获得第二个结果集,第二个结果集用于grid显示
// 设置query2与grid的关联关系(通过datasource)
// rs := query.NextRecordset(recordCount);
// query2.recordSet := rs;
except
result := false;
end;
end;