Форум: "Базы";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];
ВнизНужно создать таблицу dbf Найти похожие ветки
← →
LeSS (2003-09-04 16:41) [0]Нужно создать таблицу 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 получился с поломанной шапкой(
заранее спасибо
← →
Reindeer Moss Eater (2003-09-04 16:48) [1]Query1 + "Select A.*,B.* from Table1 A, Table2 B where 0=1"
Table1.BatchMove(Query1,batCopy);
← →
LeSS (2003-09-04 16:57) [2]о! спасибо
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c