[حريف برمجة]

وبعد عملية الحفظ مباشرة يجلب لك ID السجل الأخير الذي تم حفظه للإستفادة منه في عملية أخرى :

أكسس :

كود :

Dim ID As Integer
Using conn As New OleDbConnection(connect)
  Using cmd As New SqlCommand("insert Into Categories (CategoryName) Values (@CategoryName)", conn)
    cmd.Parameters.AddWithValue("@CategoryName", Category.Text)
    conn.Open()
    cmd.ExecuteNonquery()
    cmd.Commandtext="select @@Identity"
    ID = cmd.ExecuteScalar()
    conn.close()
  End Using
End Using 

اسكيوال سيرفر :

كود :

Dim query As String = "insert Into Categories (CategoryName) Values (@CategoryName);" & _
    "select Scope_Identity()"

Dim ID As Integer

Using conn As New SqlConnection(connect)
  Using cmd As New SqlCommand(query, conn)
    cmd.Parameters.AddWithValue("@CategoryName", Category.Text)
    conn.Open()
    ID = cmd.ExecuteScalar()
  End Using
End Using