TOracleConnection.RowsAffected

Original Reporter info from Mantis: lacak @lacak.sk

• Reporter name: LacaK

Description:

TOracleConnection.RowsAffected is not implemented.

Based on http://forums.oracle.com/forums/thread.jspa?threadID=1026262&tstart=58
patch may be:

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
    Result:=rowcount
  else
    Result:=inherited RowsAffected(cursor);
end;

//but untested, because I do not work with Oracle

Additional information:

Report based on question in http://lazarus.freepascal.org/index.php/topic,9806.0.html

Mantis conversion info:

• Mantis ID: 16885
• Version: 2.5.1
• Fixed in revision: 18127 (#e62a37a1)