Создание таблиц

← →
Sapos © (2007-02-20 12:05) [0]

подскажите, пожалуйста, как мне быть?
Есть обычный Edit, по нажатию кнопки создается таблица с TableName:=Edit2.Text, но при попытке создать еще одну таблицу с другим именем, но теми же полями программа ругается, пишет: "A compomemt named TestField1 already exists". TestField1 - это имя поля, как наверное понятно из названия. Неужели я не могу создавать несколько таблиц с разными именами, но с одинаковыми полями? Однако при повторном запуске программы она дает добавить еще одну таблицу, при попытке добавить вторую ситуация повторяется.
Вот код процедуры:

with Table4 do
begin
DatabaseName:="Combo";
TableName:=Edit2.Text;
TableType:=ttParadox;
with FieldDefs do
Begin
add("TestField1",ftString,200,true);
add("TestField2",ftString,200,true);
add("TestField3",ftString,200,true);
add("TestField4",ftString,200,true);
end;
CreateTable;
end;
Подскажите как быть, можт че неправильно написал?

← →
Elen © (2007-02-20 12:16) [1]

> Неужели я не могу создавать несколько таблиц с разными
> именами, но с одинаковыми полями?

Чтоб такие сомнения отпали сделай один раз шаблон базы, а потом просто копируй его с таким то именем. Ну а здесь перед всем этим закрываеш таблицу уже созданную?

← →
Ega23 © (2007-02-20 12:16) [2]

if Active then Close

← →
Elen © (2007-02-20 12:19) [3]

Спасибо!!!!! Заработало!!!!

Создание таблиц Найти похожие ветки