منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال فى الحذف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=32527)



سؤال فى الحذف - احمد خطاب - 14-12-19

السلام عليكم

ازاى احذف اى بيان من كمبوبوكس 1 اذا كان مرتبط به كمبو بوكس 2 بمعنى ان اذا كان مثلا كمبو بوكس 1 به اسم احمد فيظهر فقط ابناء احمدفى كمبو2 فكيف احذف احمد من كمبوبوكس1 وبالتبعية تحذف ابناء احمد من كمبو2


RE: سؤال فى الحذف - boudyonline - 15-12-19

للاجابة على سؤالك يجب اولا معرفة اذا كان :
هل جميع البيانات في نفس الجدول ؟؟؟
وعل يتم تحميل كل الجدول في الفورم ؟


RE: سؤال فى الحذف - احمد خطاب - 26-12-19

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then Exit Sub

Button1.Enabled = False
Using con As New OleDb.OleDbConnection(str)
Using cm As New OleDb.OleDbCommand("", con)
cm.CommandText = "insert into country (countryname) values(@countryname)"
cm.Parameters.AddWithValue("@countryname", TextBox1.Text)
If con.State = ConnectionState.Closed Then con.Open()
cm.ExecuteNonQuery()

cm.Parameters.Clear()
'انتبه اجعل الاتصال مفتوح لتحصل على آخر رقم اي دي
cm.CommandText = "select@@identity"
Dim id As Integer
If con.State = ConnectionState.Closed Then con.Open()
id = cm.ExecuteScalar
If con.State = ConnectionState.Open Then con.Close()
cm.Parameters.Clear()
If con.State = ConnectionState.Closed Then con.Open()

For Each h As String In TextBox2.Text.Split(vbNewLine)
cm.Parameters.Clear()
cm.CommandText = "insert into city (countryid,cityname) values(@countryid,@cityname)"
cm.Parameters.AddWithValue("@countryid", id)
cm.Parameters.AddWithValue("@cityname", h)
cm.ExecuteNonQuery()
Next
If con.State = ConnectionState.Open Then con.Close()
End Using
End Using
gd()
Button1.Enabled = True
MsgBox("تم حفظ الدولة ومدنها", MsgBoxStyle.Information, "")


ده كود الاضافة ازاى اعمل منه كود حذف


RE: سؤال فى الحذف - boudyonline - 26-12-19

طبقا لأوامر الاضافة المذكورة فإنه يوجد لديك جدولين :
الاول : Country
والثاني : City
وعلى ذلك يتم اولا حذف المدن من الجدول City التي لها كود الدولة المطلوب حذفها
Delete from city where countryid = @countryid
ثم من الجدول Country يتم حذف الدولة المراد حذفها طبقا للإمر السابق
Delete from country where countryid = @countryid


RE: سؤال فى الحذف - احمد خطاب - 27-12-19

الف مليون شكر