EXCEL从ACCESS中取值

关注

转载最新推荐文章于 2026-08-19 07:37:22 发布 716 阅读 AI 写同款· GEO 优化 ›

Access/VBA/Excel-06-Access记录删除微信公众号原文系统：Windows 7 软件：Excel 2010 / Access 2010 这个系列开展一个新的篇章，重点关注Access数据库主体框架：以Excel作为操作界面，Access作为数据库今天讲讲如何删除原有记录涉及知识：ADO，SQL：delete Part 1：目标删除姓名为张三的这一条记录逻辑过程连接数据库根阅读详情

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

收录于