Использование @@ Identity

Question

Мне интересно, как я мог получить последнее генерируемое значение autonumber из таблицы в другой db. В настоящее время я делаю это:

Do Until rsA.EOF 
    'Inserts new row here (works) 
    Set rs = New ADODB.Recordset 
    rs.Open "SELECT @@Identity" (Connection info) 
    SQLcmd = "UPDATE tbl SET col = " & rs("SELECT @@Identity").Value & " 
    (WHERE statement);" 
    DoCmd.RunSQL SQLcmd 
    rsA.MoveNext 
Loop 

Но его присвоение значению 0 вместо вновь созданного автономера. Любая идея почему? Или другой способ сделать это?

Answer 1

Вы не указали код, который делает INSERT, в другой базе данных. Если для этого используется метод Execute объекта ADO Connection, запустите запрос SELECT @@Identity из этого того же объекта подключения ... не новое соединение с той же строкой соединения. @@Identity можно использовать только в одном сеансе подключения; в противном случае вы получите 0.

И на самом деле вам даже не нужен набор записей для захвата этого значения. Если ваш объект соединения имеет имя conn, это вернет набор записей, но вам не нужно назначать его переменной объекта набора записей. Просто попросите первый элемент из возвращенного набора записей.

Debug.Print "most recent autonumber: " & _ 
    conn.Execute("SELECT @@Identity")(0)