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 )
Armando wrote:César:
Con el segundo parámetro a TRUE ADO manda un error
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: jose_murugosa and 42 guests