求助---关于select语句 包含变量的问题

exceljosh

各位大佬好


我在使用access 想要通过遍历 数据库的表来获取 各表中的特定时间数据。
然后select语句中增加变量来把获取的表名放入变量中，但是运行过程中 select无法识别变量导致后续没有值获取。
在网上查找了 说变量前加个@ 但是没用啊  麻烦各位大佬给个指点


    For Each tname In db.currentdb.TableDefs
        If Left(tname.Name, 4) <> "MSys" And tname.Attributes = 0 Then
            MsgBox tname.Name
            strSQL = "SELECT '8' FROM @tname where ProductionCode='CF03000011'"
            Set rs = db.Execute(strSQL)
            ThisWorkbook.Sheets(3).Range("p10") = rs.Fields(0).Name
        ElseIf Right(tname.Name, 4) <> "销售订单" Then
            GoTo step1
        End If
    Next

剑指E

试试：
strSQL = "SELECT '8' FROM " & tname.name & " where ProductionCode='CF03000011'"

exceljosh

剑指E 发表于 2024-4-28 15:45
试试：
strSQL = "SELECT '8' FROM " & tname.name & " where ProductionCode='CF03000011'"

  strSQL = "SELECT [" & tname.Name & "].[8] FROM " & tname.Name & " where ProductionCode='CF03000011'"
            Set rs = db.Execute(strSQL)
            ThisWorkbook.Sheets(3).Range("p10") = rs.Fields(1)

我了语句之后 在数据库运行能出结果但是在VBA里运行为什么返回的是没有结果的啊？

剑指E

exceljosh 发表于 2024-4-29 16:19
strSQL = "SELECT [" & tname.Name & "].[8] FROM " & tname.Name & " where ProductionCode='CF030000 ...

你的变量db是啥，贴出来看看

exceljosh

剑指E 发表于 2024-4-29 18:19
你的变量db是啥，贴出来看看

Set db = CreateObject("access.application")
   db.opencurrentDatabase ("E:\JFL\客户\客户订单1.accdb")

这个

exceljosh

剑指E 发表于 2024-4-29 18:19
你的变量db是啥，贴出来看看

你好 在吗？

剑指E

exceljosh 发表于 2024-5-3 14:12
你好 在吗？

参考