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

 

 

原文件可以去下面地址下载:

http://u.115.com/file/f7df8e035b

版权声明:本文为laoyebin原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://www.cnblogs.com/laoyebin/archive/2010/03/03/1677553.html