paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: oracle connection fixes:

Browse Source 
- unregister on finalization instead of register
- check cursor is assigned in rowsaffected
Patch by Laco.

git-svn-id: trunk@27944 -
This commit is contained in:
reiniero 2014-06-13 12:31:04 +00:00
parent d83fb7790e
commit 7863213048
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
View File

@ -732,7 +732,7 @@ end;
function TOracleConnection.RowsAffected(cursor: TSQLCursor): TRowsCount;
var rowcount: ub4;
begin
if OCIAttrGet((cursor as TOracleCursor).FOciStmt, OCI_HTYPE_STMT, @rowcount, nil, OCI_ATTR_ROW_COUNT, FOciError) = OCI_SUCCESS then
if Assigned(cursor) and (OCIAttrGet((cursor as TOracleCursor).FOciStmt, OCI_HTYPE_STMT, @rowcount, nil, OCI_ATTR_ROW_COUNT, FOciError) = OCI_SUCCESS) then
Result:=rowcount
else
Result:=inherited RowsAffected(cursor);
@ -1112,6 +1112,6 @@ end;
initialization
RegisterConnection(TOracleConnectionDef);
finalization
RegisterConnection(TOracleConnectionDef);
UnRegisterConnection(TOracleConnectionDef);
end.