freepascal.ru

Я что-то, не понял, как правильно создать таблицу например в базе MSSQL. Следующий код создает таблицу но после выхода из приложения в базе её нету.

Код: Выделить всё

SqlConnBuilderForm.SQLQuery2.SQL.Clear;
SqlConnBuilderForm.SQLQuery2.SQL.Text:=EdtInSQL.text;
SqlConnBuilderForm.SQLQuery2.ExecSQL;         


И что то...не идёт.

whs писал(а):SqlConnBuilderForm.SQLQuery2.SQL.Text:=EdtInSQL.text;

EdtInSQL.text какую строку содержит?

Для MySQL (не думаю, что в MS есть глобальные отличия)

Код: Выделить всё

query.SQL.Add('CREATE TABLE if not exists user(user_id integer NOT NULL AUTO_INCREMENT, user_name text (50), PRIMARY KEY(user_id)) ENGINE=MyISAM DEFAULT CHARSET=utf8;)

какие компоненты используешь? Commit есть?

Deimos писал(а):EdtInSQL.text какую строку содержит?

Содержит самое простое

Код: Выделить всё

CREATE TABLE NeWTable (date datetime)

Код: Выделить всё

query.SQL.Add('CREATE TABLE if not exists user(user_id integer NOT NULL AUTO_INCREMENT, user_name text (50), PRIMARY KEY(user_id)) ENGINE=MyISAM DEFAULT CHARSET=utf8;)

какие компоненты используешь? Commit есть?

Стандартные компоненты ODBCConnect, SQLQuery, SQLTransaction, MSSQLConnection. Наличие Commit не влияет на результат.

Некоторые компоненты требуют для такого рода действий не Query, а что-то типа SQLScript или SQLCommand.

P/S/ За все время работы так и не удосужился посмотреть реализацию, чтоб понять почему так происходит.

У тебя там при старте программы никакие транзакции не открываются случаем которые потом по умолчанию отроликаваются(roolback)?

DYUMON писал(а):У тебя там при старте программы никакие транзакции не открываются случаем которые потом по умолчанию отроликаваются(roolback)?

Может, открываются, но вот с чего бы им откатываться. Я не вижу причин.

P.S Проверил, да действительно проблема была в транзакциях. Выставил коммит по дефолту и прописал к какой базе ему цепляться, и вроде заработало. Спасибо тебе, я осознал на сколько это была глупая ошибка.

там по умолчанию вообще стоит rollback