如何将 SQL 输出游标放入 Delphi 数据组件？

Question

我有一个带有这个签名的存储过程：

CREATE PROCEDURE SI_Inteligence(@dt datetime, @actions varchar(6), @FullData cursor varying out) 

这个过程返回一个打开的游标。

我需要什么样的组件来捕获它并逐条记录迭代它？它只是存储过程中的一个参数！

procedure DoIt;
var sp: TADOStoredProc;
    x: TADODataSet; //?
begin
  sp               := TADOStoredProc.Create(Self);
  sp.Connection    := myConnection; //TADOConnection Component
  sp.ProcedureName := 'SI_Inteligence';
  sp.Parameters.ParamByName('@dt').Value      := date;
  sp.Parameters.ParamByName('@actions').Value := 'something';
  sp.ExecProc;//? Open doesn't return anything
  x := TADODataSet.Create(Self);
  //How load the cursor??
  x.Assign(sp.Parameters.ParamByName('@FullData') as TADODataSet); //crash

end;

现在我需要循环那个光标。我该怎么做？

Answer 1

CURSOR 参数作为记录集返回，因此您可以使用与 TDataSet 类相关的 TADOStoredProc 方法迭代数据，例如 Eof、Next、FieldByName 等。

试试这个代码。

  ADOStoredProc1.ExecProc;
  while not ADOStoredProc1.Eof do
  begin
    //do something 
    //ADOStoredProc1.FieldByName('Foo').Value;    
    ADOStoredProc1.Next;
  end;

如果存储过程返回的不仅仅是一个游标，您可以使用NextRecordset 方法迭代记录集，如post 中所述。