| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于TryConnect (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85137) |
| -- 作者：大红袍 -- 发布时间：2016/5/18 19:19:00 -- 以下是引用xuanxiao在2016/5/18 17:09:00的发言：
我需要测试很多数据源是否能连通，fox提供了TryConnect方法。。。若是数据源能连通，则很快能够显示连接成功，就没啥问题！ 可是若不能连接成功，就要等好久，而且会卡住。。 我若有几十个数据源需要我测试的话，实在有点头疼。。 请问有什么好方法？ [此贴子已经被作者于2016/5/18 17:09:37编辑过]
汗，一个项目为什么有几十个数据源啊？所有的数据源都不再一台计算机上的话，也就是说你数据放在几十台计算机上？
快一点的测试，可以这样
Dim s As String = "Provider=SQLOLEDB.1;Password=xxxxxx;Persist Security Info=True;User ID=xxxx;Initial Catalog=销售前台综合填报;Data Source=xxxx.xxx.xxx.xxx"
try
Dim conn As ADODB.Connection
conn = New ADODB.Connection
conn.ConnectionString = s
conn.Open
conn.close
Catch ex As Exception
MessageBox.Show("SQL数据库" & Err.Description & "请联系管理员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
End try |
| -- 作者：大红袍 -- 发布时间：2016/5/18 19:20:00 -- 一般都是先ping，再连接的。 |