Question

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

文件名为data.mdb ,表名为GYSZL，取 供应商全称 下面的数据作为combobox下拉列表的数据





Answer 1

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

追问

能否把完整代码写出来（最好带注释），新手不是太懂，正在学习中。

追答

菜单里找到工程，工程里找到部件，部件里找到ADO控件，勾上。从工具箱上把他拖到窗体上，Visible属性设置成隐藏。好了现在就在Form1_Load中写代码：

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ACCESS路径（可以是相对路径）
Adodc1.RecordSource="Select Distinct 列1 from 表名 order by 列1"
Adodc1.Refreash
While Not rs.EOF
     Combo1.SelectItem.Add rs.Fields("列1")
     rs.MoveNext
Wend

这样就齐活。

Answer 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()。

Answer 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里面