Заполнение поля со списком VB6 с использованием источника данных Resultset

Question

Как заполнить поле со списком VB6, используя источник данных набора результатов ... Пожалуйста, помогите

Answer 1

Dim con As New ADODB.Connection
Dim rs2 As New ADODB.Recordset

con.Open "Provider = sqloledb;Data Source=Server01;Initial Catalog=Naveen; User ID= ****; password= ****; Integrated Security= True"

rs2.Open "Select * from Customers", con, adOpenDynamic

Do While rs2.EOF <> True    
    Combo2.AddItem (rs2.Fields(0).Value)

    rs2.MoveNext    
Loop

Answer 2

Один из способов загрузки данных из базы данных Access в поле со списком (изменить строку подключения для другой БД):

Dim oDb As New ADODB.Connection
Dim oRS As New ADODB.Recordset
Dim sSql As String

oDb.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
      & "Data Source=C:\Data\MyAccessDB.mdb;Jet"
sSql = "SELECT DISTINCT([LastName]) FROM [Authors] ORDER BY LastName ASC"


oRS.Open sSql, oDB, adOpenForwardOnly, adLockReadOnly

Do While not oRS.EOF
    With cboMyCombo
        .AddItem trim$(oRS("LastName").Value) 
    End With
    oRS.MoveNext
Loop
oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

Answer 3

Я не уверен, работает ли он так же, как в VB.NET, поэтому я бы посоветовал вам посмотреть объект ADODB.Recordset и добавить каждый элемент в комбинированный список.