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

← →
alex_tonk (2007-08-09 16:23) [0]

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

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

← →
Sergey13 © (2007-08-09 16:31) [1]

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

← →
alex_tonk (2007-08-09 17:17) [2]

Sergey13 ©

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

← →
tomkat (2007-08-10 17:52) [3]

толькошто делал это :
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;

← →
Loginov Dmitry © (2007-08-10 20:22) [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 будет сильно отличаться.

← →
tesseract © (2007-08-10 23:02) [5]

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

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

← →
tomkat (2007-08-10 23:59) [6]

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

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

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

Сохранить как DBF файл Найти похожие ветки