Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Que pasa con las conecciones (https://www.clubdelphi.com/foros/showthread.php?t=94152)

jams73 29-08-2019 18:42:56

Que pasa con las conecciones
 
Hola, como estan, tengo un problema con DELPHI 6, lo ejecuto en Win 10, tengo un proyecto que se conecta a base de datos de ORACLE, sin problemas hasta que cambie de maquina, no entiendo porque razon me saca un error de vez en cuando, pero en esas ocaciones si que me saca canas verdes porque cuando quiere se desaparece el mensaje y ya me deja trabajar, y cuando menos lo espero me manda el mensaje de nueva cuenta.

With ApplicationX.ADOConexion do begin
Connected := False;
Mode := cmReadWrite;
LoginPrompt := False;
Try
ConnectionString := 'Provider=OraOLEDB.Oracle.1;'+
'Password='+LowerCase(Conexion[1])+'prod;'+
'Persist Security Info=True;'+
'User ID='+Conexion[1]+';'+
'Data Source='+Conexion[0]+';'+
'Extended Properties=""';
Connected := True;
ApplicationX.PasswordConexion := LowerCase(Conexion[1])+'prod';
Except
Try
ConnectionString := 'Provider=OraOLEDB.Oracle.1;'+
'Password='+LowerCase(Conexion[1])+'pruebas;'+
'Persist Security Info=True;'+
'User ID='+Conexion[1]+';'+
'Data Source='+Conexion[0]+';'+
'Extended Properties=""';
Connected := True;
ApplicationX.PasswordConexion := LowerCase(Conexion[1])+'pruebas';
Except
ShowMessage('Error al conectarse a la base de Datos, Revisar X.ini');
ApplicationX.Terminate;
Exit;
End;
End;

Es como hago la coneccion, y cuando conecto manda el error "Proyect X.exe raised exception class EOleException with message 'p'. Process stopped. Use Step or Run to continue." Y no se que pueda ser ya, como te comente ocaciones todo bien y luego me pasa eso, Crees que me pudieras ayudar?

Casimiro Notevi 29-08-2019 20:10:59

Por favor, no olvides poner las etiquetas para código.



Teto10 02-09-2019 18:47:45

Hola bueno creo mas o menos entender el codigo, aunque tengo algo de experiencia con Delphi, sin embargo se agradece el codigo


La franja horaria es GMT +2. Ahora son las 16:47:10.

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