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

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

создание базы [D6, Paradox]

Gaval ©   (2005-07-05 12:57:00) 

Такая проблема пытаюсь создать скажем 10 баз с одинаковыми полями, выбирая имя базы из списка при создании второй базы выдает ошибку что компонент с таким именем существует.
код примера
процедура
Base.DatabaseName:=DataBasePath;
         Base.TableName:=BaseName;
         Base.TableType:= ttParadox;
         Base.FieldDefs.Add('id',ftAutoInc ,0,false);   //0
         Base.FieldDefs.Add('Num',ftInteger ,0,false);   //0
         Base.FieldDefs.Add('Surname',ftString,30,false); //1
         Base.FieldDefs.Add('Name',ftString,20,false);    //2
         Base.FieldDefs.Add('SecName',ftString,30,false); //3
         Base.FieldDefs.Add('DBirstday',ftDate,0,false);     //4
         Base.FieldDefs.Add('PlaseBorn',ftString,60,false);  //5
         Base.FieldDefs.Add('PlaseLive',ftString,60,false);   //6
         Base.FieldDefs.Add('PlaseWorck',ftString,60,false);   //7
         Base.FieldDefs.Add('Pocit',ftString,60,false);    //8
         Base.FieldDefs.Add('PasNum',ftString,10,false);   //9
         Base.FieldDefs.Add('PasSend',ftString,60,false); //10
         Base.FieldDefs.Add('PasDate',ftDate,0,false);    //11
         Base.FieldDefs.Add('Kat',ftString,5,false);     //12
         Base.FieldDefs.Add('PosvKat',ftString,5,false);      //13
         Base.FieldDefs.Add('PosvNum',ftString,10,false);   //14
         Base.FieldDefs.Add('DAI',ftString,50,false);      //15
         Base.FieldDefs.Add('DAIDate',ftDate,0,false);    //16
         Base.FieldDefs.Add('HospDate',ftDate,0,false);   //17
         Base.FieldDefs.Add('Hosp',ftString,50,false); //18
         Base.FieldDefs.Add('HospDov',ftString,10,false);//19
         Base.FieldDefs.Add('TSSvidN',ftString,10,false);//20
         Base.FieldDefs.Add('TSSvidD',ftDate,0,false); //21
         Base.FieldDefs.Add('Car',ftString,20,false);//22
         Base.FieldDefs.Add('CarNum',ftString,10,false);//23
         Base.FieldDefs.Add('TehPas',ftString,10,false); //24
         Base.FieldDefs.Add('TehDate',ftDate,0,false); //25
         Base.IndexDefs.Add('N','ID',[ixPrimary]);
         Base.IndexDefs.Add('fam','Surname; Name; SecName',[ixCaseInsensitive]);
         Base.CreateTable;
вызов процедуры
for i:=1 to ListBox1.Count-1 do
         begin
         FileName:=ListBox1.Items.Strings[i];
         FileNameNewPath:=path+'\db\20'+copy(FileName,7,2);
         if not DirectoryExists(FileNameNewPath) then
           begin
             MkDir(FileNameNewPath);
           end;
         ShowMessage('Будет создан файл'+FileNameNewPath+'\'+FileNAme);

          CreateNewBase(FileNameNewPath,FileName);
end;

---

msguns   (2005-07-05 13:18:00) [1]

Создавать базы сподручнее запросами SQL-DDL

---

Gaval   (2005-07-05 13:08:00) [2]

добавил Base.FieldDefs.Clear;
         Base.IndexDefs.Clear;
и сразу заработало

---

_dimka   (2005-07-05 12:59:00) [3]

У базы нет полей.

---

Наверх