连接SQL失败时的提示窗口太多 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 连接SQL失败时的提示窗口太多

共有4033人关注过本帖树形打印复制链接主题：连接SQL失败时的提示窗口太多

atmetmicoo

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：531 积分：4155 威望：0 精华：0 注册：2012/11/26 21:54:00

连接SQL失败时的提示窗口太多 发帖心情

Post By：2013/10/5 12:19:00 [显示全部帖子]

狐爸，

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

此主题相关图片如下：连接sql失败提示.jpg

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

atmetmicoo

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：531 积分：4155 威望：0 精华：0 注册：2012/11/26 21:54:00

Post By：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

主题：连接SQL失败时的提示窗口太多