LisBox со значениями из базы - VB

Формулировка задачи:

Всем добрый вечер! Решил изучить vb6, но пока дела обстоят не очень. Вообщем нужно сделать список значений из базы mdb в combo или list box'e. Пробовал делать через dbgrid, но там не нашел события, возникающего после навигации по списку(нужно было получить позицию элемента). Проект прикрепил. Буду очень благодарен в решении данного вопроса!!

Код к задаче: «LisBox со значениями из базы - VB»

textual
Sub Poisk()
    DSNName = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);DBQ=" & App.Path
    DSNName = DSNName & HomeDir & "\Database.accdb"
    conn.Open DSNName
    SQL = "SELECT * FROM Sample WHERE Отчество LIKE '%Степанов%'"
    rs.Open SQL, conn, 3, 3
        Text4.Text = rs.Fields("Фамилия")
End Sub

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ