Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Заполнение комбобокс из бд Access - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вопросы по VB, VBS, VB.net » Заполнение комбобокс из бд Access
Заполнение комбобокс из бд Access
parovoznik Дата: Понедельник, 09.11.2015, 22:55 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток.
На форме есть комбобокс ,данные которого заполняются из бд Access.
При загрузке формы в комбобоксе ни чего не отображается.
Можно исправить эту ошибку ?
Прилагаю файл архив :бд Access и проект на vb2010Express.
К сообщению приложен файл: 1265738.7z (39.5 Kb)
 
Ответить
СообщениеДоброго времени суток.
На форме есть комбобокс ,данные которого заполняются из бд Access.
При загрузке формы в комбобоксе ни чего не отображается.
Можно исправить эту ошибку ?
Прилагаю файл архив :бд Access и проект на vb2010Express.

Автор - parovoznik
Дата добавления - 09.11.2015 в 22:55
nilem Дата: Вторник, 10.11.2015, 13:13 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Там ведь можно просто подключиться к базе данных.
Снял видео с экрана, но фильм получился на 3,5 Мб (очень сложная режиссура :))

Ув. модераторы, можно ссылку дать из ДропБокса?


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеТам ведь можно просто подключиться к базе данных.
Снял видео с экрана, но фильм получился на 3,5 Мб (очень сложная режиссура :))

Ув. модераторы, можно ссылку дать из ДропБокса?

Автор - nilem
Дата добавления - 10.11.2015 в 13:13
Pelena Дата: Вторник, 10.11.2015, 13:18 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19167
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
На ютуб нельзя выложить?


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеНа ютуб нельзя выложить?

Автор - Pelena
Дата добавления - 10.11.2015 в 13:18
doober Дата: Вторник, 10.11.2015, 13:33 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
parovoznik , не надо создавать подключение в модуле, это не по феншую
[vba]
Код
    Sub fillcombo()
        strsql = "select * from Таблица1"
        Using con As New OleDb.OleDbConnection
            con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DB\База данных3.accdb;Persist Security Info=False;"
            Using cmd As OleDb.OleDbCommand = con.CreateCommand
                cmd.CommandText = strsql
                cmd.CommandType = CommandType.Text
                con.Open()
                Dim Reader = cmd.ExecuteReader
                Dim Tb As New DataTable
                Try
                    Tb.Load(Reader)
                    ComboBox1.DataSource = Tb
                    ComboBox1.ValueMember = "Код"
                    ComboBox1.DisplayMember = "Исполнитель"
                Catch ex As Exception
                End Try
            End Using
        End Using

    End Sub
[/vba]
очень сложная режиссура :)
:)




Сообщение отредактировал doober - Вторник, 10.11.2015, 13:36
 
Ответить
Сообщениеparovoznik , не надо создавать подключение в модуле, это не по феншую
[vba]
Код
    Sub fillcombo()
        strsql = "select * from Таблица1"
        Using con As New OleDb.OleDbConnection
            con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DB\База данных3.accdb;Persist Security Info=False;"
            Using cmd As OleDb.OleDbCommand = con.CreateCommand
                cmd.CommandText = strsql
                cmd.CommandType = CommandType.Text
                con.Open()
                Dim Reader = cmd.ExecuteReader
                Dim Tb As New DataTable
                Try
                    Tb.Load(Reader)
                    ComboBox1.DataSource = Tb
                    ComboBox1.ValueMember = "Код"
                    ComboBox1.DisplayMember = "Исполнитель"
                Catch ex As Exception
                End Try
            End Using
        End Using

    End Sub
[/vba]
очень сложная режиссура :)
:)

Автор - doober
Дата добавления - 10.11.2015 в 13:33
nilem Дата: Вторник, 10.11.2015, 13:35 | Сообщение № 5
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Посмотрел, там надо регистрироваться и что-то еще..
Ладно, не судьба.

Сергей уже нарисовал :)
[moder]Добавляю видео[/moder]


Яндекс.Деньги 4100159601573

Сообщение отредактировал Pelena - Вторник, 10.11.2015, 16:38
 
Ответить
СообщениеПосмотрел, там надо регистрироваться и что-то еще..
Ладно, не судьба.

Сергей уже нарисовал :)
[moder]Добавляю видео[/moder]

Автор - nilem
Дата добавления - 10.11.2015 в 13:35
parovoznik Дата: Вторник, 10.11.2015, 13:47 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
doober, спасибо проверю вечером работоспособность кода.
Сейчас нет возможности
 
Ответить
Сообщениеdoober, спасибо проверю вечером работоспособность кода.
Сейчас нет возможности

Автор - parovoznik
Дата добавления - 10.11.2015 в 13:47
parovoznik Дата: Вторник, 10.11.2015, 22:21 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Запустил код ,но данные в комбобоксе не отображаются. Модуль закоментировал.

[vba]
Код
Public Class Form1
Sub fillcombo()
Dim strsql As String
strsql = "select * from Таблица1"
Using con As New OleDb.OleDbConnection
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DB\База данных3.accdb;Persist Security Info=False;"
Using cmd As OleDb.OleDbCommand = con.CreateCommand
cmd.CommandText = strsql
cmd.CommandType = CommandType.Text
con.Open()
Dim Reader = cmd.ExecuteReader
Dim Tb As New DataTable
Try
Tb.Load(Reader)
ComboBox1.DataSource = Tb
ComboBox1.ValueMember = "Код"
ComboBox1.DisplayMember = "Исполнитель"
Catch ex As Exception
End Try
End Using
End Using

End Sub
End Class
[/vba]

nilem,спасибо за видео. Будем пробовать.
[moder]Код макроса нужно вставлять между открывающими [тег] и закрывающими [/тег] тегами, а не сначала вся куча тегов, а потом макрос. Поправил Вам.


Сообщение отредактировал _Boroda_ - Вторник, 10.11.2015, 22:50
 
Ответить
СообщениеЗапустил код ,но данные в комбобоксе не отображаются. Модуль закоментировал.

[vba]
Код
Public Class Form1
Sub fillcombo()
Dim strsql As String
strsql = "select * from Таблица1"
Using con As New OleDb.OleDbConnection
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DB\База данных3.accdb;Persist Security Info=False;"
Using cmd As OleDb.OleDbCommand = con.CreateCommand
cmd.CommandText = strsql
cmd.CommandType = CommandType.Text
con.Open()
Dim Reader = cmd.ExecuteReader
Dim Tb As New DataTable
Try
Tb.Load(Reader)
ComboBox1.DataSource = Tb
ComboBox1.ValueMember = "Код"
ComboBox1.DisplayMember = "Исполнитель"
Catch ex As Exception
End Try
End Using
End Using

End Sub
End Class
[/vba]

nilem,спасибо за видео. Будем пробовать.
[moder]Код макроса нужно вставлять между открывающими [тег] и закрывающими [/тег] тегами, а не сначала вся куча тегов, а потом макрос. Поправил Вам.

Автор - parovoznik
Дата добавления - 10.11.2015 в 22:21
parovoznik Дата: Вторник, 10.11.2015, 22:57 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
nilem, посмотрел видео. Заработало-данные отображаются в комбобоксе.
После такого видео у меня появился вопрос.
А можно связать теперь комбобокс с текстбоксами. Т.е. выбрали данные в комбе ,а в текстбоксах отображаются данные № авто и водителя.
Вариант Сергея пока неработает, а хотелось бы.
 
Ответить
Сообщениеnilem, посмотрел видео. Заработало-данные отображаются в комбобоксе.
После такого видео у меня появился вопрос.
А можно связать теперь комбобокс с текстбоксами. Т.е. выбрали данные в комбе ,а в текстбоксах отображаются данные № авто и водителя.
Вариант Сергея пока неработает, а хотелось бы.

Автор - parovoznik
Дата добавления - 10.11.2015 в 22:57
doober Дата: Среда, 11.11.2015, 01:17 | Сообщение № 9
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Вариант Сергея пока неработает, а хотелось бы.

я чуть кипятком не о..лся.
Видео в формате ехе здесь, и я умею кино снимать
Я знаю причину,по которой у вас код не работает.
Сделайте так,как я в видео сделал и сравните со своим.
Цитата
а в текстбоксах отображаются данные № авто и водителя

Можно,юзайте BindingSource
Здесь есть книга +примеры .
Правда старенькая,но книжка доходчиво написана


 
Ответить
Сообщение
Вариант Сергея пока неработает, а хотелось бы.

я чуть кипятком не о..лся.
Видео в формате ехе здесь, и я умею кино снимать
Я знаю причину,по которой у вас код не работает.
Сделайте так,как я в видео сделал и сравните со своим.
Цитата
а в текстбоксах отображаются данные № авто и водителя

Можно,юзайте BindingSource
Здесь есть книга +примеры .
Правда старенькая,но книжка доходчиво написана

Автор - doober
Дата добавления - 11.11.2015 в 01:17
parovoznik Дата: Среда, 11.11.2015, 11:23 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
doober, видео посмотрел. Попробую только вечером. На работе vb глючит.
Спасибо hands
 
Ответить
Сообщениеdoober, видео посмотрел. Попробую только вечером. На работе vb глючит.
Спасибо hands

Автор - parovoznik
Дата добавления - 11.11.2015 в 11:23
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вопросы по VB, VBS, VB.net » Заполнение комбобокс из бд Access
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!