peyman677
یک شنبه 29 دی 1392, 00:27 صبح
سلام دوستان من یه کمبو باکس دارم میخوام اطلاعات یک فیلد رو بدون تکرار در اون قرار بدم ولی انجام نمیشه اگر امکان داره لطفا راهنمایی کنید مشکل از کجاست.
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
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