[VB 2008] - Recuperare ID dell'ultimo record inserito

[mdnet]

Buonasera a tutti, sto cercando di creare una piccola funzione per recuperare l'ID dell'ultimo record inserito in una determinata tabella.

Guardando in rete ho trovato un es. che ho modificato in base alle mie esigenze, il problema è che il risultato è sempre 0.

Grazie a chiunque riesca a darmi qualche info.


Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0; data source=c:\test\data\test.mdb")
Dim cmd As OleDbCommand = New OleDbCommand("Select * FROM Tabella1", con)
con.Open()
Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim myDataSet As DataSet = New DataSet()
myDA.Fill(myDataSet, "Tabella1")
con.Close()
con = Nothing




Dim newID As Integer = 0
Dim idCMD As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT @@IDENTITY", con)
MsgBox(newID)

[renygade]

Buonasera a tutti, sto cercando di creare una piccola funzione per recuperare l'ID dell'ultimo record inserito in una determinata tabella.

Guardando in rete ho trovato un es. che ho modificato in base alle mie esigenze, il problema è che il risultato è sempre 0.

Grazie a chiunque riesca a darmi qualche info.


Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0; data source=c:\test\data\test.mdb")
Dim cmd As OleDbCommand = New OleDbCommand("Select * FROM Tabella1", con)
con.Open()
Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim myDataSet As DataSet = New DataSet()
myDA.Fill(myDataSet, "Tabella1")
con.Close()
con = Nothing




Dim newID As Integer = 0
Dim idCMD As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT @@IDENTITY", con)
MsgBox(newID)

Ciao
Forse mi è sfuggito qualcosa..
Ma per ottenere l'ID cos'è che fai?
Crei un oggetto oledbCommand con la query in sql e poi? La fai eseguire la query?
Il codice completo è questo...

Dim query As String = "Insert Into Categories (CategoryName) Values (?)"
Dim query2 As String = "Select @@Identity"
Dim ID As Integer
Dim connect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|Northwind.mdb"
Using conn As New OleDbConnection(connect)
  Using cmd As New OleDbCommand(query, conn)
    cmd.Parameters.AddWithValue("", Category.Text)
    conn.Open()
    cmd.ExecuteNonQuery()
    cmd.CommandText = query2
    ID = cmd.ExecuteScalar()
  End Using
End Using

[mdnet]

Grazie infinite, ho risolto.

[renygade]

Grazie infinite, ho risolto.

Bene.
Per favore, posta il codice corretto, in modo che possa essere utile a qualcun'altro che incontrerà il tuo stesso problema.