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

Комментарии

• ainatar

  December 2017 отредактировано 04:47

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

  December 2017 отредактировано February 2022

  Попробуйте внести изменения в 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 Казань

  November 2022

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

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

  November 2022

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