Deutsch
Germany.ru → Группы → Архив Досок→ Дневник тяжелобольного инвалида

Воспоминание программирование на VB 08.04.2024

1492 просмотров Перейти к просмотру всей ветки
Просмотреть ВСЕ Ветви Назад
10.05.24 15:20
Re: Воспоминание программирование на VB 08.04.2024
 
uscheswoi_82 коренной житель

Чтобы загрузить данные в ComboBox нужно написать следующий код: 

Dim rec As Recordset
Dim db As Database

Private Sub Form_Load()
    On Error Resume Next
    Set db = OpenDatabase("C:\vbtest\biblio.mdb")
    Set rec = db.OpenRecordset("Authors")
    Do While Not rec.EOF()
        'Au_ID Author
        Me.cboAuthors.AddItem rec.Fields("Author")
        Me.cboAuthors.ItemData(Me.cboAuthors.NewIndex) = rec.Fields("Au_ID")
        rec.MoveNext
    Loop
    Me.cboAuthors.ListIndex = 0
End Sub


Результат:



Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение
 

Перейти на