Verwenden von @@ Identität

Question

Ich frage mich, wie ich den zuletzt generierten Autowert-Wert aus einer Tabelle in einer anderen Datenbank abrufen konnte. Momentan mache ich das:

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 

Aber es gibt Col einen Wert von 0 anstelle der neu generierten Autonummer. Irgendeine Idee warum? Oder eine andere Möglichkeit, dies zu tun?

Answer 1

Sie haben den Code, der die INSERT in die andere Datenbank tut, nicht angezeigt. Wenn Sie die Execute-Methode eines ADO Connection-Objekts dazu verwenden, führen Sie die SELECT @@Identity-Abfrage von diesem gleichen Verbindungsobjekt ... keine neue Verbindung mit der gleichen Verbindungszeichenfolge. @@Identity ist nur innerhalb derselben Verbindungssitzung verwendbar; Andernfalls erhalten Sie 0.

Und eigentlich brauchen Sie nicht einmal ein Recordset, um diesen Wert zu erfassen. Wenn Ihr Verbindungsobjekt benannt wird, wird ein Re-Cord-Set zurückgegeben, aber Sie müssen es einer Re-Cord-Set-Objektvariablen nicht zuweisen. Fragen Sie einfach nach dem ersten Element aus dem zurückgegebenen Recordset.

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