以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于BeforeConnectOuterDataSource  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160439)
--  作者：fvcfox
--  发布时间：2021/2/2 16:59:00
--  关于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

怎样增加判断当连接不成功的提示退出系统
--  作者：有点蓝
--  发布时间：2021/2/2 17:16:00
--  
判断数据库是否可以连接：http://www.foxtable.com/webhelp/index.htm?page=1944.htm