Сгенерированный ID в поле autoincrement

[grominfo]

Всем привет!

Делаю так:

D.Query.SQL.Text:= 'INSERT INTO Cats (sParent) VALUES(''12345'')';
D.Query.ExecSQL;
D.Query.SQL.Text:= 'Select @@IDENTITY as LastId';
D.Query.Open;
ShowMessage(D.Query.fieldbyname('LastId').AsString);

Но результат всегда "0". Кто знает, почему не работает?

[D-mon]

Потому что транзакции разные, делай так:

D.Query.SQL.Text:= 'INSERT INTO Cats (sParent) VALUES(''12345'')'#13#10+
                            'Select @@IDENTITY as LastId';
D.Query.ExecSQL;
ShowMessage(D.Query.fieldbyname('LastId').AsString);

[Аватар]

Потому что транзакции разные, делай так

Транзакции не при чем. И у ТС ACCESS, в предыдущем вопросе был по крайней мере. Тем более не будет работать. Поле счетчик создано в таблице?

[D-mon]

Несогласен с Аватар... дело в транзакции, инсерт выполняется в одной транзакции(сессии), а идентификатор он хочет получить совершенно в другой транзакции(сессии).

[grominfo]

Сообщение от D-mon

Потому что транзакции разные, делай так:

D.Query.SQL.Text:= 'INSERT INTO Cats (sParent) VALUES(''12345'')'#13#10+
                            'Select @@IDENTITY as LastId';
D.Query.ExecSQL;
ShowMessage(D.Query.fieldbyname('LastId').AsString);

Я уже делал так, пишет, что пропущен ( ; ) в инструкции

Сообщение от Аватар

Транзакции не при чем. И у ТС ACCESS, в предыдущем вопросе был по крайней мере. Тем более не будет работать. Поле счетчик создано в таблице?

Да. Таблица создана так

D.CreateTable('Cats', 'Id autoincrement primary key, sParent int, sName varchar');

База данных MS Access+ADO

На данный момент я получаю последний Id так:

SELECT Id FROM Cats ORDER BY id DESC

Ну а потом беру первую запись. Но это неправильно. При большом кол-ве строк это вообще глупо

Сообщение от D-mon

Несогласен с Аватар... дело в транзакции, инсерт выполняется в одной транзакции(сессии), а идентификатор он хочет получить совершенно в другой транзакции(сессии).

D.Query.SQL.Clear;
D.Query.SQL.Add('INSERT INTO Cats (sName) VALUES(''12345'')');
D.Query.SQL.Add('Select @@IDENTITY as LastId');
D.Query.ExecSQL;

Так не работает. Пишет, что ошибка в инструкции

[Аватар]

транзакции(сессии)

Чего это транзакция и сессия одно и тоже. Сессия это обычно в рамках соединения с базой, повторяю обычно, есть другие варианты. Транзакций в рамках сессии может быть сколь угодно. Так вот, @@IDENTITY в рамках сессии, а не транзакции. И у меня прекрасно работает по коду из #1

Да. Таблица создана так

А зачем её програмно создавать?

CreateTable

Чей это метод. Тип компонента?

[D-mon]

В рамках сессии @@IDENTITY межет менятся много раз. И поэтому

select @@IDENTITY

нужно делать в рамках транзакции, что бы точно подцепить свой @@IDENTITY.

Сообщение от grominfo

Я уже делал так, пишет, что пропущен ( ; ) в инструкции

D.Query.SQL.Text:= 'INSERT INTO Cats (sParent) VALUES(''12345'');'#13#10+
                            'Select @@IDENTITY as LastId;';
D.Query.ExecSQL;
ShowMessage(D.Query.fieldbyname('LastId').AsString);

[grominfo]

Сообщение от D-mon

D.Query.SQL.Text:= 'INSERT INTO Cats (sParent) VALUES(''12345'');'#13#10+
                            'Select @@IDENTITY as LastId;';
D.Query.ExecSQL;
ShowMessage(D.Query.fieldbyname('LastId').AsString);

Ставил уже. Пишет, что обнаружены символы за пределами инструкции

Сообщение от Аватар

А зачем её програмно создавать?

Программа - это специфический справочник. В ней создаются, удаляются, изменяются справки. Поэтому нужно динамически создавать базы

Сообщение от Аватар

CreateTable
Чей это метод. Тип компонента?

Это мой класс-обертка над ADO. Сделан для упрощения работы

[Аватар]

нужно делать в рамках транзакции, что бы точно подцепить свой @@IDENTITY

Тогда уж явно открывать транзакцию, последовательно выполнять две команды и закрывать транзакцию. Не помню, что бы ADO и JETOLEDB для ACCESS мог пакеты обрабатывать. Но у ТС что-то другое - 0 в любом случае не должен быть

[grominfo]

UP

Ну че, ни у кого нет решения? Везде на форумах советуют именно эту конструкцию, но она не работает ни в моей обертке, ни напрямую в ADOQuery