主题：如何将access文件设置为 共享

示例一

假定有一个成绩管理系统，使用的是一个Access格式的外部数据源，外部数据源的名称为“成绩”，外部数据文件名为"成绩数据.mdb"，和项目文件处于同一目录之下。
为了保证这个项目复制到任何目录都能正常链接该外部数据源，可以在BeforeConnectOuterDataSource事件中加入下面的代码：

If e.name = "成绩" Then
    e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "\成绩数据.mdb;Persist Security Info=False"
End if

这里假定外部数据源的格式2000/2003，如果是2007，代码为：

If e.name = "成绩" Then
    e.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & e.ProjectPath & "\成绩数据.mdb;Persist Security Info=False"
End if

示例二

假定有一个名为“销售数据”远程数据源，默认的IP地址为119.119.120.120，因为服务器的调整，IP地址可能会发生变化，导致数据源无法连接。
为解决这个问题，可以在项目文件目录下创建一个ip.txt的文本文件，在该文件中输入最新的IP地址，并在BeforeConnectOuterDataSource事件中设置如下代码：

Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "销售数据" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip)
    End If
End If