الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

معرفة الرقم والحذف لجدولين؟؟؟

مغلق
بدأه cooli في 5 ديسمبر 2005 · 6 رد · 570 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

انا لدي جدولين في ال SQL

الجدول الاول هو information به الرقم NO والاسم Name والمهنة job

الحجدول الثاني family به الرقم NO_family واسم الطفل Name_ch والعمر Age

العلاقة بينهم بين NO و NO_Information

بيحث NO هو نفس الحقل في الجدول الثاني NO_family

انا استطيع ان اضيف في الجدول الاول

cmd.CommandText = "INSERT INTO [information ]( [Name ],[job

لكن المشكلة كيف استطيع الاضافة في الجدول الثاني لنفس الرقم في الجدول الاول

ويحفظ نفس رقم الجدول الاول في NO_family ثم باقي بيانات الجدول الثاني

,وشكراااااااااااااااا

#2

قم باضافه اداه SQL Command اخرى

فقط !!!!!!!!!!

#3

نعم قم بإضافة command أخر أو DataAdapter أخر للجدول الفرعي

ملاحظة ::

عند الإضافة و التحديث و الاختيار ( التطبيق اولاً على جدول الاب ثم جدو الابن)

أما عند الحذف ( أحذف اولاً من جدول الابن ثم جدول الاب)

بالتوفيق إن شاء الله.

في المثال يتضح المقال

#4

ممكن توضح اكثر بمثال توضيح او كتابة الكود

وشكرا على الرد

#5

الغملاسي ماودك توضح اكثر لو بمثال

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

#6

عزيزي بارك الله فيك

أحب أشوف تجربتك و كودك حتى نكون في صميم العمل مباشرتاً.

و إذا لم تأتي بناتج أكتب ما برمجت و إن شاء الله الاخوة و أنا نحاول إيصال الفكرة و إزالة اللبس بقدر الاستطاعة.

بالتوفيق أخي العزيز.

في المثال يتضح المقال

#7

اخواني انا لدي جدولين employ & family جدول الموظفين وجدول لعائلته

employ فيه id,name,job.loction

family فيه id_family,id,name,age

عندما اريد حذف عائلة موظف فقط من الجدول الثاني تكون :

" delete from Family where id_family = " & f1.Text

ليس فيها مشكلة الحذف

ولكن انا اريد معرفة id للموظف الذي تم حذف عائلته لانني سوف اعمل اضافة مثلا لعائلته مره اخرى وعندما اكتب الكود التالي لاعرف

id لايظهر id ويضيف لموظف اخر وهذا الكود (يعني مشكلتي كيف اعرف id للموظف الذي تم حذف عائلته الكود هذا :

Dim adpt As New SqlDataAdapter("SELECT id_employ from employ where NAME=" & txt_name.Text, conn.ConnectionString)

Dim ds1 As New DataSet

ds1.Clear()

adpt.Fill(ds1)

Dim NO As Integer

NO = ds1.Tables(0).Rows(0).Item(0)

If txt_family_name1.Text <> "" Then cmd2.CommandText = "INSERT INTO

.[dbo].[Family]( [Emp_Id],[name_Family],[age],[gender]) VALUES " & "(" & NO & ",' " & txt_family_name1.Text & "'," & txt_family_age1.Text & "," & gn1 & ")"

هذا الموضوع مغلق.

مواضيع مشابهة