С помощью TSQLConnection.ExecuteDirect выполняю рад запросов (создание базы данных, создание пользователя и назначение прав, создание таблиц).
Все проходит на ура. Но при попытке заполнить тем же способом некоторые таблицы данным (для проекта необходимо создать изначальную базу данных с готовыми таблицами и некоторым набором данных, занесенным в них) получаю ошибку:

При том замечу, что посылая данный запрос через консоль Navicat получаю нормальный результат.
Использую RAD Studio XE2.
Пример кода:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | SQLConnection_Main . Open;
SQLConnection_Main . ExecuteDirect( 'CREATE DATABASE ' + Edit_Step20DBName . Text);
SQLConnection_Main . ExecuteDirect( 'GRANT ALL PRIVILEGES ON ' +
Edit_Step20DBName . Text + '.* TO ' +
Edit_Step20AdminName . Text +
'@"%" IDENTIFIED BY ' '' +
Edit_Step20AdminPass . Text + '' ' WITH GRANT OPTION;' );
SQLConnection_Main . ExecuteDirect( 'USE ' + Edit_Step20DBName . Text);
SQLConnection_Main . ExecuteDirect( 'CREATE TABLE `Orgs` ' +
'(`Key` int NULL AUTO_INCREMENT ,' +
'`Org` char(255) CHARACTER SET cp1251 NULL ,' +
'PRIMARY KEY (`Key`));' );
SQLConnection_Main . ExecuteDirect( 'INSERT INTO `Orgs` (`Org`) VALUES ("Некий текст, который нужно внести в таблицу");' );
SQLConnection_Main . Close;
|