Архив форумов ЦИТФорума

[alixsys]

Обьясните пожалуста, почему функция CreateTable создаёт базу данных, которая ничем (кроме BDE) не открывается, и как сделать так чтобы избежать этой проблемы.
Ниже приведён пример кода.
Заранее огромное СПОСИБО.

Table2->Active = false;
Table2->DatabaseName = WorkPathExe;
Table2->TableType = ttDBase;
Table2->TableName = WorkPathExe + "1.dbf";
Table2->FieldDefs->Clear();
TFieldDef *pNewDef = Table2->FieldDefs->AddFieldDef();
pNewDef->Name = "Field1";
pNewDef->DataType = ftInteger;
pNewDef->Required = true;
pNewDef = Table2->FieldDefs->AddFieldDef();
pNewDef->Name = "ïðî";
pNewDef->DataType = ftString;
pNewDef->Size = 20;
Table2->IndexDefs->Clear();
TIndexDef *NewIndex = Table2->IndexDefs->AddIndexDef();
NewIndex->Name = "PrimaryIndex";
NewIndex->Fields = "Field1";
NewIndex->Options CreateTable();