Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-03-2019
carlos gonzalez carlos gonzalez is offline
Miembro
 
Registrado: may 2005
Posts: 108
Poder: 19
carlos gonzalez Va por buen camino
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
Responder Con Cita
  #2  
Antiguo 25-03-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
No necesitas nada especial:
Código Delphi [-]
Conectar
try
  Abrir Tablas Que Necesitas
except
  No Hay Conexión
end
Responder Con Cita
  #3  
Antiguo 25-03-2019
carlos gonzalez carlos gonzalez is offline
Miembro
 
Registrado: may 2005
Posts: 108
Poder: 19
carlos gonzalez Va por buen camino
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
Responder Con Cita
  #4  
Antiguo 25-03-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Esto tiene que funcionar como quieres:
Código Delphi [-]
try
  conectar
except
  tu mensaje
end
Responder Con Cita
  #5  
Antiguo 25-03-2019
carlos gonzalez carlos gonzalez is offline
Miembro
 
Registrado: may 2005
Posts: 108
Poder: 19
carlos gonzalez Va por buen camino
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
Imágenes Adjuntas
Tipo de Archivo: jpg error.jpg (11,8 KB, 23 visitas)
Responder Con Cita
  #6  
Antiguo 25-03-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por carlos gonzalez Ver Mensaje
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.
Responder Con Cita
  #7  
Antiguo 26-03-2019
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #8  
Antiguo 28-03-2019
orodriguezca orodriguezca is offline
Miembro
 
Registrado: ene 2009
Posts: 221
Poder: 16
orodriguezca Va por buen camino
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.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
conexion con base de datos jeluso1972 Conexión con bases de datos 6 15-10-2018 19:25:02
Conexion con Base de Datos EJLR Lazarus, FreePascal, Kylix, etc. 7 10-10-2011 16:52:11
Conexion a base de datos Sacmaed Conexión con bases de datos 8 06-06-2010 23:12:33
Validar busqueda en base de datos lucho1981 Conexión con bases de datos 12 19-11-2008 19:45:28
Conexion de Base de Datos DBF jmedina Conexión con bases de datos 4 13-09-2004 09:06:34


La franja horaria es GMT +2. Ahora son las 20:44:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi