Проверка подключения ADOConnection

[ercartman]

Подключаюсь к MSSQL через ADOConnection. С базой работаю по сети.
Бывают обрывы связи.
Как проверить существует ли в данный момент соединение с базой?

[Stilet]

Переконнектится?
Или попинговать машину, где СУБД вращается.

[ercartman]

Пробую переконектиться после каждого действия.

ADOConnection1.Connected:=false;
ADOConnection1.Connected:=true;
ADOTable1.Active:=true;
ADOTable2.Active:=true;

на

ADOTable1.Active:=true;

выдает ошибку
[DBNETLIB][ConnectionWrite(send())]Общая ошибка сети. Обратитесь к документации по сети.
После второго обращения. Выдает ошибку:
Ошибка подключения.
И только после этого уже работает.

[evg_m]

Пробую переконектиться после каждого действия.

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

[Stilet]

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

А я вообще бы посоветовал динамически создать подключение-получить набор- отсоединится:

var ado:TADOQuery;
begin
 ado:=TADOQuery.Create(nil);
 ado.ConnectionString:=...
 ado.SQL.Text:='Select ...
 ado.Open;

 while not ado.Eof do begin
  ... Получаем данные в некий массив
  ado.Next;
 end;
 ado.Free;ado:=nil;
end;

[ercartman]

перед каждым действием делаю следующее

procedure TForm1.QueryActive(Var Sender: TADOQuery;SQL:string);
begin
conect; // тут разрываем и устанавливаем соединение adoconnection как написано выше
Sender.Active:=false;
Sender.SQL.Text:=SQL;
Sender.Active:=true;
end;

для ExecSQL такая же процедура

[evg_m]

и разрывать связь после каждого действия

conect; // тут разрываем и устанавливаем соединение adoconnection как написано выше
Sender.Active:=false;
Sender.SQL.Text:=SQL;
Sender.Active:=true;
disconnect; //а теперь пока соединение еще жмво отключаем его