蔡鸟请教

[Virus2003]

请问怎么将COMBO控件和SQL或者是ACCESS的数据库连接起来，要使用到那些控件？？最好是由例程的。

谢谢

[pcwak]

用ADODC控件

[lihonggen0]

Private Sub getData()
Dim CN As New ADODB.Connection '定义数据库的连接存放数据和代码
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open

Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic

Do Until Rs.EOF
Combo1.AddItem Rs.Fields("FirstName")
Rs.MoveNext
Loop
CN.Close

End Sub

[lihonggen0]

Do Until Rs.EOF
Combo1.AddItem Rs.Fields("FirstName")
Rs.MoveNext
Loop

打开一个记录集直接添加到combo中