主题：如何在xx.txt中设置数据源路径

如何在ip.txt中设置数据源路径，只要把数据库路径放在ip.TXT中就能打开项目。

 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("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Dachang\E\MDB\坯布输入.mdb;Persist Security Info=False",ip)
    End If
End If

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("192.168.222.88",ip)

        'MessabeBox.show(e.ConnectionString)

    End If

End If