حفظ البيانات في أكثر من جدول في نفس العملية

هل من مجيب يا شباب

ارجو المساعدة اكرمكم الله

السلام عليكم

راجع هذا الموضوع ان شاء الله يفيدك

http://stackoverflow.com/questions/2482122/adding-data-in-multiple-tables-in-vb-net

جزاكم الله خيرا

//C#
string query = "Insert Into Categories (CategoryName) Values (?)";
string query2 = "Select @@Identity";
int ID;
string connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|Northwind.mdb";
using (OleDbConnection conn = new OleDbConnection(connect))
{
  using (OleDbCommand cmd = new OleDbCommand(query, conn))
  {
    cmd.Parameters.AddWithValue("", Category.Text);
    conn.Open();
    cmd.ExecuteNonQuery();
    cmd.CommandText = query2;
    ID = (int)cmd.ExecuteScalar();
  }
}

'VB
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

هذا الكود لو كان  هناك مفتاح أجنبي في أحد الجداول تستعيد رقم الحقل الجديد  بهذا الشكل حتى يتم اضافته  للجدول التالي  ،،  و هكذا  .. الخ

هنا  مربط الفرس بهذا الكود

Dim query2 As String = "Select @@Identity"