excel调用access数据

jjamxin

excel调用access数据在表格中形成下拉列表

约定的童话

Sub 查询() '用户定义类型未定义：“工具”-"引用"-"Microsoft ActiveX Data Object 6.1勾选
    On Error Resume Next
    Dim SQL As String, arr, brr(1 To 100, 1 To 6)
    a = InputBox("输入需要查询的产品型号:", "型号", "GS536")
    Set cnn = CreateObject("ADODB.Connection") '创建数据库连接
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\钢网数据库.accdb"
    SQL = "SELECT * FROM 查询 where 产品型号 like'%" & a & "%'" '定义SQL查询命令字符串"
    arr = cnn.Execute(SQL).GetRows '不加GetRows只能查出来一个值
    cnn.Close
    Set cnn = Nothing
    For j = 0 To UBound(arr, 2)
        n = n + 1: w = 0
        For i = 0 To UBound(arr)
            w = w + 1
            brr(n, w) = arr(i, j)
        Next
    Next
    [a2].Resize(UBound(brr), 5) = brr
End Sub

jjamxin

约定的童话 发表于 2021-7-21 08:52
Sub 查询() '用户定义类型未定义：“工具”-"引用"-"Microsoft ActiveX Data Object 6.1勾选
    On Error ...

Sub 查询() '用户定义类型未定义：“工具”-"引用"-"Microsoft ActiveX Data Object 6.1勾选
    On Error Resume Next
    Dim SQL As String, arr, brr(1 To 100, 1 To 6)
    a = InputBox("输入需要查询的产品型号:", "型号", "GS536")
    Set cnn = CreateObject("ADODB.Connection") '创建数据库连接
    cnn.Open "provider=Microsoft.ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\jjamxspl.mdb;Jet OLEDB:Database Password=2012"
   
    SQL = "SELECT * FROM 综合数据库 where 单据类型 like'%" & a & "%'" '定义SQL查询命令字符串"
    arr = cnn.Execute(SQL).GetRows '不加GetRows只能查出来一个值
    cnn.Close
    Set cnn = Nothing
    For j = 0 To UBound(arr, 2)
        n = n + 1: w = 0
        For i = 0 To UBound(arr)
            w = w + 1
            brr(n, w) = arr(i, j)
        Next
    Next
    [a2].Resize(UBound(brr), 5) = brr
End Sub

运行不了

jjamxin

我想这样的直接效果

jjamxin

约定的童话 发表于 2021-7-21 08:52
Sub 查询() '用户定义类型未定义：“工具”-"引用"-"Microsoft ActiveX Data Object 6.1勾选
    On Error ...

这个功能也不错，但是有些单品要用到单选的