Форум: "Базы";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
ВнизInterbase +Transaction.... Найти похожие ветки
← →
Davojan (2002-01-03 11:13) [2]О чём вы, народ? Какой BDEAdministrator? Какие Alias? Они тут вообще не причем. Ведь сказано ж было, что НЕ через BDE. Если испозьзуются компоненты IBExpress, то прога будет работать на клиенте, на котором не установлена BDE.
Насколько я знаю, при использовании этих компонентов и так никакого автокоммита не происходит. Явным признаком этого служит такой глюк: когда производится коммит или роллбэк, все наборы данных (IBTable, IBQuery и т.д.) почему-то разрывают связь с базой данных и их приходится коннектить заново и возращать на место указатели. Выглядит это примерно так (я объединяю этот процесс в одну процедуру):
procedure TDM.Commit;
const BMCOUNT = 3;
var bm:array[1..BMCOUNT] of TBookMark;
begin
try
bm[1] := quGroups. GetBookmark;
bm[2] := quGoods. GetBookmark;
bm[3] := quGoodsPrices.GetBookmark;
trShopNet.Commit;
try
quGroups.Open;
quGroups. GotoBookmark(bm[1]);
quGoods.Open;
quGoods. GotoBookmark(bm[2]);
quGoodsPrices.Open;
quGoodsPrices.GotoBookmark(bm[3]);
except
end
finally
quGroups. FreeBookmark(bm[1]);
quGoods. FreeBookmark(bm[2]);
quGoodsPrices.FreeBookmark(bm[3]);
end
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c