Как при добавлении записи в таблицу сделать выпадающий список с вариантами записей - VB
Формулировка задачи:
Ребят, у меня создана база mysql и через odbc конектор база подключена к Vb6. Вопрос как в Vb6, при добавлении записи в таблицу сделать выпадающий список с вариантами записей.
Пример... Есть таблица автомашини, и поле марка... так вот как в ВБ6, Сделать выпадающий список заранее известных нам марок....например там Ford, Fiat, Mazda....
Так же возможно ли сделать автодополнение текста при заполнении....
Заранее спасибо.
Решение задачи: «Как при добавлении записи в таблицу сделать выпадающий список с вариантами записей»
textual
Листинг программы
Dim colpoley As Integer, Combo_List1() As Integer Dim List_Count(1) As Integer Data1.DatabaseName = "ПУТЬ К ТВОЕЙ БАЗЕ ДАННЫХ" Combo1(0).Clear Data1.RecordSource = "select * from Имя твоей таблицы" Data1.Refresh On Error Resume Next k = -1 Data1.Recordset.MoveLast k = Data1.Recordset.AbsolutePosition Data1.Recordset.MoveFirst ReDim Combo_List1(k) As Integer List_Count(0) = k For i = 0 To k Combo1(0).AddItem (Data1.Recordset.Fields("НАЗВАНИЕ ПОЛЯ").Value) Combo_List1(i) = Data1.Recordset.Fields("Название поля к примеру 1 столбец").Value Data1.Recordset.MoveNext Next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д