Chequear conexion a sql

[antigrondona]

Empezado por Caro

No puedes asignar un valor a esa propiedad (es de solo lectura), solo puedes ver que valores toma en un cierto momento

Código Delphi [-] If ado.state = [stClosed] then ...............................


Saluditos

Me habia equivocado, ahora me hace el chequeo pero sólo si está abierta la conexión. Si corto manualmente la conexión, me debería dar cerrado pero no lo hace, queda intentando la conexion hasta que finalmente aborta.

[Neftali [Germán.Estévez]]

Si estás utilizando ADO, al hacer un Open, captura los errores que se generan.
Algo así:

Código Delphi [-]
try
   ADOConn.Open;
except
  on E:EOLEException do begin
    // error 
    MessageDlg(Format('Error: %s'+#13+#10+'Código: %d',
      [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
  end;
end;

Te lo pongo de memoria.

También puedes utilizar los eventos del TADOConnection. OnConnectComplete, OnWillConnect, AfterConnect.

Prueba a poner algun mensaje en ellos.

[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.

[[BlueSteel]]

Empezado por 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.

Esta buena esta funciona... tambien me sirve...

Salu2

[oesqueda]

Mi estimado bluesteel a tus ordenes ahí me agregas en los creditos o el huevo de pascua.
Jejejeje un saido

[antigrondona]

Empezado por Neftali

Si estás utilizando ADO, al hacer un Open, captura los errores que se generan.
Algo así:

Código Delphi [-]try ADOConn.Open; except on E:EOLEException do begin // error MessageDlg(Format('Error: %s'+#13+#10+'Código: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0); end; end;


Te lo pongo de memoria.

También puedes utilizar los eventos del TADOConnection. OnConnectComplete, OnWillConnect, AfterConnect.

Prueba a poner algun mensaje en ellos.

EOLEException me da error, identificador no declarado;

[Neftali [Germán.Estévez]]

Empezado por antigrondona

EOLEException me da error, identificador no declarado;

Pulsa F1 y la ayuda te dirá que debes añadir la unit ComObj.

[antigrondona]

Muchas gracias, perfecto quedó.

[oesqueda]

Y cual fue la definitiva? para que quede registrado para cualquiera que tenga esa duda y pueda resolver tambien su dilema

Saludos

[antigrondona]

El código de Neftalí o la función que vos propusiste, las 2 me funcionaron.

[*Caro*]

Empezado por antigrondona

Me habia equivocado, ahora me hace el chequeo pero sólo si está abierta la conexión. Si corto manualmente la conexión, me debería dar cerrado pero no lo hace, queda intentando la conexion hasta que finalmente aborta.

Acabo de hacer la prueba y al hacer esto:

Código Delphi [-]
  ADOConnection1.Connected := False;

y ver despues el state me lo pone en stClosed.

también puedes hacerlo como te indica Neftali.

Saluditos