VPF::Как выгрузить данные из DBGrid в файл DBF

mrVerus

Дата 2.3.2010, 21:41 (ссылка)

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

Загрузка ...

Шустрый

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

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

Парни я в  работе с БД новичек , как можно выгрузить данные из DBGrid в файл *dbf
По примеру пробывал вот так ничего не вышло
with TTable.Create(nil) do
   begin
     DatabaseName  := 'c:\temp';  (* alias *)
     TableName     := 'test.dbf';
     TableType     := ttDBase;
     with FieldDefs do
     begin
       Add('N_NAKL', ftInteger,0,false);
       Add('EXCLTP_NAM', ftString,15,false);
       Add('SV_NAME', ftString,15,false);
       Add('OSV_NAME', ftString,15,false);
       for i:=0 to form1.DBGrid1.FieldCount -1 do
       fields.Add(form1.DBGrid1.Fields[i]);
     end;

     CreateTable;

end;

Данкинг

Дата 2.3.2010, 22:04 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Во-первых, выгрузить можно не из Грида, а из таблицы, к нему подключённой. Во-вторых, через что подключаешься в DBF?

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

There's nothing left but silent epitaphs.

mrVerus

Дата 2.3.2010, 22:11 (ссылка)

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

Загрузка ...

Шустрый

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

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

Не через что там же видно что создается файл dbf

Данкинг

Дата 2.3.2010, 22:30 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Ну и какая ошибка вылезает? Я бы вообще через ADO создавал таблицу dbf.

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

There's nothing left but silent epitaphs.

mrVerus

Дата 2.3.2010, 22:37 (ссылка)

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

Загрузка ...

Шустрый

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

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

Нет ошибки создается таблица а данных в ней нет.
Покажи как создать таблици и залить туда данные

Frees

Дата 2.3.2010, 22:47 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

Код


var tb: TTable.Create(nil);
//....
with tb do
   begin
     DatabaseName  := 'c:\temp';  (* alias *)
     TableName     := 'test.dbf';
     TableType     := ttDBase;
     with FieldDefs do
     begin
       Add('N_NAKL', ftInteger,0,false);
       Add('EXCLTP_NAM', ftString,15,false);
       Add('SV_NAME', ftString,15,false);
       Add('OSV_NAME', ftString,15,false);
       for i:=0 to form1.DBGrid1.FieldCount -1 do
       fields.Add(form1.DBGrid1.Fields[i]);
     end;

     CreateTable;

 end;
with DBGrid1.DataSource.DataSet do
begin
  First;
  while not Eof do
  begin
      tb.Append;
       for i:=0 to FieldCount -1 do
           tb.FieldByName(Fields[i].FieldName).Value := Fields[i].Value;
      tb.Post;
      NExt;   
  end;
end;

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

Кольцов Виктор Владимирович

mrVerus

Дата 3.3.2010, 07:46 (ссылка)

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

Загрузка ...

Шустрый

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

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

Нет не работает выводит Cannot perform this operation on a closed data set

Frees

Дата 3.3.2010, 08:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

Цитата(mrVerus @ 3.3.2010, 10:46

)

Нет не работает выводит Cannot perform this operation on a closed data set

вот и подумай что это зачит, книги почитай...

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

Кольцов Виктор Владимирович

TObject

Дата 3.3.2010, 11:09 (ссылка)

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

Загрузка ...

Новичок

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

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

А разве не нужно открыть таблицу tb.Open; перед добавлением записей?

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