Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты!
Вопрос такой: Есть приложение, которое использует хранимые процедуры из MS SQL через компонент ADOStoredProc. Но могут возникать ситуации, когда на сервере этих процедур нет. Подскажите, как лучше сделать обработку такой ситуации. Я пытался инициализировать процедуры через компонент ADOQuery, забивая туда SQL код и выполняя присваивание свойсва active:=true в конструкции try .. finally. Но при попытке создания уже существующих процедур, все равно в приложении вылезает ошибка о том, что процедура уже есть.
Спасибо.

Вопрос задал: HotMan (статус: Посетитель) Вопрос отправлен: 19 января 2008, 11:44 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, HotMan!
Меня всегда поражали решения "в обход". А почему бы не решить задачу "прямым путём"?
Например так - узнать список процедур, а потом самому смотреть, что там есть. Для этого поставим на форму мемо и TADOConnection, который должен быть настроен на подключение к базе. А в FormCreate напишем где то такой код

procedure TForm1.FormCreate(Sender: TObject);
var
  NameField: TField;
  DataSet:   TADODataSet;
begin
  if ADOConnection1.Connected then
  begin
    DataSet := TADODataSet.Create(nil);
    try
      ADOConnection1.OpenSchema(siProcedures, EmptyParam, EmptyParam, DataSet);
      NameField := DataSet.FieldByName('PROCEDURE_NAME'); { do not localize }
      while not DataSet.EOF do
      begin
        Memo1.Lines.Add(NameField.AsString);
        DataSet.Next;
      end;
    finally
      DataSet.Free;
    end;
  end;
end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 19 января 2008, 13:14 Оценка за ответ: 5

Мини-форум вопроса

HotMan (статус: Посетитель), 19 января 2008, 11:54 [#1]: вот код, где я пытаюсь выполнить инициализацию процедур try init_sp.Active := True; finally init_sp.Active := false; end;

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.