Хранимая процедура в Tfrxadoquery

DenOk

Добрый день.

Создал отчет, внутри которого во вкладку Data помещен компонент TfrxADOQuery. Там прописан вызов хранимой процедуры (MS SQL), которая имеет два результирующих набора. У обыкновенного TADOQuery есть фунцкия NextRecordset, чтобы указать компоненту что выборка будет происходить со следующего набора.

Есть ли аналог такой функции у TfrxADOQuery или как получить поля и данные из второго набора хранимки в TfrxADOQuery? Очень важно, чтобы это было реализовано в самом fr3 отчете.

Спасибо.

ainatar

я не спец но у возврат данных может быть только один.
как вариант переписать вашу процедуру так что данные передаются во временную таблицу #tab1 и #tab2

в первом query вызов процедуры и select * from #tab1
а во втором query select * from #tab2

и все.
таблици могут быть как созданы зарание так и в процебуре

gpi

Попробуйте внести изменения в frxADORTTI.pas

constructor TFunctions.Create(AScript: TfsScript);
begin
  inherited Create(AScript);
  with AScript do
  begin
    AddEnum('TADOLockType', 'ltUnspecified, ltReadOnly, ltPessimistic, ltOptimistic, ltBatchOptimistic');
    with AddClass(TfrxADODatabase, 'TfrxCustomDatabase') do
      AddProperty('Database', 'TADOConnection', GetProp, nil);
    with AddClass(TfrxADOTable, 'TfrxCustomTable') do
      AddProperty('Table', 'TADOTable', GetProp, nil);
    with AddClass(TfrxADOQuery, 'TfrxCustomQuery') do
    begin
      AddMethod('procedure ExecSQL', CallMethod);
      AddMethod('procedure NextRecordset', CallMethod);
      AddProperty('Query', 'TADOQuery', GetProp, nil);
    end;
  end;
end;

function TFunctions.CallMethod(Instance: TObject; ClassType: TClass;
  const MethodName: String; Caller: TfsMethodHelper): Variant;
begin
  Result := 0;

  if ClassType = TfrxADOQuery then
  begin
    if MethodName = 'EXECSQL' then
    begin
      TfrxADOQuery(Instance).UpdateParams;
      TfrxADOQuery(Instance).Query.ExecSQL
    end
  else if MethodName = 'NEXTRECORDSET' then
      TfrxADOQuery(Instance).Query.Recordset := TfrxADOQuery(Instance).Query.NextRecordset(RecAff);
  end;

mvb

Здравствуйте! Лучше поздно, чем никогда! Спасибо, так работает!

А в официальную версию изменения войдут? Или после обновления каждый раз надо правки восстанавливать?

mvb

Простите, не сюда написал )