SQL

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 不支持相对路径。但是，当我们希望软件从当前文件夹运行时，我们会怎么做？我们简单地获取并在应用程序启动时使用完整路径名。因此，您可以 get/grab 当前文件夹。在 Excel VBA 你可以使用这个：

ActiveWorkbook.Path

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

的文件夹名称

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

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

以上为ExcelVBA。要从 Access VBA 获取当前路径？你可以使用这个：

currentproject.Path

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

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

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

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

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

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

How to use the relative path in SQL - ODBC?

excel

ms-access

odbc