| Sad |
| Отправлено: 02.03.2004, 23:08 |
|
Не зарегистрирован
|
create table persons.dbf (...); — СОЗДАЕТСЯ .DB (PARADOX) таблица c именем dbf.db |
|
| Zmey |
| Отправлено: 03.03.2004, 10:28 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 15
|
настрой сначала псевдоним БД, указав драйвер FoxPro вместо Paradox
и выполни — create table persons ()
создастся таблица persons.dbf |
|
| xTrim |
| Отправлено: 04.03.2004, 17:20 |
|
Машинист паровоза
Группа: Участник
Сообщений: 208
|
А точно только с помощью SQL создавать требуется, а то можно и так
| CODE |
Table1->Active = false; // Таблица должна быть не активной
Table1->DatabaseName = "";
Table1->TableType = ttDBase;// Тип таблицы
Table1->TableName = "CustInfo";
if (!Table1->Exists) // Не переписывать если уже есть
{
// Описание полей
Table1->FieldDefs->Clear();
TFieldDef *pNewDef = Table1->FieldDefs->AddFieldDef();
pNewDef->Name = "Field1";
pNewDef->DataType = ftInteger;
pNewDef->Required = true;
pNewDef = Table1->FieldDefs->AddFieldDef();
pNewDef->Name = "Field2";
pNewDef->DataType = ftString;
pNewDef->Size = 30;
// Описание индексов
Table1->IndexDefs->Clear();
Table1->IndexDefs->Add("","Field1", TIndexOptions() << ixPrimary << ixUnique);
//Table1->IndexDefs->Add("Fld2Index","Field2", TIndexOptions() << ixCaseInsensitive);
// Теперь создаем таблицу
Table1->CreateTable();
}
|
|
|
