Создание таблицы в Firebird из Lazarus'a

[Reyko]

Требуется создать таблицу в пустой базе данных из Лазаря.
Lazarus 0.9.26.2 + Firebird 2.1 + sqldb.
Вот код:

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

 SQLQuery1.Transaction:=SQLTransaction1;
     SQLQuery1.DataBase:=IBConnection1;
     DataSource1.DataSet:=SQLQuery1;
     SQLQuery1.Close;
     SQLQuery1.SQL.Clear;
     SQLQuery1.SQL.Text:='CREATE TABLE "MYUSER" ("LOGIN" VARCHAR(30), SURNAME VARCHAR(30), PRIMARY KEY("LOGIN"));';
     SQLQuery1.ExecSQL;
     SQLQuery1.SQL.add('SELECT * FROM "MYUSER";');
     SQLQuery1.Open; 

При попытке добавить таблицу Лазарус выдает ошибку : sql error code -104 Token unknown line 2 char 1

[EmeraldMan]

После первого запроса забыли очистить SQL (SQLQuery1.SQL.Clear).
И Query пытается второй раз выполнить сразу и создание и выборку вот и ругается.
Т.е. ругался он именно на второй запрос select, который шел не как отдельный, а как вторая строка.

[Reyko]

Если добавить SQLQuery1.SQL.Clear, то лазарь ругается, что такой таблицы не существует:

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

Dynamic SQL Error 
SQL Error code -204
table unknown
MYUSER
at line 1 column 10

Я так поняла, что таблица не создалась...

[xcod]

Я так поняла, что таблица не создалась...

А транзакцию подтвердили7

[Reyko]

А транзакцию подтвердили7

Вы имели введу это:

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

SQLQuery1.ApplyUpdates;
SQLTransaction1.CommitRetaining;

?

Если добавить после SQLQuery1.ExecSQL, то появляется ошибка:

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

Project reised exception class 'EDataBaseError' with the message:
Operation cannot be performed on an inactiv dataset

[xcod]

попробуйте после

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

SQLQuery1.ExecSQL;

сделать

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

SQLTransaction1.CommitRetaining;

[Reyko]

попробуйте после

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

SQLQuery1.ExecSQL;

сделать

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

SQLTransaction1.CommitRetaining;

Спасибо большое! Всё заработало.
Я думала, что SQLTransaction1.CommitRetaining без SQLQuery1.ApplyUpdates не работает и даже не думала использовать их раздельно ...

[v-t-l]

Я думала, что SQLTransaction1.CommitRetaining без SQLQuery1.ApplyUpdates не работает и даже не думала использовать их раздельно ...

SQLQuery1.ApplyUpdates нужен, если запрос вернул набор данных, вы их отредактировали и хотите отправить изменения в БД.

[Reyko]

SQLQuery1.ApplyUpdates нужен, если запрос вернул набор данных, вы их отредактировали и хотите отправить изменения в БД.

Спасибо за объяснение

[Attid]

CommitRetaining не рекомендуется использовать, можете потом получить проблемы с транзакциями в БД. лучше просто Commit