مشکل اتصال کمبو باکس به دیتاست

[peyman677]

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




Dim cnn As New SqlConnection With {.ConnectionString = MainForm.ConnectionStr}
Dim cmd As New SqlCommand
Dim sda As New SqlDataAdapter
Dim qq As New DataSet
Function Load_Combo()
cmd.Connection = cnn
cmd.CommandText = "SELECT DISTINCT PCName FROM Tbl_Sales;"
sda.SelectCommand = cmd
sda.SelectCommand.Connection = cnn
cnn.Open()
qq.Clear()
sda.Fill(qq, "Combo")
cnn.Close()
'
ComboBox1.DataSource = qq
ComboBox1.DisplayMember = "Combo"

End Function

[behrooz69]

دوست من اول شما این تابع رو یه جا تو کد هات تعریف کن :

Private Sub CboName()
'// tabee farakhani select 1 field az jadval db be <span class="highlight">combobox</span> , 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 TblYour", con)
Dim ds As New DataTable
da.Fill(ds)
CboSearchByNameSarkargar.DataSource = ds
CboSearchByNameSarkargar.DisplayMember = "Name"
'// age con ma baz bod ono mibande
If con.State = ConnectionState.Open Then
con.Close()
End If
End Sub

بعد تو رویداد DropDown کمبو باکسی که قراره بدون تکرار به دیتابیست وصل بشه اونو فراخوانی کن :
Call CboName ()



یا حق
مشکلی بود بپرس

[peyman677]

خیلی خیلی ممنون از کمکتون مرسی

[behrooz69]

خواهش عزیزم