vb.net sql ostatnio wstawiony ID

Question

Używam VB.NET z bazą danych Access, wstawiam wartości, ale muszę pobrać ostatnio wstawiony identyfikator (numer auto) i wstawić go do powiązanej tabeli.

Próbowałem @@ IDENTITY i MAX (kolumna), ale @@ TOŻSAMOŚĆ zwraca zero, a MAX nie jest bardzo niezawodny (czasami wolno wstawić dane, więc idź identyfikator przed wstawionym).

Dim insertSql = datalayer.getDataTable((String.Format("INSERT INTO users (username) VALUES ({0})", username))) 

Dim newID = datalayer.getDataTable((String.Format("SELECT @@IDENTITY FROM users"))) 


Dim con As OleDbConnection = getConnection() 
con.Open() 
Dim sqlCommand As OleDbCommand = New OleDbCommand(String.Format(insertSql), con) 
sqlCommand.ExecuteNonQuery() 

Odbywa się to w dwóch funkcjach, więc powyższy kod może wyglądać na zagmatwany, ale pochodzi z dwóch funkcji. Dwie instrukcje są wykonywane, ale właśnie pokazałem, że jeden jest wykonywany jako przykład.

Czy istnieje alternatywa dla @@ IDENTITY i MAX, ponieważ wydaje mi się, że nie widzę, jak źle postępuję z @@ IDENTITY?

Dzięki za radę :).

Answer 1

Ma to absolutnie kluczowe znaczenie niż SELECT @@ TOŻSAMOŚĆ jest wykonywana na tym samym połączeniu (i transakcji) niż wstawka. Jeśli twoja metoda getDataTable() tworzy nowe połączenie dla każdego połączenia, to właśnie dlatego nie działa.

Aktualizacja

Innym podejściem, które jest korzystniejsze jest wykonanie dwóch sprawozdań w jednym

sql = "INSERT INTO...;SELECT @@IDENTITY..." 
Dim id = sqlCommand.ExecuteScalar(sql) 

Update

Wydaje się, że nie można wykonać wiele funkcji, takich jak to przeciwko bazie danych MS Access, Running multiple SQL statements in the one operation.

Answer 2

Możesz po prostu użyć następującego kodu. Przypuszczam, że użyłeś SqlDataSource a zdarzenie jest:

Protected Sub SqlDataSource1_Inserted(sender As Object, e As SqlDataSourceStatusEventArgs) Handles SqlDataSource1.Inserted 
Dim query As String = "SELECT @@IDENTITY" 
Dim cmd As New OleDbCommand(query, CType(e.Command.Connection, OleDbConnection)) 
Dim newid As Integer = cmd.ExecuteScalar() 
l1.Text = newid 
End Sub