Utilizzo di @@ Identity

Question

Mi chiedo come ottenere il valore di autonumber generato più di recente da una tabella in un altro db. Attualmente sto facendo questo:

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 

Ma dando a col un valore di 0 al posto del nuovo autonumber generato. Qualche idea sul perché? O un altro modo per farlo?

Answer 1

Non hai mostrato il codice che fa il INSERT nell'altro database. Se si utilizza il metodo Execute di un oggetto connessione ADO per farlo, eseguire la query SELECT @@Identity da quello stesso oggetto di connessione ... non una nuova connessione con la stessa stringa di connessione. @@Identity è utilizzabile solo nella stessa sessione di connessione; altrimenti otterrai 0.

E in realtà non hai nemmeno bisogno di un recordset per catturare quel valore. Se l'oggetto di connessione è denominato conn, verrà restituito un recordset, ma non è necessario assegnarlo a una variabile dell'oggetto recordset. Basta chiedere il primo oggetto dal recordset restituito.

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