создание базы

← →
Gaval (2005-07-05 12:57) [0]

Такая проблема пытаюсь создать скажем 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;

← →
_dimka © (2005-07-05 12:59) [1]

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

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

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

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

создание базы Найти похожие ветки