powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Считывание в ComboBox
2 сообщений из 2, страница 1 из 1
Считывание в ComboBox
    #36075348
Vili
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем день добрый.

Неожидано возникшая проблема:

есть база - Data1
есть ComboBox - Combo1
При загрузке формы Combo1должен заполниться записями поля - Faktory
Код такой:

Dim Temp1 As String

Data1.Refresh ' метод для восстановления обьекта Recordset
With Data1.Recordset ' подготовка таблицы данных для считывания.
Do While Not .EOF ' последовательное чтение записей базы данных
Combo1.AddItem .Fields("Faktory").Value 'Считывание поля "Фабрики" из базы в ComboBox
Temp1 = .Fields("Address").Value
'Переход к следующей записи базы данных
.MoveNext '
Loop '
End With '
Exit Sub

End Sub

Оба контрола связаны между собой как положено и до недавнего времени все работало
отлично, но при переносе проекта на другой комп и его запуске появилась ошибка :
Compile error:
Function or interface marked, or the function uses en Autometion type not supported in
Visual Basic
при этом слово Recordset в строке With Data1.Recordset, подсвечено синим - ошбка при
компиляции.

Вернуться на старый комп я не могу, да и не уверен, что дело в нем. Где пошептать...?

Да, если из програмы исключить приведенный кусок кода, то форма грузится нормально,
а в ComboBox "светится" первая запись из поля базы, но список ComboBox пустой.

Может кто попадался на такое?
Всем спасибо.
...
Рейтинг: 0 / 0
Считывание в ComboBox
    #36118651
Vili
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Причина была устранена переинсталяцией VB5 на том самом "другом ПК" и все заработало...,чудеса:-Р
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Считывание в ComboBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]