database - 如何在两个不同的数据库中打开文本文件

Question

我正在编写一个代码，通过创建某个文本文件并将其链接到 MS-access 中的表格来查看可能性。

Sub Testtxt()
 Open "C:\test.txt" For Output Shared As #1
  Write #1, "A1"
  Write #1, "B1"
  Write #1, "C1"
  Write #1, "D1"
  Write #1, "E1"

 Close #1
 End Sub

Answer 1

如果您的问题是：（我怎样才能允许两个不同的数据库读取一个文本文件？）那么这就像

Dim MyLine as String
Open "c:\myfile.txt" For Input As #1
   Do While Not Eof(1)
       Line input #1, myLine
       'Do whatever here
   Loop
Close #1

但是，如果您的问题是（如何允许两个不同的数据库写入同一个文本文件？），那么您不能。拥有对文件的 WRITE 访问权限的第一个数据库将阻止第二个数据库这样做，并且您的代码将报告一些 Access denied 错误或类似的东西。所以这是一场比赛。您应该编写代码，以便第二个数据库将等待文件被第一个数据库关闭然后继续写入它（我想这将是无用的，因为从您的代码中您不会附加到文件，而是覆盖它），因此第一个数据库写入的先前数据将丢失。