使用結果集數據源

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