如何在兩個不同的數據庫中打開文本文件

Question

我正在編寫代碼，通過創建特定的文本文件並將其鏈接到MS訪問中的表格來查看可能性。

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 

但是，如果你的問題是（怎麼也我允許兩個不同的數據庫寫入相同的文本文件？），那麼你不能。第一個數據庫持有對該文件的寫入權限將阻止第二個數據庫這樣做，並且您的代碼將報告一些Access拒絕錯誤或類似的內容。所以這是一場比賽。你應該編寫你的代碼，以便第二個數據庫等待文件被第一個數據庫關閉，然後繼續寫入（我認爲這將是無用的，因爲從你的代碼中你不附加到文件，但覆蓋它），所以先前由第一個數據庫寫入的數據將會丟失。