主题：外部数据源连接

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

我使用了第二种方法，在本机建立了Ip。txt文件，并且输入了以上代码。本机的ip地址是192.168.11.116，数据库的名称是 "数据库"，

但是修改后程序在本地机不能使用，提示外部数据源不能连接，需要手动选择连接，请问问题所在。

还有一个问题e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip)，这一段代码的Ip地址需要修改吗？谢谢

红色代码改成你在设置数据源的时候填的什么ip

 

e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip)

e.ConnectionString = e.ConnectionString.Replace("192.168.11.116",ip)，我现在正在设置，我将代码改成现在电脑的IP了，本机还是提示错误，Ip.TXT文件需要放在什么目录下吗？

比如，你的数据源这样设置

 

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.11.116\共享文件夹名\abc.mdb;Persist Security Info=False

 

那么，你的代码就要这样写

 

e.ConnectionString = e.ConnectionString.Replace("\\192.168.11.116\共享文件夹名\abc.mdb", ip)

 

而且，你的ip.txt要这样写

 

\\服务器ip\共享文件夹名\abc.mdb

 

    哦，原来需要这样设置，那么设置相差还比较远，我需要先试试，谢谢！

我将发布出来的文件放在局域网中，主机共享文件夹放在192.168.0.71上

外部数据源设置： Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.0.32\共享文件夹名\abc.mdb;Persist Security Info=False   代码中没变：   e.ConnectionString = e.ConnectionString.Replace("\\192.168.11.116\共享文件夹名\abc.mdb", ip)   ip.txt写成这样   \\192.168.0.71\共享文件夹名\abc.mdb 提示外部数据源不能连接。我想问题是外部数据源的Ip在发布后不能修改，怎样才能在各个局域网中都能只改Ip.txt文件

 你外部数据源设置的是 192.168.0.32

 

 那你替换的代码，应该这样写啊 e.ConnectionString = e.ConnectionString.Replace("192.168.0.32", ip)

    但是我会遇到这样的情况，当我发布系统后，使用的单位都会有自己的局域网，那么，他们的外部数据源的地址是会改变的，这是第一点，然后，我的 e.ConnectionString = e.ConnectionString.Replace("192.168.0.32", ip)这个语句是不改变的，外部数据源的设置也是不能改变的，我能让客户改变的是Ip.txt的内容，那么，我应该怎样可以解决这个通用性的问题，谢谢。

 

就是这个意思啊。

 

1、192.168.0.32 是你设计软件的时候，连接的数据源，也就是定死在项目里面的；

 

2、你修改ip.txt文件以后，就把192.168.0.32的内容替换成你自己的内容了啊，就连接到那里去了啊