EXCEL从ACCESS中取值

来源：互联网发布：视频源码编辑：程序博客网时间：2024/06/05 20:48

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 = NothingEnd SubPrivate 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 = NothingEnd Sub

0 0