VPF::как создать базу clientdataset'ом? - Форум программистов

x77

Дата 21.1.2004, 17:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

Код

procedure TfData.CheckDatabase (ADest: TClientDataSet; RetrieveData: boolean; ASource: TDataSet);
begin
  if not FileExists (ADest.FileName) then begin
    ADest.CreateDataSet;
    if RetrieveData then begin
      ASource.Active := TRUE;
      UpdateLocalCopy (ASource, ADest);
      ASource.Active := FALSE;
    end;
  end;
  ADest.Active := TRUE;
end;

FileName указан, поля прописаны, StoreDefs включено, при записи MergeChangeLog делается.

при запуске вылетат ошибка - missing provider or data packet, следом за ним - эксепшн. на диске создаётся файл нулевой длины. убиваем файл, запускаем ещё раз - всё нормально, но теперь эксепшн вылетает при закрытии. оставляя за собой нулевой файл.

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

x77

Дата 21.1.2004, 18:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

данные из базы она получает, - они видны в гриде. самое интересное, что с другими таблицами всё нормальной, глючит на одной конкретной.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »