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

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

سؤال فى الحذف - احمد خطاب - 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: سؤال فى الحذف - اسامه الهرماوي - 26-12-19

السلام عليكم...
ممكن توضيح.

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

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

RE: سؤال فى الحذف - اسامه الهرماوي - 26-12-19

هو ممكن نحذف بالطريقة العادية حسب إسم أو رقم المراد حذفة.
وهكذا الكود هيكرر مرتين.
1:الحذف من الجدول الأول حسب البيانات المرتبطة بإستخدام where.
2:الحذف من الجدول الثاني حسب البيانات المرتبطة بإستخدام where.
ولو حضرتك واجهت مشكلة ممكن تبعتلي المشروع خاص.

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

(26-12-19, 02:41 AM)احمد خطاب كتب : عندى مشروع به قاعدة بيانات من جدولين مرتبطين ازاى احذف الجدول الاول وبالتبعية يحذف الجدول الثانى غلما بان بيانات الجدول الاول ترمى فىليست بوكس 1 والجدول الثانى يرمى فى ليست بوكس 2

السلام عليكم 

عند ربط الجدولين فى الSQL SERVER

اتبع المرفق التالى

[attachment=23758]

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

دون عمل كود للحذف من الجدول الاخر 

تحياتى