[elrodrix]

Empezado por ecfisa

Hola elrodrix.

Si entendí bién lo que buscas, podes consultar y/o modificar la propiedad Connected del TADOConnection, cuyo valor es True si está conectado y False si no.

Un ejemplo a las apuradas:

Código Delphi [-]
procedure TForm1.btnConectarClick(Sender: TObject);
begin
  with ADOConnection1 do
  begin
    if Connected then
    begin
      MessageBox(Handle,'Ya está conectado a la base de datos','',MB_OK);
      Exit
    end;
    try
     Connected := True;
     except
       raise Exception.Create('Error al conectar con la base de datos');
     end;
  end;
end;

Saludos.

Muchas gracias! .. voy a probar de esta manera.

Otra consulta rapida: cuando pongo en FALSE la propiedad conected en tiempo de diseño, y corro el programa, los adostoredprocedure funcionan normalmente, como si fuese que conected esta en TRUE! jaja, no se porque !. Saludos