Скачать: CL | DM;

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

← →
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]

> Sapos ©   (20.02.07 12:05)

Кстати перед add нужно делать Clear;

---

← →
Sapos ©   (2007-02-20 12:58) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.043 c