نمایش اطلاعات دیتابیس در combobox

[behrooz69]

سلام . من می خوام با استفاده از کد نویسی اطلاعات دیتابیسمو تو combobox من نشون بده و فیلد های تکراری رو حذف کنه .

[akavehb]

سلام دوست عزیز اگه منظورت رو درست متوجه شده باشم میخوای کامبو باکست ار اطلاعات یک فیلد بدون موارد تکراری پر بشه. برای این کار باید از دستور Select Distinct استفاده کنی. این دستور باعث میشه هریک از مقادیر فیلد فقط یکبار نمایش داده بشن.
امیدوارم جوابت رو پیدا کرده باشی.

[behrooz69]

داداشی اینو بلدم تو sql server تست می کنم جواب می ده کدشو تو vb.net می خوام به صورت ویزاردی می تونم وصل کنم به کمبوباکس ولی همه فیلد هارو نشون می ده به صورت کد نویسی می خوام وصل کنم اونوو بلد نیستم

[behrooz69]

یعنی یکی نیست جواب منو بده ؟؟؟

[akavehb]

میشه تکه کدی رو که نوشتی بذاری؟ شاید بتونم کمکی بکنم.

[hosseinbarnamenevis]

دیگه واضحه واسه همین توضیحی نمیدم فقط کافیه جایگذاری کنید


Public Sub ComboBoxItems()
Try
Dim ds As New DataSet
Dim dt As New DataTable
Dim con As New SqlConnection(cnnstr())
Dim da As New SqlDataAdapter
con.Open()
da.SelectCommand = New SqlCommand("select itmshhesab from tblbanks", con)
da.Fill(ds, "tblbanks")
dt = ds.Tables("tblbanks")
cboShHesab.DataSource = ds.Tables("tblbanks")
cboShHesab.DisplayMember = "itmshhesab"
cboShHesab.ValueMember = "itmshhesab"
Catch ex As SqlException
End Try

End Sub

[akavehb]

دوست عزیز فکر میکنم اگه در سطر 8 بعد از Select کلمه Distinct رو قرار بدی مشکل حل بشه (Select Distinct itmshhesab from tblbanks)

[behrooz69]

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

[dear-hadi]

سلام دوست عزیز
combobox فقط یک ردیف اطلاعات رو نمایش می ده

[behrooz69]

شرمنده دوست من حرفتو تایید نمی کنم . خودم کدشو نوشتم

Private Sub CboNoeMahsol()


'// tabee farakhani select 1 field az jadval db be combobox , DISTINCT : bedon tekrar

con = New SqlConnection(My.Settings.conn)

'// age con ma baste bod ono baz mikone

If con.State = ConnectionState.Closed Then
con.Open()
End If

Dim da As New SqlDataAdapter("select Distinct Name from TableShoma", con)

Dim ds As New DataTable


da.Fill(ds)

ComboName.DataSource = ds

ComboName.DisplayMember = "Name"

'// age con ma baz bod ono mibande

If con.State = ConnectionState.Open Then
con.Close()
End If


End Sub

بعدش تو Combo مورد نظر که قراره اطلاعات ما نشون داده شه این تابع رو فراخوانی می کنیم اینجوری
Private Sub ComboNameMahsol_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboNameMahsol.DropDown
Call CboNoeMahsol()
End Sub

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