[myalsailamy]

هذا كود يوضح طريقة اضافة عنصر جديد بقاعدة البيانات و يرجع لك المفتاح الرئيسي الجديد للبيانات التي تم ادراجها لتقوم باخدامه في اي استعلام اخر او اضافته كمفتاح اجنبي في جدول اخر ... الخ 
VB

كود :

Dim query As String = "Insert Into Categories (CategoryName) Values (@CategoryName);" & _
    "Select Scope_Identity()"
Dim ID As Integer
Dim connect As String = "Server=.\SQLExpress;AttachDbFilename=|DataDirectory|Northwind.mdf;" & _
    "Database=Northwind;Trusted_Connection=Yes;"
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