Ver Mensaje Individual
  #1  
Antiguo 29-08-2019
jams73 jams73 is offline
Miembro
 
Registrado: abr 2013
Posts: 16
Reputación: 0
jams73 Va por buen camino
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?
Responder Con Cita