Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
yutrans
89 / 88 / 34
Регистрация: 10.11.2011
Сообщений: 414
1

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

25.12.2016, 17:03. Просмотров 893. Ответов 7
Метки нет (Все метки)

Доброе время суток.
При составлении формы столкнулся с такой проблемой. Нужно добавить новые данные в базу данных Access и результат должен обновиться в комбобоксе. Сейчас данные добавляются ,но в комбобоксе не отражаются. Нужно закрывать форму и по новому запускать.
В прилагаемом файле проект выполненный на visual Basic 2010 и база данных Access
0
Вложения
Тип файла: rar Тест.rar (112.8 Кб, 11 просмотров)
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2016, 17:03
Ответы с готовыми решениями:

Сохранить данные в ComboBox после добавления новых данных
Добрый день. Создана форма организаций. Список организаций в комбобоксе...

Как загрузить данные в базу Access
Доброго времени суток форумчане. Подскажите пожалуйста как реализовать...

Дабавление данных из файла в базу данных Access
Здравствуйте! При передаче данных из файла tpo1.txt в базу данных sst.mdb...

После развертывания проекта с БД Access программа не находит базу
Здравствуйте! У меня возникла следующая проблема. Есть проект, написанный на...

Загрузка изображения в базу данных Access
Здравствуйте. Подскажите, как реализовывается добавление изображения в базу...

7
Khaker_tt
30 / 30 / 6
Регистрация: 24.11.2015
Сообщений: 330
Завершенные тесты: 1
25.12.2016, 17:20 2
снова считайте процедуру 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()"""
0
yutrans
89 / 88 / 34
Регистрация: 10.11.2011
Сообщений: 414
25.12.2016, 17:30  [ТС] 3
Khaker_tt,спасибо за ответ. Прописал Ваш код ,но обновления нет?
0
Вложения
Тип файла: rar Comb.rar (112.9 Кб, 13 просмотров)
Kulma
437 / 376 / 62
Регистрация: 25.07.2015
Сообщений: 685
25.12.2016, 18:59 4
Цитата Сообщение от 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
0
yutrans
89 / 88 / 34
Регистрация: 10.11.2011
Сообщений: 414
25.12.2016, 19:55  [ТС] 5
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
Добавил код ,но обновления нет
0
Kulma
437 / 376 / 62
Регистрация: 25.07.2015
Сообщений: 685
25.12.2016, 21:09 6
Хм..

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

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
и использовать её в любой части программы.
При такой проверке вы избежите ошибок , если всё-же забудете закрыть соединение
Использование многих разных соединений может принести большие проблемы
0
Kulma
437 / 376 / 62
Регистрация: 25.07.2015
Сообщений: 685
25.12.2016, 21:19 7
Лучший ответ Сообщение было отмечено yutrans как решение

Решение

ваш прект
1
Вложения
Тип файла: rar Comb.rar (125.9 Кб, 35 просмотров)
yutrans
89 / 88 / 34
Регистрация: 10.11.2011
Сообщений: 414
25.12.2016, 23:51  [ТС] 8
Kulma, спасибо за ответ.
0
25.12.2016, 23:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2016, 23:51

Вставка значений в базу данных Access
Здравствуйте, я пытаюсь вставить значение в таблицу. С подключением и...

Сохранение изображения в базу данных Access
Есть программа для работы с базой данных, при двойном клике по таблице...

Как создать базу данных (Access) программно
Может ли кто подсказать, как создать БД (Access) программно? P.S. Рыскал...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru