Hola, si mas o menos entiendo lo que quieres te diría que lo hagas de la siguientes manera (almenos yo lo hago asi)
// Copio el perfil de la conexion...
// Aki van las lineas del Perfil de conexion que se creo
CONNECT; // Con esta linea indicas que se conecte a la base de datos
if SQLCA.SQLCODE = -1 then // Validas que la conexion sea correcta. SI -1 = error
messagebox('Conexion de base de datos','Ocurrió un error al conectarse a la BD',Stopsign!) // Aqui va el MENSAJE PERSONALIZADO que quieres que salga
Return // Terminas el proceso
end if
Open(w_ventana) // Si es que pasa las lineas anteriores abres la ventana que deseas.
Espero te sirva en algo...
dcnseC
