From 9c554a6b3fee0b2c3b10e832565f880654b523fa Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Sun, 29 Apr 2007 15:33:58 +0000 Subject: [PATCH] Oracle support, thanks to Srdjan Dragojlovic --- harbour/contrib/adordd/adordd.prg | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/harbour/contrib/adordd/adordd.prg b/harbour/contrib/adordd/adordd.prg index edb9f3c2b3..05a411df6f 100644 --- a/harbour/contrib/adordd/adordd.prg +++ b/harbour/contrib/adordd/adordd.prg @@ -153,7 +153,19 @@ STATIC FUNCTION ADO_OPEN( nWA, aOpenInfo ) "server=" + s_cServer + ; ";database=" + aOpenInfo[ UR_OI_NAME ] + ; ";uid=" + s_cUserName + ; - ";pwd=" + s_cPassword, adOpenKeyset, adLockOptimistic ) + ";pwd=" + s_cPassword, adOpenKeyset, adLockOptimistic ) + + case s_cEngine == "ORACLE" + oAdo:CursorType = adOpenStatic + oAdo:CursorLocation = adUseClient + oAdo:LockType = adLockPessimistic + oAdo:Open( s_cQuery + s_cTableName,; + "Provider=MSDAORA.1;" + ; + "Persist Security Info=False" + ; + If( s_cServer == NIL .OR. s_cServer == "",; + "", ";Data source=" + s_cServer ) + ; + ";User ID=" + s_cUserName + ; + + ";Password=" + s_cPassword, adOpenKeyset, adLockOptimistic ) endcase