Компонент TADOStoredProc. Несколько хранимых процедур.

[yasic]

Доброго времени суток! Подскажите пожалуйста, можно ли 1 компонентом TADOStoredProc выполнить несколько хранимых процедур? Как?

[vovk]

Легко,
сначала выполняем 1,
потом вторую
потом третью..

Или пишем хранимую процедуру которая запускает все нужные нам хранимые процедуры, и заметьте тоже не одновременно, а последовательно. И запускаем её с помощью TADOStoredProc.

[yasic]

Делаю вариант 1.
Первая хранимка выполняется отлично, вторая - "Cannot perform this operation on an open dataset". Если добавляю еще TADOStoredProc и привязываю ко второй ХП то работает.
Сообщение появляется при ADOStoredProc.ProcedureName

[vovk]

Не надо меня пугать словами, напугайте кодом))

[yasic]

procedure TOptions.ComboFill(ProcName: string; const ACombo: TComboBox);
begin
with frmMain do begin
 with frmMain.ADOStoredProc do begin
    ProcedureName := WideString(ProcName);
    Prepared := True;
    Active := True;
    ExecProc;
 end;
 ADOStoredProc.First;
    while not ADOStoredProc.Eof do begin
      ACombo.Items.Add(Trim(ADOStoredProc.FieldByName('property').Text));
      ADOStoredProc.Next;
    end;
end;
end;

Если выполнилась ComboFill то LoadConf выдает ошибку

procedure TOptions.LoadConf(ProcName: string);
begin
with frmMain do begin
 with frmMain.ADOStoredProc do begin
     ProcedureName := WideString(ProcName); <- Вот здесь
     Active := True;
     Prepared := True;
     ExecProc;
 end;
..................................

[vovk]

ну если процедура селективная , то я думаю что после выполнения ADOStoredProc надо закрывать как датасет

ADOStoredProc.close

, или

ADOStoredProc.active := false;

что одно и тоже.

ЗЫ кстати на это явно намекает ошибка

"Cannot perform this operation on an open dataset"

[yasic]

vovk Вы правы. Большое спасибо! Работает! Тему можно закрыть!