FiveTech Support Forums

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

    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

[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

   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

   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

function Fw_OpenAdoConnection( cConnStr, lShowError, oErr )