منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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, "")


ازاى اعمل كود حذف من كود الاضافة السابق

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

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

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

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

السلام عليكم 

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

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

[attachment=23758]

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

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

تحياتى