使用结果集数据源

Question

如何使用结果集数据源来填充VB6组合框填充VB6组合框......请帮助

Answer 1

我不知道，如果它的工作原理相同的方式在VB.NET，所以我会建议您查看ADODB.Recordset对象并将每个项目添加到组合框。

Answer 2

一个从Access数据库中的数据加载到一个组合框（更改连接字符串为不同的DB）的方式：

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

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