PDA

View Full Version : سوال: نمایش آدرس در تکس باکس



port72
دوشنبه 04 شهریور 1392, 05:52 صبح
سلام
کد زیر اسم فرد رو در کومبو باکس سرچ میکونه اما می خوام وقتی فرد رو انتخاب میکونیم در تکس باکس زیر آن آدرس مربوط به اون شخص هم بیاد.
Imports System.Data.OleDb
Imports System.Data
Public Class Form1

Private Sub AutocomplateCustomSource()
On Error Resume Next
Dim str As String = My.Settings.DemoConnectionString
Dim con As New OleDbConnection(str)
con.Open()
Dim da As New OleDbDataAdapter("Select name From tbl_moshtari", con)
Dim ds As New DataSet
da.Fill(ds)
For i = 0 To ds.Tables(0).Rows.Count - 1

ComboBox1.AutoCompleteCustomSource.Add(ds.Tables(0 ).Rows(i)(0))
Next i
con.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Application.Exit()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
ComboBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
AutocomplateCustomSource()

End Sub
End Class

Fery666
دوشنبه 04 شهریور 1392, 10:10 صبح
یه خورده بیشتر توضیح میدی ؟
آدرس چی توی تکس باکس بیاد ؟؟

مگه اسامی در دیتابیس نیستن ؟

mesiiran
دوشنبه 04 شهریور 1392, 14:02 عصر
مشترک گرامی دسترسی به این پست امکانپذیر نمی باشد

port72
سه شنبه 05 شهریور 1392, 12:28 عصر
اگه ممکنه برنامه رو اجرا کنید متوجه می شید.در قسمت تکس باکس آدرس منزل شخص باید بیاد اما کد مورد نظر رو بلد نیستم.

مهرداد صفا
سه شنبه 05 شهریور 1392, 19:31 عصر
با سلام.
جدول مربوطه را به عنوان DataSource در combo قرار داده مقدار DisplayMember را به نام ستون مربوط به اسم فرد تغییر دهید. مقدار ValueMember هم به نام فیلد مربوط به آدرس تغییر دهید:

combo1.DataSource=ds.Tables(0)
combo1.DisplayMember="name"
combo1.ValueMember="address"


حالا در یکی از رویدادهای SelectedIndexChanged یا SelectedValueChanged مقدار انتخاب شده را در TextBox نمایش دهید:

sub Combo1_SelectedIndexChanged(sender as object,e as ...)
textbox1.text=combo1.SelectedValue.ToString
end sub