Вывод в ComboBox из Access - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, данный код выводит в ComboBox из Access. Если в 1 ComboBox поменять значения, то меняются и в остальных, как сделать чтобы каждый ComboBox был независимым от других ComboBox?
Листинг программы
  1. Imports System.Data.OleDb
  2. Public Class Form1
  3. Dim connstring As String
  4. Dim myConnection As OleDbConnection = New OleDbConnection
  5. Friend makeBS As New BindingSource
  6. Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
  7. connect()
  8. Dim da As New OleDbDataAdapter(New OleDbCommand("select * from Таблица1", acsconn))
  9. Dim dsMake As New DataSet("DsSelect")
  10. dsMake.Tables.Add("Таблица1")
  11. da.Fill(dsMake.Tables("Таблица1"))
  12. makeBS.DataSource = dsMake.Tables("Таблица1")
  13. ComboBox1.DataSource = makeBS
  14. ComboBox1.DisplayMember = "Предмет"
  15. ComboBox2.DataSource = makeBS
  16. ComboBox2.DisplayMember = "Преподаватель"
  17. ComboBox3.DataSource = makeBS
  18. ComboBox3.DisplayMember = "Кабинет"
  19. acsconn.Close()
  20. End Sub
  21. End Class

Решение задачи: «Вывод в ComboBox из Access»

textual
Листинг программы
  1. Friend makeBS_пр As New BindingSource
  2. Friend makeBS_преп As New BindingSource
  3. Friend makeBS_каб  As New BindingSource
  4.  
  5. makeBS_пр.DataSource = dsMake.Tables("Таблица1")
  6. makeBS_преп.DataSource = dsMake.Tables("Таблица1")
  7. makeBS_каб.DataSource = dsMake.Tables("Таблица1")
  8.  
  9.         ComboBox1.DataSource = makeBS_пр
  10.         ComboBox1.DisplayMember = "Предмет"
  11.  
  12.         ComboBox2.DataSource = makeBS_преп
  13.         ComboBox2.DisplayMember = "Преподаватель"
  14.  
  15.         ComboBox3.DataSource = makeBS_каб
  16.         ComboBox3.DisplayMember = "Кабинет"

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут