以文本方式查看主题

-  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=73177)
--  作者：happyft
--  发布时间：2015/8/13 17:42:00
--  tryconnect可否加入时间

If Connections.TryConnect(s) = False Then
    MessageBox.Show("数据源无法连通!")
Else
    MessageBox.Show("数据源可以连通!")
End If

 

上述代码可否加入时间，比如 3 秒连接不上，就提示。

 

谢谢！
--  作者：大红袍
--  发布时间：2015/8/13 17:50:00
--  

大概10秒，这是必要的时间。你还可以先ping

 

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

 

 

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("失败")
End try

[此贴子已经被作者于2015/8/13 17:54:01编辑过]