اتصال یک ستون از جدول به ListBox

[yas_miner]

سلام من توی همه ی تاپیک های سایت گشتم ولی کدی پیدا نکردم که بشه یک ستون از جدول رو به ListBox وصل کرد ؟؟؟؟
تنها چیزی که فهمیدم اینه که به Data Reader نیاز هست

بانک اطلاعاتی sql
زبان vb.net

با تشکر

[Hybrid]

سلام ، این برای روش جدیده دسترسی به بانه(یعنی روش دسترسی به بانک با استفاده از TableAdapter و Dataset) :


Dim oledbconnection1 As New OleDbConnection
oledbconnection1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\Access Bank\sample.accdb"
Dim ta As New DataSet1TableAdapters.PayeAvalTableAdapter
Dim pdt As New DataSet1.PayeAvalDataTable
ta.Connection = oledbconnection1
ta.Fill(pdt)

Dim bindingsrc As New BindingSource
bindingsrc.DataSource = pdt

ListBox1.DataSource = bindingsrc
ListBox1.DisplayMember = "Name"
ListBox1.ValueMember = "Name"

در حالت کلی شما باید از سه خاصیت Listbox که در بالا گفته شد باید استفاده کنین)./

[tto_baran]

این نمونه را یه نگاه بنداز ببین برای ایده گرفتن بد نیست .

موفق باشی

[yas_miner]

این کد من ولی هنوز erorr داره لطفا کمک کنید

Dim Strsql As String = "Select * From Athletic"
Dim con As New SqlClient.SqlConnection(CS)
con.Open()
Dim cmd As New SqlClient.SqlCommand(Strsql)
Dim DA As New SqlClient.SqlDataAdapter(cmd)
Dim ds As New DataSet
Dim dr As SqlClient.SqlDataReader
DA.Fill(ds, "Athletic")
dr = cmd.ExecuteReader
If dr.HasRows = True Then
While dr.Read
Me.ComboBox1.Items.Add(dr("FirstName"))
End While
End If

[yas_miner]

کسی نمی تونه این کد رو درست کنه که item ها نمایش داده بشن دو نفر قبلی با access نوشته بودن ولی من sql می خوام





Dim Strsql As String = "Select * From Athletic"
Dim con As New SqlClient.SqlConnection(CS)
con.Open()
Dim cmd As New SqlClient.SqlCommand(Strsql)
Dim DA As New SqlClient.SqlDataAdapter(cmd)
Dim ds As New DataSet
Dim dr As SqlClient.SqlDataReader
DA.Fill(ds, "Athletic")
dr = cmd.ExecuteReader
If dr.HasRows = True Then
While dr.Read
Me.ComboBox1.Items.Add(dr("FirstName"))
End While
End If

[yas_miner]

سلام ، این برای روش جدیده دسترسی به بانه(یعنی روش دسترسی به بانک با استفاده از TableAdapter و Dataset) :


Dim oledbconnection1 As New OleDbConnection
oledbconnection1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\Access Bank\sample.accdb"
Dim ta As New DataSet1TableAdapters.PayeAvalTableAdapter
Dim pdt As New DataSet1.PayeAvalDataTable
ta.Connection = oledbconnection1
ta.Fill(pdt)

Dim bindingsrc As New BindingSource
bindingsrc.DataSource = pdt

ListBox1.DataSource = bindingsrc
ListBox1.DisplayMember = "Name"
ListBox1.ValueMember = "Name"

در حالت کلی شما باید از سه خاصیت Listbox که در بالا گفته شد باید استفاده کنین)./




اگه میشه با sql بنویسید

[mgh64120]

سلام دوست عزيز
ببين اين نمونه چطوره(بدون Data Reader) ؟

Con.Open()
Dim DT AS New DataTable
Dim DA As New SqlDataAdapter("SELECT BankNo,Name FROM Bank", Con)
DA.Fill(DT)
ListBoxBank.DataSource = DT
ListBoxBank.DisplayMember = "Name"
ListBoxBank.ValueMember = "BankNo"
If ListBoxBank.Items.Count > 0 Then ListBoxBank.SelectedIndex = 0
Con.Close()

موفق باشيد...

[yas_miner]

سلام دوست عزيز
ببين اين نمونه چطوره(بدون Data Reader) ؟

Con.Open()
Dim DT AS New DataTable
Dim DA As New SqlDataAdapter("SELECT BankNo,Name FROM Bank", Con)
DA.Fill(DT)
ListBoxBank.DataSource = DT
ListBoxBank.DisplayMember = "Name"
ListBoxBank.ValueMember = "BankNo"
If ListBoxBank.Items.Count > 0 Then ListBoxBank.SelectedIndex = 0
Con.Close()

موفق باشيد...




با تشکر از راهنمایی های شما دوست عزیر مشکلم حل شد واقعا ممنونم