FiveTech Software tech support forums

Y el contenido del archivo TNSNAMES.ORA ?

César:

Aquí el contenido

Code: Select all  Expand view

CONEXION_CLIENT=
  (DESCRIPTION=
    (ADDRESS=
      (PROTOCOL=TCP)
      (HOST=localhost)
      (PORT=1521)
    )
    (CONNECT_DATA=
      (SERVER=dedicated)
      (SID=XE)
    )
  )

AL inicio hay varios comentarios que omití

Saludos

Esto no te funciona?

Code: Select all  Expand view

    cConnStr := "Provider=MSDASQL.1;Password =91502127;Persist Security Info=False;User ID=system;Data Source=localhost"
    oCn := FW_OpenAdoConnection( cConnStr )
    IF oCn = NIL
       MsgStop( "Error al conectarse a ORACLE!!","Error al conectar")
       RETURN nil
    ENDIF

Puedes probar el truco de Rafa Thefull
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=28910&p=162793&hilit=cadena+conexion&sid=3e9e58bc35d13bd4a84154ffbb59ec50&sid=3e9e58bc35d13bd4a84154ffbb59ec50#p162793

César:

Pues no hay de piña !

Con la cadena que tú me proporcionas no va.

Con el truco de The Full, me genera una cadena de conexión
y tampoco va.

Debo mencionar que Oracle lo tengo instalado en la unidad D: y en
las variables de entorno así esta especificado.

Saludos

Cual es la cadena que te genera con el truco de The Full?

César:

Aquí esta

Code: Select all  Expand view

[oledb]
; Everything after this line is an OLE DB initstring
Provider=OraOLEDB.OLAP.1;Password=91502127;Persist Security Info=True;User ID=SYSTEM;Data Source=conexion_client
 

Y este es código que uso desde FW, aparece el espantoso mensaje !

Code: Select all  Expand view

   oConnStr := "Provider=OraOLEDB.OLAP.1;Password=91502127;Persist Security Info=True;User ID=SYSTEM;Data Source=conexion_client"

   oCn   := FW_OpenAdoConnection(oConnStr)
   IF oCn   = NIL
      MsgStop("Error de conexión a ORACLE")
      RETURN(Nil)
   ENDIF
 

Saludos

Paisa se me hace que tienes un corta fuego, firewall
quizás tengas que ejecutar tu app/modo administrador
saludos

César & César:

Tampoco, lo ejecuto como administrador sin éxito.

Saludos

Armando:
Segun esto

Armando wrote:

tu data source debería ser localhost no conexion_client (Excepto que lo hayas cambiado)
Intenta con esta cadena y tambien prueba con el segundo parametro en .t. a ver que error te devuelve:

Code: Select all  Expand view

   oConnStr := "Provider=OraOLEDB.OLAP.1;Password=91502127;Persist Security Info=True;User ID=SYSTEM;Data Source=localhost"
   oCn   := FW_OpenAdoConnection(oConnStr,.t.)
   IF oCn   = NIL
      RETURN(Nil)
   ENDIF

César:

Con el segundo parámetro a TRUE ADO manda un error

Y con la cadena sugerida no hay éxito

Voy a intentar reinstalando Oracle en el disco C, avisaré que sucede

Saludos

Armando:
Que versión de Fivewin usas? Tal vez yo tenga una versión más antigua que la tuya

César:

Es la 2307.

Saludos

Si, es mas reciente que la mia
La que yo tengo la function Fw_OpenAdoConnection( cConnStr, lShowError, oErr ) acepta esto tres valores, cadena, mostrar o no error, y el error obtenido (para pasar como referencia)
Fijate en sources\function\adofuncs.prg si tiene otros parametros

César:

Esta es la función

Code: Select all  Expand view

function Fw_OpenAdoConnection( cConnStr, lShowError, oErr )
 

Saludos

Armando wrote:César:
Con el segundo parámetro a TRUE ADO manda un error

Armando, que error te da?