sql - 在 VBA 子例程中引用 Microsoft Access 2010 表值

Question

我正在尝试从函数调用中的表中引用特定字段。具体来说，我想打开一个可执行文件并从表中获取路径。在这里，路径被硬编码在：

    Shell(“C:\ECLIPSE_CPP\eclipse.exe”)

但是，我想将路径存储在表中并在该表的路径上调用函数（可能是 Shell 函数？）。

这是我尝试过的：

    strSQL = “SELECT Path FROM Paths WHERE Tool = “”Eclipse””;”
    Shell(strSQL)

路径表如下所示：

 
    工具 | 小路
    ========|==============================

    日食 | “C:\ECLIPSE_CPP\eclipse.exe”
    

有谁知道在 VBA 代码中引用此表值的方法？

Answer 1

strPath = DLookup("Path" , "Paths" , "Tool = 'Eclipse'")
Shell(strPath)

DLookup效率不高。它可能适合您的目的，但如果不是，您可以使用记录集来检索值。

Answer 2

Dim dbs as DAO.Database
Dim rs as DAO.Recordset
Dim strpath as String

Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("Select Path from Paths where Tool = 'Eclipse'")

strpath = rs.Fields(0)
    '   = rs!Path       alternative
    '   = rs("Path")    alternative

Application.FollowHyperlink(strpath)