使用Resultset数据源填充VB6组合框
如何使用结果集数据源填充VB6组合框。。。请帮助我不确定它是否与VB.NET中的工作方式相同,因此我建议您查看ADODB.Recordset对象并将每个项添加到组合框中。将Access数据库中的数据加载到组合框中的一种方法(更改不同数据库的连接字符串):使用Resultset数据源填充VB6组合框,vb6,Vb6,如何使用结果集数据源填充VB6组合框。。。请帮助我不确定它是否与VB.NET中的工作方式相同,因此我建议您查看ADODB.Recordset对象并将每个项添加到组合框中。将Access数据库中的数据加载到组合框中的一种方法(更改不同数据库的连接字符串): Dim con作为新的ADODB连接 Dim rs2作为新的ADODB.Recordset con.Open“Provider=sqloledb;数据源=Server01;初始目录=Naveen;用户ID=***;密码=***;集成安全性=Tr
Dim con作为新的ADODB连接
Dim rs2作为新的ADODB.Recordset
con.Open“Provider=sqloledb;数据源=Server01;初始目录=Naveen;用户ID=***;密码=***;集成安全性=True”
rs2.打开“从客户处选择*”,图标为con,图标为adOpenDynamic
当rs2.EOF为True时执行此操作
Combo2.AddItem(rs2.Fields(0.Value))
rs2.MoveNext
环
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
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