Capturar si conecta adoconnetion
 

Que tal? tengo una pequeña duda y todavia no pude encontrar una solucion. Tengo un programa desarrollado en delphi, utilizo el ADOCONNECTION para conectarme a la DB. Mi idea es insertar un boton de "CONECTAR" que, cuando el usuario haga click, se conecte a la DB y esa conexion me devuelva un valor para luego preguntar si conectó o no, de acuerdo a eso tirar un mensaje de EXITO o ERROR. Lo mismo para un boton DESCONECTAR. Agradeceria su opinion. Saludos

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

Hola elrodrix.
¿ El TADOStoredProc está vinculado mediante la propiedad Connection, o mediante ConnectionString ?

Saludos. :)

los ADOSP los tengo vinculados por la propiedad connection. Tendra algo que ver?. Saludos y gracias !

Hay componentes que si los tienes conectados a un TADOConnection, al activarlos, activen de forma automática la conexión.
A ver si es eso lo que te está pasando...

Yo trabajo con ADOConnection y la conexión se realiza automáticamente (Connected se pone TRUE) al hacer una consulta SQL con ADOQuery, ADOCommand, ADOTable, etc... y para cerrar cualquier ADOQuery, ADOCommand, ADOTable, etc... sólo tienes que poner ADOConnection.Connected que sea False y se cierran todos los ADO's que estén relacionados con ADOConnection.

Un saludo.

Muchas gracias. Saludos

Ya lo pude solucionar. Gracias al ejemplo de ecfisa, pude arreglar el tema de la conexion. En cuanto a la burjeria rara de que ponia false al connected del ADOCONNECTION y los ADOSP seguian funcionando, directamente al ADOCONNECTION le puse en FALSE y le borre la cadena de connectionstring, entonces asi ningun componente reaccionaba. Luego antes del codigo que paso ecfisa, pongo la cadena de conexion en connectionstring del ADO, osea

DM1.ADOConnection1.ConnectionString:='aca va cadena de conexion'

y luego todo lo demas. Espero que les sirva.