Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Восстановление подлючения к БД

Автор: santilaas 25.6.2007, 16:10

Firebird 1.5.3., FibPlus 5.2
Привет всем!
Ситуация такая: по книге "Мир Interbase3" сделал обработку потери подключения к БД.
НО там рассматривается пример для одного конкретного DataSet-а.

Я же реализую обработку потери подключения с восстановлением и подтверждением
хранящихся в кэше Датасетов данных. Вопрос в том, как это сделать или как правильно это сделать:
я делаю так:

Код


procedure TDM.DBAfterRestoreConnect(Database: TFIBDatabase);
var i:integer;
begin
   try
      DB.Connected:= True;
      if (Application.MessageBox(PChar('Соединение восстановлено! ' + #13 +
                                       'Подтвердить внесенные изменения?'),'Вопрос!',MB_OKCANCEL+MB_ICONWarning)=idOK) then
         begin
            for i:=0 to DB.FIBDataSetsCount - 1 do
               try
                  if not DB.FIBDataSets[i].Transaction.Active
                     then DB.FIBDataSets[i].Transaction.StartTransaction;
                        [color=blue]DB.FIBDataSets[i].ApplyUpdToBase;[/color]                        DB.FIBDataSets[i].Transaction.CommitRetaining;
                        [color=blue]DB.DataSets[i].CommitUpdToCach;[/color]
               except
                  if DB.FIBDataSets[i].Transaction.Active
                     then DB.FIBDataSets[i].Transaction.Rollback;
               end;
         end;
   except
      Application.MessageBox(PChar('Невозможно восстановить соединение!'),'Информация!',MB_OK+MB_ICONInformation);
      Exit;
   end;
end;

- 1 вопрос: Дельфи ругается при компиляции на строки:
  DB.FIBDataSets[i].ApplyUpdToBase;
  и
  DB.DataSets[i].CommitUpdToCach;
  - говорит "Undeclared Identifier ApplyUpdToBase и CommitUpdToCach" соответственно,
- 2 вопрос: нельзя ли транзакции подтверждать или отменять вне цикла разом для всех Датасетов или все же надо это делать по-отдельности? и вообще почему рассматривается только транзакция на чтение (в книжном примере),- а что же делать с транзакцией на запись?
Помогите, кто чем может, а то каша в голове
Заранее спасибо!

Автор: Deniz 26.6.2007, 04:46

Если все DataSet'ы настроены на 2 транзакции и у всех пишущая одна, то можно так

Код


  err:=false;
  for i:=0 to pFIBDatabase1.FIBDataSetsCount-1 do begin
    try
      (pFIBDatabase1.FIBDataSets[i] as TpFIBDataSet).ApplyUpdToBase;
      (pFIBDatabase1.FIBDataSets[i] as TpFIBDataSet).CommitUpdToCach;
    except
      err:=True;
    end;
  end;
  if err then
    pFIBDatabase1.DefaultUpdateTransaction.Rollback
  else
    pFIBDatabase1.DefaultUpdateTransaction.Commit;