Korzystanie z @@ Identity

Question

Zastanawiam się, w jaki sposób mogę uzyskać ostatnią wygenerowaną wartość automatycznego numerowania z tabeli w innej db. Obecnie robię to:

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 

Ale daje col wartość 0 zamiast nowo wygenerowanego autonumeru. Każdy pomysł, dlaczego? Lub inny sposób to zrobić?

Answer 1

Nie pokazałeś kodu, który zawiera INSERT w innej bazie danych. Jeśli używasz do tego metody Execute obiektu połączenia ADO, uruchom zapytanie SELECT @@Identity z tego tego samego obiektu połączenia ... nie nowego połączenia z tym samym ciągiem połączenia. @@Identity można używać tylko w ramach tej samej sesji połączenia; w przeciwnym razie dostaniesz 0.

Rzeczywiście nawet nie potrzebujesz zestawu rekordów, aby przechwycić tę wartość. Jeśli obiekt połączenia ma nazwę conn, zwróci zestaw rekordów, ale nie trzeba go przypisać do zmiennej obiektu zestawu rekordów. Po prostu poproś o pierwszy element z zwróconego zestawu rekordów.

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