以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  连接SQL失败时的提示窗口太多  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40893)

--  作者:atmetmicoo
--  发布时间:2013/10/5 12:19:00
--  连接SQL失败时的提示窗口太多
狐爸,

当客户端连接不到服务器或者连接不上SQL的时候,就会弹出一个如下图的窗口,但是如果时间稍微长一点,就会弹出若干个这样的窗口,关个半天,是否可以做到只弹一个这样的窗口出来,或者公开一下连接不上网络或者SQL的时候,用语句能判断,这样我们就可以自己程序设置弹出其他窗口来替代。

图片点击可在新窗口打开查看此主题相关图片如下:连接sql失败提示.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2013-10-5 12:20:18编辑过]

--  作者:有点甜
--  发布时间:2013/10/5 13:00:00
--  

 参考项目事件 beforeshowerrormessage

 

http://www.foxtable.com/help/topics/2655.htm


--  作者:atmetmicoo
--  发布时间:2013/10/5 17:30:00
--  
多谢【有点甜】老师,我已经参照这个方法做了,弹出自定义的报错窗口:
e.Cancel = True
If  Forms("SysTip").Opened = True Then
    Forms("SysTip").Close
End If
Dim Tipt As String
Tipt =  e.Event & vbcrlf &  e.Message1 &  vbcrlf  & vbcrlf  & e.Message2
Forms("SysTip").Show()
Dim textb1 As WinForm.TextBox = Forms("SysTip").Controls("TextBox1")
textb1.Text = Tipt

但是窗口还是有时候会卡死,不过比系统的那种报错要好点

图片点击可在新窗口打开查看此主题相关图片如下:系统报错.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:系统报错2.jpg
图片点击可在新窗口打开查看



--  作者:有点甜
--  发布时间:2013/10/5 17:55:00
--  
 卡死是正常的,因为程序试图去连接数据库。

 你再参考下面两个事件写写代码吧