fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Oracle support, thanks to Srdjan Dragojlovic

Browse Source
This commit is contained in:
Antonio Linares
2007-04-29 15:33:58 +00:00
parent 4d0b0e8843
commit 9c554a6b3f
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
harbour/contrib/adordd/adordd.prg
View File

@@ -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