Question

vb中的ComboBox控件连接数据库的代码。

请高手帮忙。
本人的想法是。在窗口中有个ComboBox下拉控件。里边的数据要连接到数据库access里边的数据。使用什么代码可以实现。

Answer 1

参考以下代码吧,Cbx_Fields是ComboBox,通过按钮Cmd_Add_Click添加,当然,你也可以通过form_load添加

Dim fld '
Dim rs As New ADODB.Recordset '定义数据集对象

Function cnn() As ADODB.Connection '定义连接函数
'创建连接
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_medicine.mdb;Persist Security Info=False"
End Function

Private Sub Cmd_Add_Click() '添加按钮
rs.Open "select * from tb_xsd", cnn, adOpenKeyset, adLockOptimistic
Set fld = rs.Fields
For Each fld In rs.Fields

'向ComboBox控件中添加字段
Cbx_Fields.AddItem fld.Name
Next
rs.Close
Cbx_Fields.ListIndex = 0
End Sub