EXCEL从ACCESS中取值
ACCESS数据库界面
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
原文件可以去下面地址下载：
版权声明：本文为laoyebin原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。