ارتباط دو جدول و تنظيمات كمبوباكس

[mehran5]

فرض كنيد دو جدول داريم TAوTB.(مثل عكس)فيلد N_VAHEDاز جدول TAرا از طريق ارتباط با جدول TB ,با فيلد N_VAHED از TB پر ميكنيم .اين كار را ميخواهيم از طريق ايجاد يك كمبو باكس انجام دهيم كه محتويات كمبوازستون واحداز جدول TB پر شود بطوريكه با انتخاب هر مورد از كمبو فيلد متناظر آن در ستون كناري از جدول TBدر فيلد N_VAHED از جدولTA پر شود.ميخواستم بدونم كد ارتباطش چيه و بايند كردن داده و datasourc, display member,datamember دركمبو چطوريه ممنون ميشم كسي كمكم كنه؟

[negar_programmer]

فكر نمي كنم لازم باشه شما راه خيلي سختي رو طي كنيد .مي تونيد داخل كد انتخاب cobo (يعني اين كد زماني اجرا بشه كه شما يه مقدار از مقادير ذخيره شده در combo را انتخاب كنيد) يك دستور select براي فيلد انتخاب شده بنويسيد و فيلد متناظر با اون را در جدول ديگه واكشي كنيد . و مقدار مورد نظر را به شكل متناظر در text ديگه اي بريزيد.

[samispeed]

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

[ali_md110]

من فکر کنم شما میخواهید یک رابطه پدر فرزندی بین دو جدول بانک رو با دو کامبو باکس انجام بدید
مثال زیر مشکل شما رو حل میکنه شما با انتخاب یک کشور از کومبو اول لیست شهرهای مربتط با اونو در کومبو 2 میبینید
در ضمن روشهایی که دوستان در بالا ذکر کردند ممکنه برنامه رو یه مقدار کند بکنه

Imports System.Data.OleDb
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Relation_ship_2combobox()
End Sub
Private Sub Relation_ship_2combobox()
Dim DS As New DataSet
Dim SQL As String = "select * from Countries "
Dim SQL1 As String = "select * from city"
Dim Connection As New OleDbConnection("Provider= Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db1.mdb")
Dim AdapterParent As New OleDbDataAdapter(SQL, Connection)
Dim AdapterChild As New OleDbDataAdapter(SQL1, Connection)
AdapterParent.Fill(DS, "Countries")
AdapterChild.Fill(DS, "city")
DS.Relations.Add("RelCountrycity", _
DS.Tables("Countries").Columns("ID_contry"), _
DS.Tables("city").Columns("ID_contry"))
With Cbocontry

.DisplayMember = "Countries.name_contry"
.ValueMember = "ID"
.DataSource = DS
End With
With Cbocity
.DataSource = DS
.DisplayMember = "Countries.RelCountrycity.name_city"
.ValueMember = "ID"

End With
End Sub
End Class

[y.saied]

دوستان راه ساده تری به نظرتون نمیرسه؟؟؟؟