Try Exception Zconnection

[JcTaztoman]

hola que tal, necesito un poco de ayuda de uds. bueno estoy haciendo un modulo de mi aplicacion, en el cual necestio hacer 2 conexiones a distintos servers para verificar las tablas de alguna base de datos.

al usuario le pido:Hostname, Databasename y nada mas. Despues con un boton hago la conexion a la base de datos del servidor que hayan puesto, eso ya lo hace, ya logro comparar la informacion. ahora lo que me detiene es hacer la validacion de los errores que de el Zconnection si llega el caso que el usuario teclee el nombre de la base de datos mal o si no tiene acceso a esa DB.

espero me hayan entendido y que puedan ayudarme

Gracias, por cierto uso:

PostgreSQL 7
Delphi 7
y ZEOSDBO-6.6.1-beta

[[Caral]]

Hola
No tengo instalados los componentes zeos pero creo que el asunto lo tienes claro, lo unico que hay que buscar es el procedimiento que acepte el Zconnection.
Try
Busca la base de datos
except
Lo que se necesite, puede ser un mensaje.
normalmente en el caso de transacciones seria asi:
Código Delphi [-]Try // lo que sea
except on E:Exception do DataModule1.AC1.RollbackTrans;
end;



Saludos

[JcTaztoman]

Empezado por Caral

Hola
No tengo instalados los componentes zeos pero creo que el asunto lo tienes claro, lo unico que hay que buscar es el procedimiento que acepte el Zconnection.
Try
Busca la base de datos
except
Lo que se necesite, puede ser un mensaje.
normalmente en el caso de transacciones seria asi:
Código Delphi [-]Try // lo que sea
except on E:Exception do DataModule1.AC1.RollbackTrans;
end;



Saludos

Gracias Caral. Ya he probado con eso pero aun asi me marca el error de que no existe la base de datos, ya se que no existe, pero reuqiero que me pueda manejar este tipo de error para el usuario y no me tire el sistema.

A continuacion pongo el codigo que empleo..

Código Delphi [-]
Try
zconnection1.HostName:=NxEdit1.Text;
zconnection1.Database:=NxEdit3.Text;
zconnection1.Connect;
bandera:=1;
except
on E : Exception do
ShowMessage('no se pudo conectar'+E.Message );
end;

[[Caral]]

Hola
Normalmente y esto lo digo gracias a que me lo recordó Egostar, estos errores suceden en tiempo de diseño, osea dentro del IDE de Delphi.
Lo as probado en el ExE, (el Ejecutable) ?
Comentanos?
Saludos

[JcTaztoman]

Empezado por Caral

Hola
Normalmente y esto lo digo gracias a que me lo recordó Egostar, estos errores suceden en tiempo de diseño, osea dentro del IDE de Delphi.
Lo as probado en el ExE, (el Ejecutable) ?
Comentanos?
Saludos

Ya lo he probado, y si efectivamente estos errores suceden en tiempo de diseño, como lo mencionas, hoy he aprendido algo nuevo.

Muchisimas Gracias de nuevo!!

[[Caral]]

Hola
Que bueno, hoy he recordado algo, gracias a un amigo.
Saludos