Lograr conexion con Oracle via ADO

Post Reply
MarioDava
Posts: 18
Joined: Mon Jan 29, 2007 1:29 am

Lograr conexion con Oracle via ADO

Post by MarioDava »

Hola a todos,

Definitivamente necesito ayuda, que me esta fallando para lograr la conexion con mi base de Oracle 10g.

Mi codigo:

#include 'FiveWin.ch'
#include 'Ado.CH'

Main()

Local oCon, xConnStr

TRY
oCon:=toleauto():new("adodb.connection")
CATCH oError
MsgStop(oError:Operation,"Ado Connection")
END
TRY
xConnStr := "Provider=OraOLEDB.Oracle;Data Source=201.140.1.210:1521/cbs;Port:1521;User ID=cbs;Password=cbs;"
oCon:Open( xConnStr )
msginfo("nos hemos conectado a Oracle utilizando Ado")
CATCH oError
MsgStop(oError:Operation,"Ado Open")
END

El error que me manda es un mensaje tipo:

MsgStop( 'Open', 'Ado Open' ), este error lo marca en el comando oCon:Open( ....

simplemente no logro la conexión, los mismos datos de xConnStr, los tengo en mi archivo tnsnames.ora y si logro conectarme a la base por TOAD.

Por otro lado Provaider= OraOLEDB, no estoy seguro que tenga los archivos correctos, porque al buscar en mis archivos en c:\Oracle\product\10.1.0\Client_1\BIN\ solo tengo las siguientes DLL:

OraOLEDB10.dll
OraOLEDB10.tlb
OraOLEDB10e.dll
OraOLEDB10us.dll
OraOLEDBgmr10.dll
OraOLEDBpus10.dll
OraOLEDBrfc10.dll
OraOLEDBrmc10.dll
OraOLEDBrst10.dll
OraOLEDButl10.dll

Como pueden notar estoy usando OLE DB de Oracle.

De antemano agradezco la ayuda.

Saludos,
Mario A. Dávalos
México, D.F.
Post Reply