VB OracleTransaction не откатывается

Логика фиксации/отката в PL/SQL (независимо от предложения AUTONOMOUS TRANSACTION --> НЕ ИСПОЛЬЗУЙТЕ ЭТО, если вы не регистрируете ошибки: http://asktom.oracle.com/pls/asktom/f?p=100:11:0::::P11_QUESTION_ID:2212445691154)

Поэтому, если вы выдаете COMMIT в своем пакете, ваши данные фиксируются, PERIOD. Откат таким же образом.

Создайте таблицу для следующих примеров:

create  table SHOW_TRANSACTION (MISC varchar2(15)) ;
/

Глядя на этот пример, видно, что:

declare

   procedure DOTHEINSERT(DATAM in SHOW_TRANSACTION.MISC%type ,
                        doCommit IN boolean

   ) 
   as
   begin    
            insert into SHOW_TRANSACTION (MISC) 
            values (DATAM);

            if DOCOMMIT   then
               commit ;
            else
               ROLLBACK ;
            end if;
   end ;
begin
    DOTHEINSERT('commit1' , true);
    DOTHEINSERT('NOcommit1' , false);
    DOTHEINSERT('commit2' , true);
    DOTHEINSERT('NOcommit2' , false);
    DOTHEINSERT('commit3' , true);
    ROLLBACK;


end ;
/

select * from SHOW_TRANSACTION ;
/
MISC            
--------------- 
commit1         
commit2         
commit3   

Обратите внимание, что окончательный ROLLBACK ничего не делает? это потому, что COMMIT/ROLLBACKS в процедуре влияют на всю область действия, посмотрите на этот пример:

truncate table SHOW_TRANSACTION; --start with clean slate

declare

   procedure DOTHEINSERT(DATAM in SHOW_TRANSACTION.MISC%type ,
                        doCommit IN boolean

   ) 
   as
   begin    
            insert into SHOW_TRANSACTION (MISC) 
            values (DATAM);

            if DOCOMMIT   then
               commit ;
            --else (HERE I AM GETTING RID OF THE PROCEDURES ROLLBACK, SO EVERYTHING IS BEING ROLLBACK'ED
            --   ROLLBACK ;

            end if;
   end ;
begin
    DOTHEINSERT('commit1' , true);
    DOTHEINSERT('NOcommit1' , false);
    DOTHEINSERT('commit2' , true);
    DOTHEINSERT('NOcommit2' , false);
    DOTHEINSERT('commit3' , true);
    ROLLBACK;


end ;
/

select * from SHOW_TRANSACTION ;
/

MISC            
--------------- 
commit1         
NOcommit1       
commit2         
NOCOMMIT2       
commit3     

Здесь пакет ROLLBACK удаляется, поэтому, когда происходит этот COMMIT, вставляется содержимое всех INSERTS до этого.

Если вы хотите, чтобы приложение VB обрабатывало транзакцию, вы должны удалить фиксацию/откат из PL/SQL.

Кроме того, не имеет значения, где находятся коммит/откат, они указывают на ВЕСЬ ОБЪЕМ всех элементов в транзакции:

truncate table SHOW_TRANSACTION ; 

declare

   procedure DOTHEINSERT(DATAM in SHOW_TRANSACTION.MISC%type ,
                        doCommit IN boolean

   ) 
   as
          procedure DOTHETRANSACTION(doCommit IN boolean) as 
          begin
            if DOCOMMIT   then
               commit ;
            else -- (HERE I AM GETTING RID OF THE PROCEDURES ROLLBACK, SO EVERYTHING IS BEING ROLLBACK'ED
               ROLLBACK ;
            end if;             
          END DOTHETRANSACTION;
   begin    
            insert into SHOW_TRANSACTION (MISC) 
            values (DATAM);
            DOTHETRANSACTION(doCommit);
   end DOTHEINSERT;
begin
    DOTHEINSERT('commit1' , true);
    DOTHEINSERT('NOcommit1' , false);
    DOTHEINSERT('commit2' , true);
    DOTHEINSERT('NOcommit2' , false);
    DOTHEINSERT('commit3' , true);
    ROLLBACK;


end ;
/

select * from SHOW_TRANSACTION ;
/

MISC            
--------------- 
commit1         
COMMIT2         
commit3 

/* теперь транзакция находится в под-подпроцедуре */

Без источника пакета это может быть сложно.

Во-первых, Oracle обычно вызывает исключение, если вы выполняете COMMIT или ROLLBACK внутри пакета, который не помечен прагмой AUTONOMOUS TRANSACTION, независимо от вызывающего языка.

Поэтому я предполагаю, что если пакет содержит COMMIT и ROLLBACK, то пакет ДОЛЖЕН быть автономным. Это будет означать, что ваш откат на стороне клиента не окажет никакого влияния.

Если пакет является автономным, то возникает исключение, если вы выходите из пакета, не выполнив ROLLBACK или COMMIT, то есть не должно быть маршрута, по которому пакет мог бы выйти, оставив незафиксированную строку в базе данных.

Единственная ситуация, которая могла бы объяснить то, что вы видите, — это если откат завершился FAILED или вообще не был выполнен, а затем код перешел к COMMIT.

(Еще один возможный вариант - Вставка ТАКЖЕ сделана как автономная транзакция, с автономным коммитом, чтобы данные были зафиксированы до отката?).

Автономные транзакции печально известны тем, что (повторно) создают проблемы, которых атомарные транзакции должны избегать (условия гонки, целостность данных, тупиковые ситуации) — у них есть свое применение, но с ними нужно обращаться осторожно.