Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.25;
Скачать: CL | DM;

Вниз

Нужно создать таблицу 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
7-82529
Snake7
2003-07-14 18:35
2003.09.25
Как узнать серийный номер процессора?


6-82360
mma
2003-07-12 14:52
2003.09.25
Проверка прокси?


14-82439
Некрофил-затейник__
2003-09-08 09:01
2003.09.25
Человеки помогите найти!


3-82161
Ragazor
2003-09-01 17:06
2003.09.25
SQL INSERT


14-82506
Nik8.
2003-09-05 12:20
2003.09.25
Supreme