Ваш код Не вызывает ошибки, ставил его перед этим, однако этот(скопировал) вызывает ошибку. После ошибки в дбфордже нет таблиц(около 30, должно было создать)
Код: Выделить всё
Form2->MyConnection2->ExecSQL
("CREATE DATABASE IF NOT EXISTS `u_db`"
" CHARACTER SET utf8 COLLATE utf8_general_ci", NULL, 0);
ComboBox1->Text = "u_db";
//Далее вызываю функцию Createtab(); В которой около 30 таблиц, включая эту
Form2->MyConnection2->ExecSQL("CREATE TABLE IF NOT EXISTS doscl ( "
" DC_ID int(11) UNSIGNED NOT NULL AUTO_INCREMENT, "
" DC_CLIENTID int(11) UNSIGNED DEFAULT NULL, "
" DC_CNAME varchar(50) DEFAULT NULL, "
" DC_PAS varchar(255) DEFAULT NULL, "
" DC_DOS int(11) UNSIGNED DEFAULT NULL, "
" DC_CONF int(11) UNSIGNED DEFAULT NULL, "
" PRIMARY KEY (DC_ID), "
" UNIQUE INDEX DC_CLIENTID (DC_CLIENTID), "
" CONSTRAINT FK_doscl_client_CL_ID FOREIGN KEY (DC_CLIENTID) "
" REFERENCES client (CL_ID) ON DELETE RESTRICT ON UPDATE CASCADE, "
" CONSTRAINT FK_doscl_conf1_C1_ID FOREIGN KEY (DC_CONF) "
" REFERENCES conf1 (C1_ID) ON DELETE RESTRICT ON UPDATE RESTRICT, "
" CONSTRAINT FK_doscl_dost_D_ID FOREIGN KEY (DC_DOS) "
" REFERENCES dost (D_ID) ON DELETE RESTRICT ON UPDATE RESTRICT "
") "
"ENGINE = INNODB "
//"AUTO_INCREMENT = 4 "
//"AVG_ROW_LENGTH = 8192 "
"CHARACTER SET utf8 "
"COLLATE utf8_general_ci; ",NULL,0);
//А затем идут такие проверки, эта первая, ставил вашу, но ошибки не вызывало, однако таблиц не было помогает Это
// Form2->MyConnection2->Disconnect();
// Form2->MyConnection2->Connect();
UnicodeString sz =
"SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_SCHEMA='" +
ComboBox1->Text + "' AND TABLE_NAME='doscl' AND COLUMN_NAME='DC_CONF'";
MyQuery1->SQL->Clear();
MyQuery1->SQL->Add(sz);
MyQuery1->Open();
if (MyQuery1->IsEmpty()) {
Form2->MyConnection2->ExecSQL
("ALTER TABLE doscl"
" ADD COLUMN DC_CONF INTEGER(11) UNSIGNED DEFAULT NULL COMMENT 'НАСТРОЙКИ' AFTER DC_DOS; ",
NULL, 0);
}
// =====================================================================
Embarcadero® RAD Studio XE3 Version 17.0.4770.56661
7.6.11
MySQL server version: 5.5.32