此主题相关图片如下：捕获.png

求助，是否可以用代码在 数据链接属性 窗口写入IP 地址，并且保存此IP地址。

我想用此方法解决，非固定IP地址链接。

谢谢！

示例三

如果希望能够在打开项目的时候，自动出现一个对话框，让用户可以自由选择外部数据文件，可以在BeforeConnectOuterDataSource事件中加入下面的代码：

示例四

假定有一个名为“销售数据”远程数据源，默认的IP地址为119.119.120.120，因为服务器的调整，IP地址可能会发生变化，导致数据源无法连接。
为解决这个问题，可以在用户管理窗口增加一个名为IP的扩展用户属性，让用户在登录的时候，可以输入另一个IP地址，然后在BeforeConnectOuterDataSource事件中加入下面的代码：

If e.Name = "销售数据" Then
    Dim IP As String = e.User.ExtendedValues("IP") \'获得用户输入的IP
    If IP > "" \'如果用户自己输入了IP
        \'则用用户输入的IP替换原来的IP
        e.ConnectionString = e.ConnectionString.Replace("119.119.120.120", IP)
    End If
End If

你也可以用另一种方法解决，在项目文件目录下创建一个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

非常感谢您！

我现在用的是以下代码，并且用的是自定义用户登录

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地址，数据链接属性窗口用的是花生壳域名。

由于在使用的时候，有时候会卡，有时候能正常使用，不稳定。

所有我想把数据链接属性窗口的IP，用代码写入。

求如何在数据链接属性窗口写入IP的代码，并且保存此代码在项目运行后能正常使用

学习学习 呵呵