عدم نمایش رکوردها در listbox

[arsalansalar]

من برای نمایش اطلاعات بانک در یک listbox از کد زیر استفاده می کنم.
رکوردها را درست بر می گرداند ولی اشکالی دارد که در عکس زیر نمایش میدهد.


con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\database.mdb")
Dim oledbdataadapter As New OleDbDataAdapter("select chi from ind Where io like '%' + '" + t44.Text + "' + '%' ", con)
Dim dataset As New DataSet
con.Open()
oledbdataadapter.Fill(dataset, "ind")
li.DataSource = dataset.Tables("ind")
li.DisplayMember = "ind"
con.Close()

[eyes_shut_number1]

دوست من باید دیتا ست رو توی یه حلقه بذاری و یکی یکی اونارو به لیستت ادد کنی
البته با این راحی که رفتی

[eyes_shut_number1]

for i as integer = 0 ds.rows.count-1
listbox1.items.add(ds.rows(i)(0)
next i

[arsalansalar]

for i as integer = 0 ds.rows.count-1
listbox1.items.add(ds.rows(i)(0)
next i

با تشکر از راهنمایی شما
این حلقه for در کجای کد من قرار می گیرد؟

[eyes_shut_number1]

همونجایی که شما بایند کردی
جای


li.DataSource = dataset.Tables("ind")
li.DisplayMember = "ind"

[arsalansalar]

من کد را به شکل زیر در آوردم ولی باز هم نمایش نمی دهد:

con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\database.mdb")
Dim oledbdataadapter As New OleDbDataAdapter("select chi from ind Where io like '%' + '" + t44.Text + "' + '%' ", con)
Dim dataset As New DataSet
con.Open()
oledbdataadapter.Fill(dataset, "ind")
For i As Integer = 0 To dataset.Tables(0).Rows.Count - 1
li.Items.Add(dataset.Tables(0).Rows(i)(0))
Next i
li.DataSource = dataset.Tables("ind")
li.DisplayMember = "ind"
con.Close()

[arsalansalar]

درستش کردم:


Dim con As OleDb.OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\database.mdb")
da = New OleDbDataAdapter("select chi from ind Where io like '%' + '" + t44.Text + "' + '%' ", con)
ds = New DataSet
da.Fill(ds)
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
li.Items.Add(ds.Tables(0).Rows(i)(0))
Next i
li.DataSource = ds.Tables("ind")

[arsalansalar]

من یک سوال دیگر هم داشتم.
الان تمامی رکوردهای من به صورت شکل 1 بر می گردد.
حالا من جه دستوری بنویسم که رکوردها به صورت شکل 2 در یک textbox برگردد؟

[saghi63]

salam baraye moshkele avalet hata lazem nabood tak take dade ha o begiri faghat moshkel in bood ke bayad datasource o bad e datamember tarif mikardi
yani intori




li.DisplayMember = "ind"
li.DataSource = dataset.Tables("ind")


vase moshkele dovomet ham khob az 2 ta halghe for mitooni estefade koni, alan vaght nadaram vagarna vasat mineveshtam

[eyes_shut_number1]

Dim con As OleDb.OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\database.mdb")
da = New OleDbDataAdapter("select chi from ind Where io like '%' + '" + t44.Text + "' + '%' ", con)
ds = New DataSet
da.Fill(ds)
For i AsInteger = 0 To ds.Tables(0).Rows.Count - 1
textbox1.text +=ds.tables(0).rows(i)(0)
Next i
li.DataSource = ds.Tables("ind")

[eyes_shut_number1]

salam baraye moshkele avalet hata lazem nabood tak take dade ha o begiri faghat moshkel in bood ke bayad datasource o bad e datamember tarif mikardi
yani intori




li.DisplayMember = "ind"
li.DataSource = dataset.Tables("ind")


vase moshkele dovomet ham khob az 2 ta halghe for mitooni estefade koni, alan vaght nadaram vagarna vasat mineveshtam


__________________
فارسی تیاپ کنید!

[arsalansalar]

Dim con As OleDb.OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\database.mdb")
da = New OleDbDataAdapter("select chi from ind Where io like '%' + '" + t44.Text + "' + '%' ", con)
ds = New DataSet
da.Fill(ds)
For i AsInteger = 0 To ds.Tables(0).Rows.Count - 1
textbox1.text +=ds.tables(0).rows(i)(0)
Next i
li.DataSource = ds.Tables("ind")


دوست عزیزم حالا اگر بخواهم درون این تکست باکس یک کلامات با علامت"+"از هم جدا شدند جستجو انجام بدهم چگونه این کار را بکنم؟