ایجاد Relationship بصورت داینامیک

[edisoon]

من در یک فرم دو عدد دیتاگرید قرار داده ام و هر دیتاگرید را توسط یک DataSet جداگانه و با استفاده از کدنویسی و در زمان اجرا پر میکنم. سئوال من این است که چگونه میتوانم رابطه بین این دو گرید را که یکی از آنها زیرمجموعه ای از هر رکورد از گرید اول میباشد را برقرار کنم بصورتیکه وقتی در دیتاگرید اول جابجا میشویم در دیتاگرید دوم زیرمجموعه های آن رکورد نمایش داده شود.

[mostafaaa]

به جای دو تا DataSet از یه DataSet استفاده میکنی و با استفاده از متد RelationShip ارتباطات مربوطه رو ایجاد میکنی.

[edisoon]

دوست عزیز ممنونم، به گفته شما عمل کردم و از یک DataSet استفاده کردم. ولی متاسفانه موفق نشدم Relashin رو با کدنویسی برقرار کنم. اگه زحمت بکشی کد نمونه ای برای راهنمایی بنویسی دستات رو ماچ میکنم

[bardia goharbin]

به کد زیر دقت کن، این کد یک ارتباط بین دوتیبل موجود در یک دیتاست ایجاد میکند

    Private Sub CreateDataRelation()

        Dim obj_DataRelation As System.Data.DataRelation



        Dim obj_ParentClmn, obj_ChildClmn As DataColumn



        'Get the reference of colums to create a relation between.

        obj_ParentClmn = obj_DataSet.Tables("Category").Columns("CategoryId  ")

        obj_ChildClmn = obj_DataSet.Tables("Product").Columns("CategoryId"  )



        'Creates a relation object, Parameters required are - New Relation Name, Object of Parent & Child column respectively.

        obj_DataRelation = New DataRelation("relation_Category_Product", obj_ParentClmn, obj_ChildClmn)



        obj_DataSet.Relations.Add(obj_DataRelation) ' Adding Relation to the dataset that holds the tables.



    End Sub

حالا میتونی دست آقا مصطفی رو ماچ کنی، چون فعالیت خوبی داره توی سایت ;)

[mostafaaa]

اینم یه مثال کامل با دو تا DataGridView

Imports System.Data.OleDb

  Public Class Form1

      Const ConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb"

      Dim Connection As OleDbConnection

      Dim DataAdapter As OleDbDataAdapter

      Dim DataSet As New DataSet

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

          Connection = New OleDbConnection(ConnectionString)

          Connection.Open()

          DataAdapter = New OleDbDataAdapter(New OleDbCommand("SELECT * FROM tblName", Connection))

          DataAdapter.Fill(DataSet, "tblName")

          DataAdapter = New OleDbDataAdapter(New OleDbCommand("SELECT * FROM tblFamily", Connection))

          DataAdapter.Fill(DataSet, "tblFamily")

          DataSet.Relations.Add("MyRelation", Me.DataSet.Tables("tblName").Columns("ID") _

                                   , Me.DataSet.Tables("tblFamily").Columns("ID"))

          Me.DataGridView1.DataSource = Me.DataSet

          Me.DataGridView1.DataMember = "tblName"

      End Sub

  

      Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click

          Me.DataSet.Relations("MyRelation").ChildTable.DefaultView.RowFilter = "ID=" & _

          Me.DataGridView1.CurrentRow.Cells("ID").Value

          Me.DataGridView2.DataSource = Me.DataSet.Relations("MyRelation").ChildTable

      End Sub

  End Class