Validar Conexion a Base De Datos
 

Hola Amigos buenos días.
Alguien sabe de que manera puedo validar si una base de datos o el servidor esta disponible, tengo una aplicación desarrollada en Delphi 7 y utilizo dbexpress para conexión a la base de datos. Es muy común que den de baja el servidor o la base de datos para hacer algún mantenimiento. Lo que quiero hacer es que al iniciar el sistema antes que nada valide la conexión de la bd o del servidor para ver si están disponibles, en el caso de que no estén disponibles mandar algún mensaje y cerrar la aplicación, en lugar de que solo me mande el error de conexión de base de datos, ya intente varias funciones pero no me han dado resultado. Alguien sabe como pudiera hacer esto y que me lo pudieran compartir, se los agradecería infinitamente.

Su amigo Charless

No necesitas nada especial:

Código Delphi [-]
Conectar
try
  Abrir Tablas Que Necesitas
except
  No Hay Conexión
end

Esa opción ya la intente, el problema es que manda primero el mansaje de error de conexión de base de datos y pasma la aplicación y ya hasta que se responden todos los mensajes llega a la excepción y quisiera atrapar en alguna variable la exepción para poderla controlar el evento

Esto tiene que funcionar como quieres:

Código Delphi [-]
try
  conectar
except
  tu mensaje
end

Este es el error que aparece al momento de abrir la conexión antes de llegar a la a excepción

anexo la imagen del mensaje

Imagino que tendrás puesto algo para que se muestre.
Pon el código fuente que lo veamos, no podemos adivinar.

Prueba a visualizar la clase de la Excepción para luego capturarla correctamente.

Código Delphi [-]
try   conectar except
  on E:Exception do begin
    ShowMessage('Tu Mensaje; - MENSAJE: ' + E.Message + '  - CLASE: ' + E.ClassName)
  end;
end

Una vez que sepas la clase de la excepción que genera la conexión fallida puedes capturarla correctamente.

El error que te está mostrando lo genera la libreria de Client Access cuando un Power I (AS/400) está negando las conexiones a la base de datos. Este error es lo suficientemente explicito para saber que la base de datos no está disponible. Para poder avanzar en la solución del problema es vital que nos muestres tu código fuente, sino no hay forma de colaborar. De todas maneras verifica si el componente de conexión a la base de datos o algún dataset está abierto en tiempo de diseño; esto es, con frecuencia, la causa de este tipo de problemas.