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

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

Нужно создать таблицу dbf [D7, dBase, FoxPro]

LeSS ©   (2003-09-04 16:41:00) 

Нужно создать таблицу dbf. Структура - поля одной таблицы плюс поля другой таблицы. Т.е. "склеть" две dbf и записать на диск.
Подскажите как лучше это сделать.
пробывал вот так:
i:= tbEtalon.FieldDefs.Count;

with tbResult do
begin
Active := False;
TableType := ttDefault;
TableName := "Result.dbf";
end;

for j:= 0 to (i-1) do
begin
with tbResult.FieldDefs do begin
with AddFieldDef do begin
Name:=tbEtalon.FieldDefs.Items[j].Name;
DataType :=tbEtalon.FieldDefs.Items[j].DataType;
Size := tbEtalon.FieldDefs.Items[j].Size;
Required := tbEtalon.FieldDefs.Items[j].Required;
end;
end;
end;

i:=tbwork.FieldDefs.Count ;

for j:= 0 to (i-1) do
begin
with tbResult.FieldDefs do begin
with AddFieldDef do begin
Name:=tbWork.FieldDefs.Items[j].Name+"_work";
DataType :=tbWork.FieldDefs.Items[j].DataType;// Size := tbWork.FieldDefs.Items[j].Size;
Required := tbWork.FieldDefs.Items[j].Required;
end;
end;
end;

with tbResult.FieldDefs.AddFieldDef do begin
Name:="accuracy";
DataType :=ftInteger;
Required := TRUE;
end;

tbResult.CreateTable;

но dbf получился с поломанной шапкой(

заранее спасибо

---

LeSS   (2003-09-04 16:57:00) [1]

о! спасибо

---

Reindeer Moss Eater   (2003-09-04 16:48:00) [2]

Query1 + "Select A.*,B.* from Table1 A, Table2 B where 0=1"
Table1.BatchMove(Query1,batCopy);

---

Наверх