Сообщество Чайников

Вопрос

Как в ListBox вставить содержимое базы данных, не набирая его вручную.

Ответ

Зайди в «Вид» (Project) затем выбери «Ссылки» (References), поставь крыж напротив Microsoft DAO 3.51 Object Library. Затем в форме вставь ListBox Скопируй следующий код, обращая внимание на ссылки

Private Sub Form_Load()
Dim wrk As Workspace
Dim db As Database
Dim rs As Recordset
Set wrk = CreateWorkspace("", "admin", "", dbUseJet)
Set db = wrk.OpenDatabase("Имя базы данных, с которой надо взять данные")
Set rs = db.OpenRecordset("Имя таблицы")
rs.MoveFirst
Do While rs.EOF = False
Me.List1.AddItem (rs.Fields("имя поля").Value)
rs.MoveNext
Loop
End Sub

shuric