Обработка ошибки "Corrupt Memo/BLOB file" в базах данных, используя приложения Delphi

Наверняка, каждый разработчик приложений на языке Delphi, связанных с базами данных, сталкивался с такой огромной проблемой как обработка ошибок и провел немало времени в борьбе с ними. Моя историческая встреча с этой проблемой произошла при визуализации вот такого сообщения:

рис.1.

Ошибка эта появляется в случае, когда Мемо-поле в базе данных не было записано корректно. Ситуация эта происходит как правило в приложениях, использующих редактирование данных в Мемо-полях на какой-то промежуток времени. На период редактирования Мемо-поля, в файле *.dbf помещается ссылка на временный файл, расположенный где-нибудь в C:TEMP или C:windowsTEMP. База данных в это время открыта и «ждет» окончания редактирования Мемо-поля и операции сохранения всей записи, включая  записи Мемо-поля в *.dbt файл. После того, как редактирование окончено,  запись сохраняется в dbf-файл базы данных, а Мемо-поле записывается в dbt-файл. При этом в Мемо-поле остается ссылка на dbt-файл, где собственно и расположено содержимое Мемо-поля. Различного рода факторы, влияющие на разрыв соединения между файлом базы данных и приложением, его открывшем и производящего редактирование, ведут к тому, что связь между ними обрывается и в Мемо-поле остается ссылка на временный файл, а данные оказываются утерянными и не записанными в файлы dbt и dbf базы данных. После чего, при чтении записи с таким «прошлым», приводит к наблюдению рис.1.

 Борьбу с вышеназванной утратой можно вести двумя путями:

 1)      Изучить протокол «dbf»-файла и в ошибочной записи править байт Мемо-поля с значения «содержит данные» на значение «не содержит данные», т.е. устранить ссылку на *.dbt файл.

 2)      Создать копию файла с ошибкой, очистить его полностью. Открыть два файла баз данных – с ошибкой и чистый. Считывать в базе данных с ошибкой по одному значению и заполнять соответствующие им значения в чистой «зеркальной» базе данных. В итоге, все ошибочные ссылки в Мемо-полях  будут устранены.

Первый метод, конечно, более сложный и непредсказуемый, так как в записи может быть несколько Мемо-полей, а полностью считать запись, если там присутствует  ошибка, невозможно. Delphi выводит ошибку, указывая только ее тип и номер записи, в которой она встретилась. Т.е. «натыкаясь» на первую ошибку в записи, Delphi дальнейшую работу с записью не производит и остальные поля не считывает. Для устранения ошибки первым методом необходимо будет произвести несколько прогонов базы данных, что повлечет за собой нагрузку для «железа», пропорциональную размерам базы данных.

Второй метод, метод «прогона», на практике  оказался более эффективным – все, что могло, то считалось и скопировалось в новую базу данных.

Теперь о реализации второго метода обработки ошибки.

Используя классический прием обработки ошибок в Delphi блоком try..except для реализации метода №2 приходим к следующему коду:

procedure CorrectDataBase;

var

i,fc:integer;

Name1,Name2,Dir1:string;

begin

//указываем расположение и имя базы данных с ошибкой

Table1.DatabaseName:=Dir1;

Table1.TableName:=Name1;

Table1.Open;

//производим  копирование базы данных, получаем новую базу данных с именем Name2

QuickCopy(Table1, Name2, true);

//очищаем в копии от всех записей

Table2.TableName:=Name2;

Table2.DatabaseName:=Dir1;

Table2.EmptyTable;

//открываем копию для предстоящей работы

Table2.Open;

//вводим переменную, определяющую количество полей в базе

fc:=0;

//начинаем перебирать базу данных, используя за один проход одно поле

while fc < Table1.FieldCount-1 do

  begin

  Table2.First;

  Table1.First;

    try

    for i:=0 to Table1.RecordCount-1 do

      begin

      if fc=0 then

        begin

//добавляем записи при первом проходе

        Table2.Append;

//присваиваем значение в чистой базе данных значению в базе с ошибкой

        Table2.Fields[fc].Value:=Table1.Fields[fc].Value;

        end

        else

        begin

//при втором проходе только редактируем записи

        Table2.Edit;

        Table2.Fields[fc].Value:=Table1.Fields[fc].Value;

//сохраняем запись

        Table2.Post;

//переходим на одну запись вперед

        Table2.Next;

        end;

        Table1.Next;

      end;

//в случае ошибки исполняем следующий код

  except

  on E:DBErrorEngine do

  begin

  if fc=0 then

    begin

    Table2.Append;

//в поле пишем строку с текстом ошибки

    Table2.Fields[fc].Value:='Ошибка:'+#13#10+E.Message;

    end

    else

    begin

    Table2.Edit;

    Table2.Fields[fc].Value:='Ошибка:'+#13#10+E.Message;

    Table2.Post;

    end;

    Table1.Next;

    Table2.Next;

  end;

end;

//увеличиваем счетчик полей

fc:=fc+1;

end;

//закрываем базы

Table1.Close;

Table2.Close;

end;

Успехов Вам в неблагодарном деле борьбы с ошибками!

архив статьи в формате Microsoft Word (7 Кб)

Владимир Богдановский, delphi-ex.narod.ru