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("120.0.0.10",ip)
            If TryConnectHost(ip) Then
                If Network.Ping(ip,1000) = False  Then \'如果第一个IP无法接通

                   MessageBox.Show("连接服务器失败!",MessageBoxButtons.OK,MessageBoxIcon.Information)
                   e.HideSplashForm = True
                endif

           Else

                MessageBox.Show("连接服务器失败!",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.HideSplashForm = True
           endif

        endif

endif

请教老师,怎么去掉图中的连接提示,用代码中的提示替换?

1、你本来的连接字符串是怎样的，贴出来；

2、你ip.txt的内容是什么，贴出来；

3、在代码里弹出 msgbox(e.ConnectionString) ，这个连接字符串是否为正确的？

1.字符串Provider=SQLOLEDB.1;Password=***********;Persist Security Info=True;User ID=*******;Initial Catalog=*******;Data Source=120.0.0.10

2.IP.TXT内容为"110.80.121.67

3.msgbox(e.ConnectionString),这个字符串是正确的,网络通的情况下正常连接服务器,用TryConnectHost跟Network.Ping判断网络也正常提示,但是服务器要是防火墙没开启或者IP地址发生变化,或者花生壳IP地址错乱,这三种现象出现就会弹出图中的提示

先测试链接，连不上就提示，写到beforeOpenProject事件

http://www.foxtable.com/webhelp/scr/1944.htm