Обновить данные в комбобоксе после добавления в базу данных Access

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

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

Доброе время суток.
При составлении формы столкнулся с такой проблемой. Нужно добавить новые данные в базу данных Access и результат должен обновиться в комбобоксе. Сейчас данные добавляются ,но в комбобоксе не отражаются. Нужно закрывать форму и по новому запускать.
В прилагаемом файле проект выполненный на visual Basic 2010 и база данных Access

@Khaker_tt · 25.12.2016, 17:20

снова считайте процедуру fillcombo() вот так

VB.NET
1
2
3
4
5
6
7
8
9
Try
          cmd.ExecuteNonQuery()
            cmd.Dispose()
            myConnection.Close()
            'очистка полей формы
            TextBox3.Clear()
            TextBox4.Clear()
            TextBox5.Clear()
        "" fillcombo()"""

@yutrans · 25.12.2016, 17:30 **[ТС]**

Khaker_tt,спасибо за ответ. Прописал Ваш код ,но обновления нет?

@Kulma · 25.12.2016, 18:59

Сообщение от yutrans

Сейчас данные добавляются ,но в комбобоксе не отражаются.

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

VB.NET
1
ComboBox1.Items.Clear()

чтобы строки не дублировались.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       .....................................................................
 
        Try
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            myConnection.Close()
            'очистка полей формы
            TextBox3.Clear()
            TextBox4.Clear()
            TextBox5.Clear()
            Me.Size = New System.Drawing.Size(275, 180)
 
           fillcombo() ' Этот модуль выполнит перезаполнение комбобокса
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

@yutrans · 25.12.2016, 19:55 **[ТС]**

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
  'добавить новую запись в базу данных Access
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        ComboBox1.Items.Clear()
 
        connstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DB\База данных1.accdb;Persist Security Info=False;"
        myConnection.ConnectionString = connstring
        myConnection.Open()
        Dim str As String
        str = "insert into Таблица1([Организация],[Адрес],[Контакт])Values(?,?,?)"
        Dim cmd As OleDbCommand = New OleDbCommand(Str, myConnection)
        cmd.Parameters.Add(New OleDbParameter("Организация", CType(TextBox3.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Адрес", CType(TextBox4.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Контакт", CType(TextBox5.Text, String)))
 
       Try
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            myConnection.Close()
            'очистка полей формы
            TextBox3.Clear()
            TextBox4.Clear()
            TextBox5.Clear()
            Me.Size = New System.Drawing.Size(275, 180)
 
            fillcombo() ' Этот модуль выполнит перезаполнение комбобокса
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Добавил код ,но обновления нет

@Kulma · 25.12.2016, 21:09

Хм..

Переписал заполнение

VB.NET
1
2
3
4
5
6
7
8
9
10
Sub fillcombo()
 
        Dim da As New OleDbDataAdapter(New OleDbCommand("select * from Таблица1", acsconn))
        Dim dsMake As New DataSet("DsSelect")
        dsMake.Tables.Add("Таблица1")
        da.Fill(dsMake.Tables("Таблица1"))
        makeBS.DataSource = dsMake.Tables("Таблица1")
        ComboBox1.DataSource = makeBS
        ComboBox1.ValueMember = "Организация"
    End Sub

Работает, но ....
При первом запуске перезаполнение комбобокса не срабатывает,
потом всё нормально обновляется....пока не понял почему

Добавлено через 5 минут
Только объявите в классе формы

VB.NET
1
Friend makeBS As New BindingSource

Добавлено через 56 минут
Разобрался в чём проблема.
Вы не закрываете соединение.
Допишите в Sub fillcombo() acsconn.Close и всё будет работать как надо

VB.NET
1
2
3
4
5
6
7
8
9
Dim da As New OleDbDataAdapter(New OleDbCommand("select * from Таблица1", acsconn))
        Dim dsMake As New DataSet("DsSelect")
        dsMake.Tables.Add("Таблица1")
        da.Fill(dsMake.Tables("Таблица1"))
        makeBS.DataSource = dsMake.Tables("Таблица1")
        ComboBox1.DataSource = makeBS
        ComboBox1.ValueMember = "Организация"
        acsconn.Close
    End Sub

И пару советов
- для сортировки в комбобокс используйте сортировку при выборке

SQL
1
SELECT * FROM Таблица1 ORDER BY Организация

- Не используйте несколько разных подключений к БД. Просто не забывайте закрывать существующие
по окончании процедуры.
Вашу процедуру подключения в модуле1 можно переписать так

VB.NET
1
2
3
4
5
6
7
8
Friend Sub connect()
   IF acsconn.state =ConnectionState.Closed Then
        acsconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DB\База данных1.accdb;Persist Security  Info=False;"
        acsconn.Open()
   Else
        Exit Sub
   End If
End Sub

и использовать её в любой части программы.
При такой проверке вы избежите ошибок , если всё-же забудете закрыть соединение
Использование многих разных соединений может принести большие проблемы

@Kulma · 25.12.2016, 21:19

ваш прект

@yutrans · 25.12.2016, 23:51 **[ТС]**

Kulma, спасибо за ответ.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@yutrans 142 / 125 / 50 Регистрация: 10.11.2011 Сообщений: 622
	25.12.2016, 23:51 [ТС]
	Kulma, спасибо за ответ. 0

Обновить данные в комбобоксе после добавления в базу данных Access

Решение