Как определить потерю связи?

[Сергей089]

Всем доброго вечера. Как определить потерю связи с БД? Попробовал код

procedure TDataModule1.ADOConnection1ExecuteComplete(
  Connection: TADOConnection; RecordsAffected: Integer; const Error: Error;
  var EventStatus: TEventStatus; const Command: _Command;
  const Recordset: _Recordset);
begin
if EventStatus=esErrorsOccured
   then begin
        try
        while ADOConnection1.DataSetCount>0 do
          ADOConnection1.DataSets[0].Connection:=nil;
        ADOConnection1.Close;
        showmessage('Ïîêà!');
        Form1.Close;
        finally
        end;
        end;
end;

Но эта процедура вызывается только при старте соединения.

[golopjatov]

Может запускать процедуру по таймеру (с выдачей сообщения о потере связи)... не знаю. просто предложение. Или делать проверку состояния подключения перед выполнением к примеру добавления, изменения и т.п. действий?..

[evg_m]

try
 adoquwry.sql.text:='select .... ';
 adoquery.open;

except

 end;

[rdama]

Ну а может так...

 if ADOConnection.Connected = True Then

[Сергей089]

Сообщение от rdama

Ну а может так...

 if ADOConnection.Connected = True Then

Не получилось. Connected остается true.

[Сергей089]

Сообщение от golopjatov

Или делать проверку состояния подключения перед выполнением к примеру добавления, изменения и т.п. действий?..

А есть ли такая процедура, которая обязятельно вызывается для всех этих действий?

[rdama]

  if ADOConnection1.State = [stClosed] then
    ShowMessage('Close');
  if ADOConnection1.State = [stOpen] then
    ShowMessage('Open');

[Stilet]

Как определить потерю связи с БД?

Один мой знакомый говаривал что можно банально перед всеми операциями выполнять запрос типа select 1 или select 1 from dual (для Оракла), таким образом БД не напрягается, и проверяется готовность БД

[Сергей089]

перед всеми операциями выполнять запрос

Ну так не интересно искать в коде все операции. А можно ли эту проверку где-нибудь в одном месте поставить для всех сразу? И почему не вызывается метод TDataModule1.ADOConnection1ExecuteC omplete после ADOTable1.Post;?

[rdama]

Попробуй через ADOConnection1.State. Предыдущий мой пост.