58问答库 > VB中combobox链接ACCESS数据库代码怎么写（带注释）。

VB中combobox链接ACCESS数据库代码怎么写（带注释）。

2025-05-12 21:11:13

推荐回答（3个）

回答（1）：

先查数据库，用ADO控件也好用ODBC也好或者DAO都会有和数据集合。
While Not rs.EOF
Combo1.SelectItem.Add rs.Fields("字段名")
rs.MoveNext
Wend

回答（2）：

可以添加一个公共模块，“工程”-“添加模块”
然后在里面写
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Sub OpenConn()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\？？？.mdb;Persist Security Info=False"
cn.Open
rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
End Sub

Public Sub CloseConn()
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
要用的时候就 call OpenConn() 不用就关掉 CloseConn()。

回答（3）：

Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.Open "数据库连接字符“
If rs.State <> adStateClosed Then rs.Close
rs.Open "select * from 计量单位表", db, 1, 3
If rs.EOF = False And rs.BOF = False Then '下拉菜单里面的内容用计量单位表中的名称
rs.MoveFirst
While Not rs.EOF
Combo1.AddItem rs.Fields("显示的名称")
rs.MoveNext
Wend
End If
放在formload里面