Devart Forums

Code: Select all

function TOdacOracleSQLUtility.InTransaction: Boolean;
var id: Variant;
begin
  if not SessionConnected then
    Result := False
  else
  begin
    DatabaseSession.ExecSQLEx('begin :id :=sys.dbms_transaction.local_transaction_id; end;', ['id', '0']);
    id := DatabaseSession.ParamByName('id').Value;
    Result := VarToStr(id) <> '';
  end;
end;

Code: Select all

exception class   : EOraError
exception message : ORA-06502: PL/SQL: numerischer oder Wertefehler: character string buffer too small ORA-06512: in Zeile 1.

main thread ($1f78):
00783395 +0c9 OraToolProUnicode.exe Ora                                  TOraSQL.InternalExecute
7706012e +00a ntdll.dll                                                  KiUserExceptionDispatcher
0073be10 +03c OraToolProUnicode.exe OraClasses                           TOCICommand.Check
0073e7da +25a OraToolProUnicode.exe OraClasses                           TOCICommand.InternalExecute
0073ec0c +1bc OraToolProUnicode.exe OraClasses                           TOCICommand.Exec
00744679 +045 OraToolProUnicode.exe OraClasses                           TOCICommand.DoExecute
007447b9 +0e5 OraToolProUnicode.exe OraClasses                           TOCICommand.Execute
006c256c +058 OraToolProUnicode.exe DBAccess                             TCustomDASQL.InternalExecute
007832fa +02e OraToolProUnicode.exe Ora                                  TOraSQL.InternalExecute
006c26c1 +0c9 OraToolProUnicode.exe DBAccess                             TCustomDASQL.Execute
006c25ef +007 OraToolProUnicode.exe DBAccess                             TCustomDASQL.Execute
006ad649 +115 OraToolProUnicode.exe DBAccess                             TCustomDAConnection.ExecSQLEx
00820daa +07e OraToolProUnicode.exe OdacSQLUtility               312  +5 TOdacOracleSQLUtility.InTransaction
00fecf5e +06a OraToolProUnicode.exe xODACMDIForm                 385  +5 tODACMDIForm.SessionInTransaction
0177ff1e +01e OraToolProUnicode.exe queryfrm                    3827  +4 TQueryForm.SessionInTransaction
0196e835 +01d OraToolProUnicode.exe MAIN                        3663  +2 tOraToolMainForm.RefreshTransactionState
01351427 +023 OraToolProUnicode.exe SingleStatementPageControl  3554  +2 TSingleStatementPageControlFrame.IntDatasetAfterPost
0061d981 +015 OraToolProUnicode.exe DB                                   TDataSet.DoAfterPost
0061cbc1 +075 OraToolProUnicode.exe DB                                   TDataSet.Post

Code: Select all

function TOdacOracleSQLUtility.InTransaction: Boolean;
var id: Variant;
  emptyString: Variant;
begin
  emptyString   := VarAsType(unassigned, varString);
  if not SessionConnected then
    Result := False
  else
  begin
    DatabaseSession.ExecSQLEx('begin :id :=sys.dbms_transaction.local_transaction_id; end;', ['id', emptyString]);
    id := DatabaseSession.ParamByName('id').Value;
    Result := Not VarIsNullEmpty(id);
  end;
end;