以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  打开项目前验证数据库  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150568)
--  作者：cd_tdh
--  发布时间：2020/6/2 12:10:00
--  打开项目前验证数据库

老师，打开项目前验证数据库是否成功，不成功提示退出项目，以下代码会提示多次什么问题恩？

\'判断是否连接数据库
Dim str As String = " Provider=SQLOLEDB.1;Password=Q*************;Persist Security Info=True;User ID=gly;Initial Catalog=*********;Data Source=*********;Persist Security Info=False"
If Connections.TryConnect(str) = False Then
    MessageBox.Show("本地网络或服务器网络有问题,请确保网络无问题后重试!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Syscmd.Project.Exit(False)
End If
--  作者：有点蓝
--  发布时间：2020/6/2 13:31:00
--  
代码在什么事件里？
--  作者：cd_tdh
--  发布时间：2020/6/2 14:28:00
--  
BeforeOpenProject
--  作者：有点蓝
--  发布时间：2020/6/2 14:58:00
--  
BeforeOpenProject的时候Connections还没有初始化，无法使用，也无法判断。如果一定要在这个事件判断，百度一下学习使用.net的连接方式，比如

try
    Dim conn As new System.Data.SqlClient.SqlConnection("server=192.168.0.1;uid=sa;pwd=123456.;database=Test")
    conn.Open() \'打开链接
    conn.close 
    msgbox("OK")
catch ex As exception
    msgbox(ex.message)
End try
--  作者：cd_tdh
--  发布时间：2020/6/2 15:40:00
--  
不在这个事件判断还能在哪儿判断的？外部表，阿里云服务器。
--  作者：cd_tdh
--  发布时间：2020/6/2 15:53:00
--  

BeforeConnectOuterDataSource

这个事件写，提示出来了，点击OK后没有退出，后面又提示了系统的链接数据库失败！在退出的程序。
--  作者：有点蓝
--  发布时间：2020/6/2 16:21:00
--  
Connections.TryConnect一样无法在BeforeConnectOuterDataSource使用。只能判断服务器是否可以正常访问http://www.foxtable.com/webhelp/topics/2709.htm