Comprobar conexión con Delphi

[dante148]

Buenas mis estimados!!
una vez mas quisiera preguntar algo sobre lenguaje de programación, veran, lo que quiero hacer es tener un boton en mi aplicación el cual tenga la funcionalidad de comprobar la conexión entre mi aplicacion y Mysql, he buscado por muchas partes sin logro alguno, intente de la siguiente manera.

Código Delphi [-]
 
ADOQuery1.ConnectionString:=(todo lo que tiene que llevar);
ADOQuery1.open;
if ADOQuery1.Active=true then showmessage('Conexión exitosa!!);

pero sin ninguna respuesta.
espero que aguien tenga la respuesta
de antemano muchas gracias

[ecfisa]

Hola dante148.

Código Delphi [-]
 lo que quiero hacer es tener un boton en mi aplicación el cual tenga la funcionalidad de comprobar la conexión entre mi aplicacion y Mysql

Creo que deberías comprobar la conección primero y si estas conectado luego abrir la consulta y de no estar conectado, realizar las acciones pertinentes, algo más o menos así:

Partiendo desde el TADOQuery:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ADOQuery1.Connection.Connected then
    ADOQuery1.Open
  else
    raise Exception.Create('Error no esta conectado a la base de datos'); // ó ADOQuery1.Connection.Connected:= True ...
end;

O directamente desde el TADOConnection:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  if ADOConnection1.Connected then
   ADOQuery1.Open;
  else
    raise Exception.Create('Error no esta conectado a la base de datos'); // ó ADOConnection1.Connected:= True ...
end;

Los dos ejemplos son equivalentes.

Un saludo.