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

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

экспорт в *.dbf [D7, MSSQL]

WellSlava ©   (2006-04-19 10:05:00) 

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

---

solenko   (2006-04-19 12:25:00) [1]


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;


---

Stanislav   (2006-04-19 11:23:00) [2]

а insert into ?

---

Stanislav   (2006-04-19 11:23:00) [3]

или select into?

---

Наверх