EXCEL从ACCESS中取值

最新推荐文章于 2024-10-10 15:32:28 发布

原创最新推荐文章于 2024-10-10 15:32:28 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #access #sql #object #产品 #数据库

EXCEL VBA 同时被 2 个专栏收录

30 篇文章

订阅专栏

OFFICE其他

8 篇文章

订阅专栏

本文介绍如何使用Excel VBA连接Access数据库，并实现通过组合框选择不同车间来动态填充列表框显示对应的产品及其价格。

ACCESS数据库界面：

ACCESS后台

EXCEL的窗体界面：

EXCEL前台界面

窗体中的代码：

Private Sub ComboBox1_Change() Dim cn As Object, sql$, arr, i& Set cn = CreateObject("adodb.connection") cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "/后台.mdb" Me.ListBox1.Clear sql = "select 车间,产品,价格 from 产品 where 车间='" & Me.ComboBox1.Text & "'" arr = cn.Execute(sql).getrows Me.ListBox1.BoundColumn = 2 For i = 0 To UBound(arr, 2) Me.ListBox1.AddItem arr(1, i) & vbTab & arr(2, i) Next cn.Close Set cn = Nothing End Sub Private Sub UserForm_Initialize() Dim arr Dim cn As Object, sql$ Set cn = CreateObject("adodb.connection") cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "/后台.mdb" sql = "select distinct 车间 from 产品" arr = cn.Execute(sql).getrows Me.ComboBox1.List = WorksheetFunction.Transpose(arr) Me.ComboBox1.Value = arr(0, 0) cn.Close Set cn = Nothing End Sub