ارتباط TextBox با ComboBox متصل به DataBase

[pazis-flasher]

سلام...
من یک ComboBox روی فرم دارم که به یکی از Column های دیتابیس موجود در پروژه متصل است. حالا می خوام با رویداد SelectedItemChanged در این ComboBox ، اطلاعات موجود در Record انتخاب شده ( در یک Column دیگر ) به عنوان Text برای یک TextBox باشد.
چطوری ؟

[pazis-flasher]

من دقیقاً می خوام با انتخاب یک Item از ComboBox کاربر اطلاعات موجود در یک Column دیگر از همان Record را در TextBox ببیند. چگونه ؟!؟

[Coding]

اگه درست کنترل ها رو بایند کرده باشی باید بدون هیچ کدی دقیقا ً همون کار رو بکنه!

[parsavb]

این کد رو توبرنامه ات بزرای درست میشه
در ضمن می تونی چیزهای دیگری رو هم بهش اضافه کنی




Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim aindex As Integer

With ComboBox1
For aindex = 0 To .Items.Count - 1
If CType(.Items(aindex)(1), String).Trim = TextBox1.Text.Trim Then

.SelectedIndex = aindex
Exit For

End If

Next

If aindex >= .Items.Count Then .SelectedIndex = -1
End With

End Sub

Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
TextBox1.Text = ComboBox1.SelectedValue.ToString
End Sub

[ali_md110]

Private Sub fill_combo()
Dim da As OleDbDataAdapter
Dim con As OleDbConnection
Dim ds As New DataSet
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db.mdb")
da = New OleDbDataAdapter("select * from table1", con)
da.Fill(ds, "table1")
With ComboBox1
.DataSource = ds.Tables(0)
.DisplayMember = "field1"
.ValueMember = "field2"
.SelectedIndex = 0
End With
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim aIndex As Integer

With ComboBox1
For aIndex = 0 To .Items.Count - 1
If CType(.Items(aIndex)(1), String).Trim = TextBox1.Text.Trim Then
.SelectedIndex = aIndex
Exit For
End If
Next
If aIndex >= .Items.Count Then .SelectedIndex = -1
End With

End Sub

Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted

TextBox1.Text = ComboBox1.SelectedValue.ToString

End Sub

یه بانک بساز بنام db یه جدول بنام table1و2 فیلد بنام field1,field2 اضافه کن و کپی بکن توی پوشه bin برنامه یه تکست باکس و یک کومبو باکس هم اضافه کن textbox1,combobox1

[toopak]

Private Sub fill_combo()
Dim da As OleDbDataAdapter
Dim con As OleDbConnection
Dim ds As New DataSet
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db.mdb")
da = New OleDbDataAdapter("select * from table1", con)
da.Fill(ds, "table1")
With ComboBox1
.DataSource = ds.Tables(0)
.DisplayMember = "field1"
.ValueMember = "field2"
.SelectedIndex = 0
End With
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim aIndex As Integer

With ComboBox1
For aIndex = 0 To .Items.Count - 1
If CType(.Items(aIndex)(1), String).Trim = TextBox1.Text.Trim Then
.SelectedIndex = aIndex
Exit For
End If
Next
If aIndex >= .Items.Count Then .SelectedIndex = -1
End With

End Sub

Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted

TextBox1.Text = ComboBox1.SelectedValue.ToString

End Sub
یه بانک بساز بنام db یه جدول بنام table1و2 فیلد بنام field1,field2 اضافه کن و کپی بکن توی پوشه bin برنامه یه تکست باکس و یک کومبو باکس هم اضافه کن textbox1,combobox1

سلام
من از این روش استفاده کردم برای پر کردن کمبوباکس
اما یه مشکلی وجود داره
وقتی برنامه اجرا میشه
روی کمبوباکس که کلیک میکنم
محتواش پاک میشه
یعنی نوشته توش خالی میشه و فوکوس میشه روش برای تایپ
با چه دستوری میتونم یه کاری کنم که این مشکل حل بشه؟

[mostafaaa]

به این مثال یه نگاهی بنداز

22146