- 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=74549)
-- 发布时间：2015/9/13 23:03:00
-- [求助]网络加载表问题
几十次中有一两次会出现加载表总是失败，有没有什么办法解决，另外没出现加载表失败的提示，但要过十几分钟后才出现画圈的内容提示，然后就打不开了，这是什么原因
如图：
此主题相关图片如下：q1.png
-- 发布时间：2015/9/13 23:07:00
--
对于系统在打开的时候，如果出现加载表失败的时候就自动关掉系统，这类的代码应该怎么写才好，是直接写判断语句吗，如果判断缺少某一表的时候就自动关闭，这样写可以吗，有没有更好的办法，谢谢
-- 发布时间：2015/9/14 9:42:00
--
1、表数据过多；过多数据请用分页或动态加载；
2、在beforeOpenProject的时候测试是否可以连接数据库，不能连接，就关闭程序。
try
Dim conn As
ADODB.Connection
conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Password=hailun.;Persist
Security Info=True;User ID=sa;Initial Catalog=test;Data Source=voyo"
conn.Open
msgbox("成功")
conn.close
Catch ex As
Exception
msgbox("失败")
e.Cancel = true
End try
-- 发布时间：2015/9/14 11:50:00
--
加了上述的代码后，启动慢了非常多
-- 发布时间：2015/9/14 11:56:00
--
这句代码，要换成你自己的连接字符串的。启动不可能慢很多。
conn.ConnectionString = "Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=voyo"
-- 发布时间：2015/9/14 11:59:00
--
不是，我知道，主要是那个成功的MSGBOX隐藏在启动画皮后面，让人以为一直没启动
-- 发布时间：2015/9/14 12:01:00
--
改一下
MessageBox.Show("不能连接！", "重要提示",MessageBoxButtons.Ok,MessageBoxIcon.Error, 0, Windows.forms.MessageBoxOptions.ServiceNotification)