以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态IP地址远程数据源处理代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=222)
--  作者：狐狸爸爸
--  发布时间：2008/9/4 16:47:00
--  动态IP地址远程数据源处理代码

假定有一个名为“销售数据”远程数据源，默认的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
--  作者：shxiaoya
--  发布时间：2008/9/7 22:27:00
--  
收藏
--  作者：赵奔四
--  发布时间：2008/9/12 2:36:00
--  
这么厉害 还远程ip可以
--  作者：nichunfeng
--  发布时间：2008/9/23 23:45:00
--  
呵呵，不错，那请问花生壳类的域名应该也没有问题的了
--  作者：bestway
--  发布时间：2008/11/6 9:20:00
--  
学习了，