Question

VB中使用open打开文本，但不close，然后使用数据库读取的方式rs.open读取，显示被独占，怎么解决？

代码如下：
Open "d:\01.txt" For Input Access Read Shared As #1
Open "d:\01.txt" For Input Access Read Shared As #2
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\;Extended Properties='Text;FMT=Delimited;HDR=YES'"
rs.Open "select count(*) from [01.txt]", cn

被#1读取后继续使用open命令可以读取文件内容，但是使用recordset命令就说被独占，请问怎么解决？

由于功能需要，在open文件读取时，需要使用rs.open来处理一些功能，以上仅为简单处理，实际需求功能比这个复杂得多，所以只能这样处理

请大神帮忙解决这个被独占的问题，非常感谢！

Answer 1

用filecopy把1.txt复制一份，再用open打开#2，否则无法打开。

追问

静态文件还好，问题是这个文件是动态更新的
精度要求不高的情况下，这个方法还行
看来只能如此了