+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارجو المساعدة بخصوص تحديث جدول بالبيانات عن طريق جدول اخر (/showthread.php?tid=15295)
ارجو المساعدة بخصوص تحديث جدول بالبيانات عن طريق جدول اخر - رامي الامير - 01-04-16
السلام عليكم اخوان لدي جدولين جدول رقم واحد والاخر رقم ٢ ويشتركون في رقم العامل عندما اضيف عامل جديد في الجدول الاول اريد كود لاضافة هذا العامل الى الجدول الثاني العامل الجديد فقطارجو منكم المساعدة وجزاكم الله الف خير
RE: ارجو المساعدة بخصوص تحديث جدول بالبيانات عن طريق جدول اخر - myalsailamy - 01-04-16
هذا كود يوضح طريقة اضافة عنصر جديد بقاعدة البيانات و يرجع لك المفتاح الرئيسي الجديد للبيانات التي تم ادراجها لتقوم باخدامه في اي استعلام اخر او اضافته كمفتاح اجنبي في جدول اخر ... الخ
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