以文本方式查看主题

-  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=20730)
--  作者：jswjyjf
--  发布时间：2012/6/18 9:50:00
--  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

 

这个例子  不起作用 望大师指点

 
--  作者：yangming
--  发布时间：2012/6/18 10:05:00
--  
在项目文件目录下创建一个ip.txt的文本文件，在该文件中输入最新的IP地址,怎么会不起作用呢?
--  作者：jswjyjf
--  发布时间：2012/6/18 10:29:00
--  

我试过了 真的不行

 
--  作者：yangming
--  发布时间：2012/6/18 10:55:00
--  
ip.txt中你输入新的IP地址了没?.另外,你是如何操作的?你的代码是什么?贴上来看看
--  作者：狐狸爸爸
--  发布时间：2012/6/18 13:20:00
--  

这些例子都是经过测试的，很多用户在使用，不会不起作用的。

 

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)

        MessabeBox.show(e.ConnectionString)
    End If
End If

 

这样可以看看你的代码执行了没有，如果执行了，合成的字符串是什么。