العلاقات بين أكثر من جدولين ... وآلياتها ... وتعديل نوع الحقول

كود :
Dim cmd As SqlCommand = New SqlCommand("SELECT * from stu_data ", con)

            SQLDataAdapter1 = New SqlDataAdapter(cmd)

            Dim builder As SqlCommandBuilder = New SqlCommandBuilder(SQLDataAdapter1)

            SQLDataSet1 = New DataSet()

            SQLDataAdapter1.Fill(SQLDataSet1, "stu_data")



 Dim cmd20 As SqlCommand = New SqlCommand("SELECT * from course ", con)

            SQLDataAdapter20 = New SqlDataAdapter(cmd20)

            Dim builder20 As SqlCommandBuilder = New SqlCommandBuilder(SQLDataAdapter20)

            SQLDataSet20 = New DataSet()

            SQLDataAdapter20.Fill(SQLDataSet20, "course")



 Dim cmd30 As SqlCommand = New SqlCommand("SELECT * from Family ", con)

            SQLDataAdapter30 = New SqlDataAdapter(cmd30)

            Dim builder30 As SqlCommandBuilder = New SqlCommandBuilder(SQLDataAdapter30)

            SQLDataSet30 = New DataSet()

            SQLDataAdapter30.Fill(SQLDataSet30, "Family")







            BindingSource1 = New BindingSource(SQLDataSet1, "stu_data")

            BindingSource11 = New BindingSource(SQLDataSet20, "course")

            BindingSource12 = New BindingSource(SQLDataSet30, "Family")





            stu_no.DataBindings.Add("Text", BindingSource1, "stu_no", True, 1, "")

            stu_name.DataBindings.Add("text", BindingSource1, "stu_name", True, 1, "")

            stu_zone.DataBindings.Add("text", BindingSource1, "stu_zone", True, 1, "")

            stu_address.DataBindings.Add("text", BindingSource1, "stu_address", True, 1, "")

  stu_contry.DataBindings.Add("SelectedValue", BindingSource1, "stu_contry", True, 1, "")









            data.Locale = System.Globalization.CultureInfo.InvariantCulture

            data2.Locale = System.Globalization.CultureInfo.InvariantCulture



            SQLDataAdapter1.Fill(data, "stu_data")

            SQLDataAdapter20.Fill(data, "course")

            SQLDataAdapter1.Fill(data2, "stu_data")

            SQLDataAdapter30.Fill(data2, "Family")







            Dim relation1 As New DataRelation("stu_datacourse", data.Tables("stu_data").Columns("stu_no"), data.Tables("course").Columns("cou_stu_no"))

            Dim relation2 As New DataRelation("stu_dataFamily", data2.Tables("stu_data").Columns("stu_no"), data2.Tables("Family").Columns("Fam_stu_no"))



            data.Relations.Add(relation1)

            data2.Relations.Add(relation2)



            BindingSource1.DataSource = data

            BindingSource11.DataSource = data2



            BindingSource1.DataMember = "stu_data"

            BindingSource11.DataMember = "stu_data"

            BindingSource13.DataMember = "stu_data"





            'انشاء بندج سورز جديد وادراج الداتاست والجدول بداخله

            BindingSource20 = New BindingSource(SQLDataSet20, "course")

            bindingsource30 = New BindingSource(SQLDataSet30, "Family")



            bindingsource20.DataSource = BindingSource11

            bindingsource20.DataMember = "stu_datacourse"



            bindingsource30.DataSource = BindingSource12

            bindingsource30.DataMember = "stu_dataFamily"





            ' SQL كود ربط داتا جريد بقاعدة البيانات

            DataGridView1.DataSource = BindingSource20

            DataGridView2.DataSource = bindingsource30