Список со списком не отображается после подключения базы данных
Public Sub UserForm_Initialize()
Перейти UserForm_Initialize_Err Ошибка
Dim cnn как новое соединение ADODB.
Дим, вначале как нового объекта adodb.Записей
телеканал CNN.Открытые("Поставщик = Майкрософт.Джет.Oledb для.4.0;" &ампер; "источник данных=" &амп; приложения.StartupPath & " \ Attendance.mdb")
сначала откройте ("выберите отдельный отдел из посещаемости;")
телеканал CNN.adOpenStatic()
во-первых, двигайтесь первым()
Со Мной. ComboBox1
.Утварь.Четкий()
Делать
.Утварь.Добавить (сначала![Отделы])
РСТ.Метод MoveNext()
Петли до первого.ВФ
Конец С
UserForm_Initialize_Exit:
При Ошибке Возобновить Следующий
во-первых, закрыть()
телеканал CNN.Рядом()
rst = ничего
Эн = ничего
Выход Из Субмарины
UserForm_Initialize_Err:
MsgBox(Err. Number & vbCrLf & Err.Description, vbCritical, "ошибка!")
Возобновить UserForm_Initialize_Exit
Что я уже пробовал:
.Утварь.Добавить (сначала![Отделы])
изменить это .Предметы.Добавить (первые поля())