| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сохранить как DBF файл

alex_tonk ©   (2007-08-09 16:23:00) 

Доброго Вам дня, местера своего дела!
В очередной раз обращаюсь к Вам за помошью.

Мне нужно сохранить данные с таблицы N (fdb-я база) в dbf файл на диске, по нажатию кнопки. Я использую компонент TDBF. Как это сделать (если можно небольшой примерчик)?

---

Loginov Dmitry   (2007-08-11 00:00:00) [1]

> А поля в тбличке создать ?


В [4] они вроде как бы создаются...

---

tomkat   (2007-08-10 23:59:00) [2]

я уж лет 5 пользуюсь компонентом Halycon . бесподобная весчь !
у него в комплекте есть компонента создания таблицы. к-й просто описываеш наименование и типы полей и указываеш куда создавать файл...
потом его залить данными . если интересно . могу прислать , для Делфи 5, 6.

---

tesseract   (2007-08-10 23:02:00) [3]

> Не думаю, что для TDBF будет сильно отличаться.


А поля в тбличке создать ? Tdbf не совсем полностью дописана.

---

Loginov Dmitry   (2007-08-10 20:22:00) [4]

Для TTable это выглядет примеро так:


procedure TForm1.Button1Click(Sender: TObject);
var
 I: Integer;
begin
 with TTable.Create(nil) do
 try
   DatabaseName := 'MyAlias';
   TableName := 'MyTable';
   FieldDefs.Assign(IB1.FieldDefs);
   CreateTable;
   Open;
   IB1.First;
   while not IB1.Eof do
   begin
     Append;
     for I := 0 to FieldCount - 1 do
       Fields[I].Assign(IB1.Fields[I]);
     Post;
     IB1.Next;
   end;
 finally
   Free;
 end;
end;


Не думаю, что для TDBF будет сильно отличаться.

---

tomkat   (2007-08-10 17:52:00) [5]

толькошто делал это :

  qryClients_t.Open;
   Table2.First;
   while table2.Eof=false do
   begin
    qryClients_t.Insert;
     qryClients_tID.Value:=Table2.fieldByName('CLIENTPRIV').Value;
     qryClients_tFIO.Value:=Table2.fieldByName('FIO').Value;
    qryClients_t.Post;
    table2.Next;
   end;


---

alex_tonk   (2007-08-09 17:17:00) [6]

Sergey13 ©

Можно примерчик пожалуйста

---

Sergey13   (2007-08-09 16:31:00) [7]

Читаешь из источника запись и пишешь ее в приемник - самое универсальное решение, работать будет везде, но не факт что производительно.
DataPump еще есть в поставке делфи - можно ее попробовать.

---

Наверх