Заполнить ComboBox уникальными значениями

@yutrans · Регистрация: 10.11.2011

Студворк — интернет-сервис помощи студентам

Добрый день . На форме есть комбобокс. В комбобоксе отображаются данные с БД Access.
В списке есть повторяющиеся данные.
Как заполнить комбобокс уникальными значениями(неповторяющимися)&
Прилагаю файл :проект на vb Express 2010

greg zakharov · 31.01.2016, 18:48

yutrans, используйте LINQ. Например, есть массив:

VB.NET
1
Dim _combo As String() = {"Саша", "Саня", "Александр", "Саша", "Саня", "Саня"}

Отбросить повторения:

VB.NET
1
_combo.Distinct

Ну и WinForm пример:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Imports System.Linq
Imports System.Drawing
Imports System.Windows.Forms
 
Namespace Uniq
  Friend NotInheritable Class frmMain
    Inherits Form
    Public Sub New()
      InitializeComponent()
    End Sub
 
    Private cbUniq As ComboBox
    
    Private _combo As String() = {"Саша", "Саня", "Александр", "Саша", "Саня", "Саня"}
 
    Private Sub InitializeComponent()
      Me.cbUniq = New ComboBox() With { _
        .Dock = DockStyle.Top _
      }
      Me.ClientSize = New Size(300, 70)
      Me.Controls.Add(Me.cbUniq)
      Me.FormBorderStyle = FormBorderStyle.FixedSingle
      Me.StartPosition = FormStartPosition.CenterScreen
      Me.Text = "Uniq"
      AddHandler Me.Load, AddressOf frmMain_Load
    End Sub
    
    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As EventArgs)
      _combo.Distinct.ToList.ForEach(Function(i) cbUniq.Items.Add(i))
      cbUniq.SelectedIndex = 0
    End Sub
  End Class
 
  Friend NotInheritable Class Program
    <STAThread> _
    Shared Sub Main()
      Application.EnableVisualStyles()
      Application.Run(New frmMain())
    End Sub
  End Class
End Namespace

@yutrans · 31.01.2016, 19:10 **[ТС]**

Спасибо, Но у меня данные подгружаются из базы данных.

@kritjara · 31.01.2016, 19:11

можно выполнить запрос к базе данных с выборкой уникальных значений
после SELECT дописать DISTINCT

SQL
1
SELECT DISTINCT column1 FROM table1

@XIST · 31.01.2016, 19:31

greg zakharov, зачем так человека сразу пугать страшными словами.

VB.NET
1
2
3
4
5
6
       Dim _combo As String() = {"Саша", "Саня", "Александр", "Саша", "Саня", "Саня"}
        Dim combo2 = _combo.ToArray
 
        For Each c In combo2
            ComboBox1.Items.Add(c)
        Next

Добавлено через 7 минут
ой не про то

VB.NET
1
2
3
4
5
Dim _combo As String() = {"Саша", "Саня", "Александр", "Саша", "Саня", "Саня"}
        Dim combo2 = _combo.Distinct
 
        For Each c In combo2
            ComboBox1.Items.Add(c)

@yutrans · 31.01.2016, 20:13 **[ТС]**

SELECT DISTINCT column1 FROM table1 -это для SQL,а у меня база в Access

@XIST · 31.01.2016, 20:34

Тогда начните от сюда
WTF this is SQL?

@yutrans · 31.01.2016, 22:23 **[ТС]**

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Public Class Form1
    Sub fillcombo()
 
        strsql = "select * 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 * from Таблица1 where Исполнители ='" & ComboBox1.Text & "'" & " SELECT DISTINCT Исполнители 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

Добавлено через 2 минуты
Подкоректировал код ,но в комбобоксе уникальные значения не отображаются.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Public Class Form1
    Sub fillcombo()
 
        strsql = "select * 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 * from Таблица1 where Исполнители ='" & ComboBox1.Text & "'" & " SELECT DISTINCT Исполнители 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

@XIST · 01.02.2016, 06:19

SQL
1
"select DISTINCT Исполнители from Таблица1 where....

Вы даже не посмотрели ресурс, что я Вам дал, там присутствует distinct.
И sql это отдельный язык требующий изучения

@yutrans · 01.02.2016, 07:29 **[ТС]**

XIST, спасибо за подсказку. Исправил код ,но результата нет

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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* from Таблица1 where Исполнители ='" & ComboBox1.Text & "'"
 
        strsql = "select DISTINCT Исполнители from Таблица1 where Исполнители ='" & ComboBox1.Text & "'"
 
 
        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

@kritjara · 01.02.2016, 12:32

не, ну ты странный конечно
Access - это не sql конечно, а база данных естественно
а sql применяется к базам данных, к любой, в т.ч. и Access

чтоб ты понимал distinct удаляет из запроса одинаковые строки

вот представь таблицу City с данными: City и Street
херсон ул.Гагарина
херсон ул.Киевская
Запорожье ул.Гагарина
Запорожье ул.Калинина

запрос Select Distinct * FROM City вернет 4 строки
запрос Select Distinct City.City FROM City вернет 2 строки
запрос Select Distinct City.Street FROM City вернет 3 строки

учи sql, он не такой сложный и понадобится во многих случаях

@yutrans · 01.02.2016, 14:21 **[ТС]**

kritjara,спасибо за пример. Я создал БД в SQL да все работает.А как на моем примере подкорректировать ,что б работало?

@kritjara · 02.02.2016, 18:25

SQL
1
 strsql = "SELECT DISTINCT Таблица1.Название_столбца FROM Таблица1"

Добавлено через 2 минуты
и не обязательно создавать бд в mysql
это применимо и к access

@yutrans · 02.02.2016, 22:30 **[ТС]**

kritjara, спасибо все работает.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Заполнить ComboBox уникальными значениями

Решение

Решение

@yutrans 142 / 125 / 50 Регистрация: 10.11.2011 Сообщений: 622
	31.01.2016, 19:10 [ТС]
	Спасибо, Но у меня данные подгружаются из базы данных. 0

@yutrans 142 / 125 / 50 Регистрация: 10.11.2011 Сообщений: 622
	31.01.2016, 20:13 [ТС]
	SELECT DISTINCT column1 FROM table1 -это для SQL,а у меня база в Access 0

@XIST 1960 / 1070 / 148 Регистрация: 01.10.2009 Сообщений: 3,593 Записей в блоге: 1
	31.01.2016, 20:34
	Тогда начните от сюда WTF this is SQL? 1

@kritjara 70 / 60 / 16 Регистрация: 22.10.2012 Сообщений: 351
	01.02.2016, 12:32
	не, ну ты странный конечно Access - это не sql конечно, а база данных естественно а sql применяется к базам данных, к любой, в т.ч. и Access чтоб ты понимал distinct удаляет из запроса одинаковые строки вот представь таблицу City с данными: City и Street херсон ул.Гагарина херсон ул.Киевская Запорожье ул.Гагарина Запорожье ул.Калинина запрос Select Distinct * FROM City вернет 4 строки запрос Select Distinct City.City FROM City вернет 2 строки запрос Select Distinct City.Street FROM City вернет 3 строки учи sql, он не такой сложный и понадобится во многих случаях 0

@yutrans 142 / 125 / 50 Регистрация: 10.11.2011 Сообщений: 622
	01.02.2016, 14:21 [ТС]
	kritjara,спасибо за пример. Я создал БД в SQL да все работает.А как на моем примере подкорректировать ,что б работало? 0

@yutrans 142 / 125 / 50 Регистрация: 10.11.2011 Сообщений: 622
	02.02.2016, 22:30 [ТС]
	kritjara, спасибо все работает. 0