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

[xxx]

Проблема: хочу программно создать таблицу, пишу для этого следующий код:
TTable *Table;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Table=new TTable(NULL);
Table->DatabaseName = "Blah";
Table->TableType = ttDefault;
Table->TableName = "BlahTable";
Table->FieldDefs->Clear();

TFieldDef *pNewDef1 = Table->FieldDefs->AddFieldDef();
pNewDef1->Name = "Organization";
pNewDef1->DataType = ftString;
pNewDef1->Required = true;
pNewDef1->Size = 80;

Table->IndexDefs->Clear();
Table->IndexDefs->Add("Org","Organization", TIndexOptions() << ixExpression);
Table->CreateTable();
}

Во время выполнения Table->CreateTable() получаю следующую ошибку: "An error occured while attempting to initialize the Borland Database Engine"

Все это делалось на BCB6 (Enterprise, полная установка)
В чем прикол? Как динамически создать новую таблицу?

[wildwind]

Прикол в том, что у тебя криво установлен BDE. Добейся сначала того, чтобы таблицы нормально открывались в SQL Explorer или в DBD.