Скачать: CL | DM;

экспорт в *.dbf   Найти похожие ветки 

← →
WellSlava   (2006-04-19 10:05) [0]

Мне небходимо набор данных (DataSet или DBGrid) записать в таблицу dbf, предварительно ее создав из структуры DataSet-а.
Подскажите, пожалуйста, может есть какие-то компоненты для этого?

---

← →
Stanislav ©   (2006-04-19 11:23) [1]

а insert into ?

---

← →
Stanislav ©   (2006-04-19 11:23) [2]

или select into?

---

← →
solenko ©   (2006-04-19 12:25) [3]


var t: TTable;
i: integer;
begin
 t:= TZTable.Create(self);
 t.TableName := "dbf_name.dbf";
 for i:=0 to myDataSet.FieldDefs.Count - 1 do
 begin
   t.FieldDefs.Add(myDataSet.FieldDefs.Items[i].Name,   myDataSet.FieldDefs.Items[i].DataType, myDataSet.FieldDefs.Items[i].Size);
 end;
 t.CreateTable;
 myDataset.First;
 t.Open;
 while not(myDataSet.Eof) do
 begin
   t.Append;
   for i:=0 to myDataset.Fields.Count -1 do
   begin
     t.Fields[i].AsVariant := myDataset.Fields[i].AsVariant;
   end;
   t.Post;
   myDataset.Next;
 end;
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c