// Создать
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// Отключим компонент
Table1->Active = false;
// Название, тип, местонахождение
Table1->DatabaseName = "c:\\temp";
Table1->TableType = ttDBase;
Table1->TableName = "Table";
// Список полей
Table1->FieldDefs->Clear();
Table1->FieldDefs->Add("Field1", ftInteger, 0, True);
Table1->FieldDefs->Add("Field2", ftString, 30, False);
// Индексы
Table1->IndexDefs->Clear();
Table1->IndexDefs->Add("Fld2Index","Field2", TIndexOptions() << ixUnique );
Table1->IndexName = "Fld2Index";
// Вуаля!
Table1->CreateTable();
// Включим компонент
Table1->Active = true;
}
Create Table не работает
Создал таблицы почти на всех типах (Paradox, dbase,access,excell и тд.)
Но ни в одном из них не смог создать новую таблицу в существуюущей базе.
Помогите пожалуйста
Query->SQL->Clear();
Query->SQL->Add("CREATE TABLE `TestTable` (
`ID` INT NOT NULL AUTO_INCREMENT PRIMARY KEY,
`Number` INT NOT NULL,
`Name` VARCHAR(20) NOT NULL,
`Age` SHORT NOT NULL,
)");
Query->ExecSQL();
и есть ли права у пользователя (если MySQL например) на создание таблиц?
Сработало только с Аксесс но и там команда Drop Table не пашет.
Кто нибуть пережил эти проблемы. Может какой нибудь фокус есть?
копался в старых доках... нашел вот, может пригодится:
Цитата: swordholder99
Здравствуйте друзья
Создал таблицы почти на всех типах (Paradox, dbase,access,excell и тд.)
Но ни в одном из них не смог создать новую таблицу в существуюущей базе.
Помогите пожалуйста
Query->SQL->Clear();
Query->SQL->Add("CREATE TABLE `TestTable` (
`ID` INT NOT NULL AUTO_INCREMENT PRIMARY KEY,
`Number` INT NOT NULL,
`Name` VARCHAR(20) NOT NULL,
`Age` SHORT NOT NULL,
)");
Query->ExecSQL();
Создал таблицы почти на всех типах (Paradox, dbase,access,excell и тд.)
Но ни в одном из них не смог создать новую таблицу в существуюущей базе.
Помогите пожалуйста
Query->SQL->Clear();
Query->SQL->Add("CREATE TABLE `TestTable` (
`ID` INT NOT NULL AUTO_INCREMENT PRIMARY KEY,
`Number` INT NOT NULL,
`Name` VARCHAR(20) NOT NULL,
`Age` SHORT NOT NULL,
)");
Query->ExecSQL();
А текст сообщения об ошибке какой ?
Спасибо тень пса
не за что ;)