主题：[求助]网络加载表问题

几十次中有一两次会出现加载表总是失败，有没有什么办法解决，另外没出现加载表失败的提示，但要过十几分钟后才出现画圈的内容提示，然后就打不开了，这是什么原因

对于系统在打开的时候，如果出现加载表失败的时候就自动关掉系统，这类的代码应该怎么写才好，是直接写判断语句吗，如果判断缺少某一表的时候就自动关闭，这样写可以吗，有没有更好的办法，谢谢

 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

加了上述的代码后，启动慢了非常多

这句代码，要换成你自己的连接字符串的。启动不可能慢很多。

 

conn.ConnectionString = "Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=voyo"

不是，我知道，主要是那个成功的MSGBOX隐藏在启动画皮后面，让人以为一直没启动

改一下

 

MessageBox.Show("不能连接！", "重要提示",MessageBoxButtons.Ok,MessageBoxIcon.Error, 0, Windows.forms.MessageBoxOptions.ServiceNotification)