Доброго времени суток. На форме есть комбобокс ,данные которого заполняются из бд Access. При загрузке формы в комбобоксе ни чего не отображается. Можно исправить эту ошибку ? Прилагаю файл архив :бд Access и проект на vb2010Express.
Доброго времени суток. На форме есть комбобокс ,данные которого заполняются из бд Access. При загрузке формы в комбобоксе ни чего не отображается. Можно исправить эту ошибку ? Прилагаю файл архив :бд Access и проект на vb2010Express.parovoznik
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
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
Запустил код ,но данные в комбобоксе не отображаются. Модуль закоментировал.
[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]Код макроса нужно вставлять между открывающими [тег] и закрывающими [/тег] тегами, а не сначала вся куча тегов, а потом макрос. Поправил Вам.
Запустил код ,но данные в комбобоксе не отображаются. Модуль закоментировал.
[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
Сообщение отредактировал _Boroda_ - Вторник, 10.11.2015, 22:50
nilem, посмотрел видео. Заработало-данные отображаются в комбобоксе. После такого видео у меня появился вопрос. А можно связать теперь комбобокс с текстбоксами. Т.е. выбрали данные в комбе ,а в текстбоксах отображаются данные № авто и водителя. Вариант Сергея пока неработает, а хотелось бы.
nilem, посмотрел видео. Заработало-данные отображаются в комбобоксе. После такого видео у меня появился вопрос. А можно связать теперь комбобокс с текстбоксами. Т.е. выбрали данные в комбе ,а в текстбоксах отображаются данные № авто и водителя. Вариант Сергея пока неработает, а хотелось бы.parovoznik
я чуть кипятком не о..лся. Видео в формате ехе здесь, и я умею кино снимать Я знаю причину,по которой у вас код не работает. Сделайте так,как я в видео сделал и сравните со своим.
Цитата
а в текстбоксах отображаются данные № авто и водителя
Можно,юзайте BindingSource Здесь есть книга +примеры . Правда старенькая,но книжка доходчиво написана
я чуть кипятком не о..лся. Видео в формате ехе здесь, и я умею кино снимать Я знаю причину,по которой у вас код не работает. Сделайте так,как я в видео сделал и сравните со своим.
Цитата
а в текстбоксах отображаются данные № авто и водителя
Можно,юзайте BindingSource Здесь есть книга +примеры . Правда старенькая,но книжка доходчиво написанаdoober
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
