如何在 SQL - ODBC 中使用相对路径？

Question

我在使用 Excel (ODBC / Access) 时遇到问题。我想刷新计算机中任何文件夹中的数据。我有从桌面使用的文件，但我想在将同一文件移动到文档等时刷新同一文件中的数据。请您提供我应该做什么？

我的文件连接如下：

DSN=Excel Files;DBQ=C:\Users\User\Desktop\Task1\SalesBudget2018.xlsx;DefaultDir=C:\Users\User\Desktop\Task1;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;

谢谢。

EDIT1：谢谢。我尝试使用您的解决方案，但收到错误：“运行时错误 2147467259 数据库或对象是只读的”，我的代码如下。该错误与“.Open”行有关：

Sub RefreshData()

Dim CreateNew As Object
Dim RunSELECT As Object
Dim Data As String
Dim SQL As String

FolderPath = ActiveWorkbook.path

Path = Left(FolderPath, InStrRev(FolderPath, "\") - 1)

Set CreateNew = CreateObject("ADODB.Connection")
With CreateNew
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=" & Path & "\SalesBudget2018.xlsx" & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES;"";"
    .Open
End With

'Run SQL

SQL = "SELECT * FROM [twRynki$]"
Set RunSELECT = cn.Execute(SQL)
Do
   output = output & RunSELECT(0) & ";" & RunSELECT(1) & ";" & RunSELECT(2) & vbNewLine
   Debug.Print RunSELECT(0); ";" & RunSELECT(1) & ";" & RunSELECT(2)
   rs.Movenext
Loop Until rs.EOF
    
End Sub

Answer 1

您的路径实际上根本不是相对的。但是 ACE/JET 数据引擎无论如何都不支持相对路径。 相对路径是

\Data\mydb.mdb

因此，上面将是一个文件夹，称为当前位置的数据。使用 relative 向下的一个文件夹是：

..\Data\mydb.mdb

但是，不支持 ACE/Access 的相对路径。但是，当我们希望软件从当前文件夹中运行时，我们会怎么做？我们在 APPLICATION 启动时简单获取并使用全路径名。因此，您可以获取/获取当前文件夹。在 Excel VBA 中，您可以使用：

ActiveWorkbook.Path

所以上面会给你当前的路径。因此，您可以在代码中使用它来设置连接字符串。那么，即使在访问中，如果我们希望软件在任何文件夹中工作？我们只需在启动时获取/获取完整路径名。结果，该软件可以在任何文件夹中运行，并且您可以有效地获得相对地址，因为您“不关心”软件的放置位置，因为无论如何您总是获取/获取完整路径名。因此，在上面，您可以附加一个名为 data 的文件夹名称

ActiveWorkbook.Path & "\Data\Mydb.accdb"

因此，从当前工作簿位置，您始终可以拥有一个名为 data 的文件夹，并且在该文件夹中您可以拥有您的数据库。因此，实际上您确实获得了相对寻址，但您始终按照上述方式提取当前工作簿的完整路径名。 最终结果是您不会错过没有某种形式的相对寻址，因为您不需要这种方法。

以上内容适用于 Excel VBA。从 Access VBA 获取当前路径？你可以使用这个：

currentproject.Path

所以，您与 Excel 的连接字符串可能是这样的：

dim strExcelPath   as string
strExcelPath = CurrentProject.Path & "\Task1\SalesBudget2018.xlsx"

不清楚访问应用程序是否与task1在同一个文件夹中？ 假设是，那么这将起作用：

strExcelPath = CurrentProject.Path & "\SalesBudget2018.xlsx"

所以，现在文件夹可以在桌面上，我的文档 - 没关系。因此，您可以将上述用作连接字符串的一部分。不清楚您是链接到 Excel（链接表），还是使用 VBA 并说 ADO 代码。不过，真的没关系。在应用程序启动时，您会得到上面的连接字符串，对照链接表检查它——如果相同则什么也不做。如果不同，则重新链接该表。因此，如果文件夹被移动，您只需重新链接一次。无论您将文件夹移动到哪里？只要您假设 Excel 工作表与访问应用程序位于同一文件夹中，那么您就可以开始了。如前所述，您可以在上面添加一个子文件夹，例如 ExcelSheets。再一次，无论您使用 Access 部分将该文件夹移动到何处，只要子文件夹位于同一目录/文件夹中，那么这将起作用 - 尽管您没有相对寻址。