Chequear conexion a sql

[oesqueda]

Paso una funcion para que revises si esta conectado tu TADOConnection.

Código Delphi [-]
Function ConectarDB(var AMsg:string):boolean;
begin
try
  ADOConnection.CLOSE;
  ADOConnection.connectionstring = 'CADENA DE CONEXION';
  ADOConnection.OPEN;
  AMsg := '';
except
  on e: exception do
    AMsg := e.message;
end;

result := ADOConnection.Connected;
end;

Pasas la variable AMSG y ahi obtienes el mensaje en caso de no conectarse.