主题：外部数据源连接

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:外部数据库连接.rar

麻烦版主帮忙看看上面的程序语句有什么问题。这个例子是需要连接一个外部数据源，而且能够时候在不同的机器上，我在项目属性中加了个语句，问题好像是解决了。

但是，我把上述程序应用后，按着ctrl想进入开发模式，就出现了错误提示，而且，现在程序不能连接内部表，程序里的表也就不见了，急求解决的办法。

版主测试时，可按住ctrl进入试一下问题。

   按照上面的列子，我发布了一个程序，但是到别的电脑使用时，还是提示连接不到数据库，是不是发布后要把数据库的位置进行改变。

此主题相关图片如下：8810059332758109999.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:外部数据库连接.rar

你好，通过你给的方法，我基本解决了在不同的主机上使用外部数据源的目的。现在能不能帮我利用上面的例子，

建立一个能够适应不同的局域网络，也就是我发布的程序需要分发给不同局域网的客户，客户怎么能够不用或者简单设置，就能打开

程序，谢谢。求例子。我看了你给的几个例子，但是尝试了一下都没成功，上面的例子是我用你介绍的方法做的其中一个例子。好像不成功，

谢谢。

    我希望使用的是局域网共享使用数据源，现在想了解你上述代码中的两个问题

第一：我的外部数据源应该放在指定IP的服务器的哪个文件中。

第二：Dim ipFile As String = e.ProjectPath & "ip.txt"这个代码，e.ProjectPath是什么意思，是不是当我的外部数据源位置发生变化时，只要改变ip.txt中的IP地址即可？

第三：如果我是一个196.168.0.5的小型局域网，是不是也能采用上述办法，也就是说在一个小型局域网内使用可不可以，网络的局域网有没有什么要求，谢谢！

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地址需要修改吗？谢谢

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

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

我将发布出来的文件放在局域网中，主机共享文件夹放在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文件

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