Chequear conexion a sql

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