1

Тема: Відобразити в комбобоксі унікальні значення

Доброго дня . На формі присутній комбобокс для відображення списку Виконавців.
Список відображається,але мені потрібно ,щоб в комбобоксі відобразились тільки унікальні значення(які не повторюються). Прошудопомоги  підкоректувати код.
Проект виконаний на Visual Basic 210 Exxpess,база данних Access.
Приклад у вкладенні

Post's attachments

ComboUniq.rar 105.72 kb, 362 downloads since 2017-04-01 

2

Re: Відобразити в комбобоксі унікальні значення

Рядок 5:

strsql = "select DISTINCT Таблица1.Виконавці from Таблица1"

3

Re: Відобразити в комбобоксі унікальні значення

DOP,дякую за відповідь. Використав Ваш код ,але без змін залишилось.

Public Class Form1
    Sub fillcombo()

        strsql = "select distinct * from Таблица1"
        Dim acscmd As New OleDb.OleDbCommand
        acscmd.CommandText = strsql
        acscmd.Connection = acsconn
        acsdr = acscmd.ExecuteReader
        While (acsdr.Read())
            ComboBox1.Items.Add(acsdr("Виконавці"))
        End While
        acscmd.Dispose()
        acsdr.Close()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        strsql = "select DISTINCT Таблица1.Виконавці from Таблица1"

        Dim acscmd As New OleDb.OleDbCommand
        acscmd.CommandText = strsql
        acscmd.Connection = acsconn
        acsdr = acscmd.ExecuteReader

        acscmd.Dispose()
        acsdr.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Module1.connect()
        Me.fillcombo()
    End Sub
End Class

4

Re: Відобразити в комбобоксі унікальні значення

У вищенаведеному коді нема змін. Просто використайте запит у функції fillcombo такий же, як і в ComboBox1_SelectedIndexChanged

Подякували: Юрій_1

5

Re: Відобразити в комбобоксі унікальні значення

DOP,все вірно. Низький уклін Вам. Все працює. :)
А Можливо створювати підключення не в  модулі ?:(