запись данных одной транзакцией

[water_]

Здравствуйте,
сразу к сути вопроса
firebird, FIBPlus
выполняется парсинг файла.
определенные данные записываются в несколько таблиц базы данных,
записываются через хп (qoStartTransaction = true, qoAutoCommit = true),
как правило за один раз хп делает одну запись. всего записей 2000-3000.
данный вариант работает замечательно, но решил выполнить запись данных одной транзакцией,
поскольку "не надо делать commit после каждой записи"
параметры хп qoStartTransaction и qoAutoCommit поменял на false

	
  tr1: TpFIBTransaction;
	...
  tr1.StartTransaction;
  try    
    pParcingFile(filename);
    tr1.Commit;
  except
    tr1.Rollback;    
  end;

после парсинга значения генераторов соответствуют количеству записанных записей,
но в таблицах этих записей нет, пока не закрою саму программу.
что я не учел?

[Stilet]

tr1 точно участвует в записи? Я не спец по FIBPlus конечно, но мало ли...
Имеется ввиду что сам tr1.Commit; не выполняется или не влияет вовсе на запись.

[water_]

Сообщение от Stilet

tr1 точно участвует в записи?

да
приведенный код выше аналогичен...

  tr1: TpFIBTransaction;
  sProcTemp: TpFIBStoredProc;
	...
  sProcTemp.Transaction:= tr1;	
  sProcTemp.Transaction.StartTransaction;
  try    
    pParceFile(filename);
    sProcTemp.Transaction.Commit;
  except
    sProcTemp.Transaction.Rollback;
  end;

во время работы процедуры pParceFile, именно sProcTemp работает с хранимыми процедурами бд

[Stilet]

Даже не знаю...

[eval]

мало кода.

[water_]

Сообщение от eval

мало кода.

повторю, данные в БД записываются, тому подтверждение значение генераторов и, собственно, самих данных, которые записываются в БД, но только после закрытия приложения.

пример одной записи в одну из таблиц, в приложении

   
      sName, sNameRoad, sCaption: string   
...
      sProcTemp.StoredProcName:='ACDLAYERS_INS';
      sProcTemp.ParamByName('NAME').AsString:= sName;
      sProcTemp.ParamByName('NAMEROAD').AsString:= sNameRoad;
      sProcTemp.ParamByName('CAPTION').AsString:= sCaption;
      sProcTemp.ExecProc;

хранимая процедура бд

CREATE PROCEDURE ACDLAYERS_Ins(name VARCHAR(10),
	nameRoad VARCHAR(10),
	caption VARCHAR(20))
AS
DECLARE rname VARCHAR(10);
DECLARE r INT;
BEGIN
	r = -1;
	SELECT id FROM ACD_Roads WHERE UPPER(name) = UPPER(:nameRoad) AND 
                     EXISTS(SELECT id FROM ACD_Roads WHERE UPPER(name) = UPPER(:nameRoad))
		INTO :r;
	IF(r=-1)THEN BEGIN
		INSERT INTO ACD_ROADS VALUES (0,:nameRoad, '', 'today', 'today');
		r = GEN_ID(gen_acdRoads,0);
	END
	FOR SELECT name FROM Acd_Layers WHERE (id_road = :r) INTO :rname DO
		IF (UPPER(:rname) = UPPER(:name)) THEN 
			r = -1;
	IF (r <> -1)THEN BEGIN			
		INSERT INTO Acd_Layers VALUES(0,:r,:name,:caption);
		UPDATE Acd_Roads SET date_mod = CURRENT_DATE WHERE UPPER(Acd_Roads.name) = UPPER(:nameRoad);
	END
END

[Аватар]

Такое бывает, когда COMMIT выполняется при закрытии приложения, а до этого нет.

[Stilet]

Да, но в коде у автора есть коммит транзакции.
Может коммитить нужно не только транзакцию?

[BARNEY]

tr1: TpFIBTransaction;
	...
  tr1.StartTransaction;
  try    
    pParcingFile(filename);
    tr1.CommitRetaining;
  except
    tr1.RollbackRetaining;    
  end;

в свойствах tr1 ставим read_committed

[water_]

Сообщение от eval

мало кода

действительно,
как выяснилось проблема даже не касалась fib

в процедуре использовался класс, методы которого и вызывали хп базы данных,
так вот,

LMethod:= TSomeClass.Create(nil);

не имел своего

LMethod.Free;

и поэтому жил до закрытия программы

всем спасибо, топик можно закрывать (надеюсь кому-нибудь он будет полезен)