关于Connections.TryConnect这个问题！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于Connections.TryConnect这个问题！

共有7069人关注过本帖树形打印复制链接主题：关于Connections.TryConnect这个问题！

benben325

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

加好友

发短信

等级：幼狐帖子：172 积分：1577 威望：0 精华：0 注册：2021/8/9 16:05:00

关于Connections.TryConnect这个问题！ 发帖心情

Post By：2022/9/17 10:01:00 [显示全部帖子]

一旦数据源连不上，这个检测连接要花好久，一直处于卡死状态。。。其实一般3秒都没连上基本上就连不上了，有什么方法可以快速判断连接状态？或者3秒没连上我直接判断为连接失败！

benben325

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

加好友

发短信

等级：幼狐帖子：172 积分：1577 威望：0 精华：0 注册：2021/8/9 16:05:00

Post By：2022/9/17 10:37:00 [显示全部帖子]

这个帖子我看过，我只需要判断数据源是否连接，因此引用了如下代码：

Dim str As String = "Provider=SQLOLEDB.1;Password=" & r("密码") & ";Persist Security Info=True;User ID=" & r("用户名") & ";Initial Catalog=master;Data Source=" & r("服务器")

Dim mess As String = "数据源连接成功!"

Try

Dim conn As ADODB.Connection

conn = New ADODB.Connection

conn.ConnectionString = str

conn.Open

conn.close

Catch ex As Exception

mess = "SQL数据库" & Err.Description

End Try

MessageBox.Show(mess)

可是这部分代码发现时间仍然需要很久！

benben325

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

加好友

发短信

等级：幼狐帖子：172 积分：1577 威望：0 精华：0 注册：2021/8/9 16:05:00

Post By：2022/9/17 10:47:00 [显示全部帖子]

老师，不行额。

Dim str As String = "Provider=SQLOLEDB.1;Password=" & r("密码") & ";Persist Security Info=True;User ID=" & r("用户名") & ";Initial Catalog=master;Data Source=" & r("服务器")

Dim mess As String = "数据源连接成功!"

Try

Dim conn As ADODB.Connection

conn = New ADODB.Connection

conn.ConnectionTimeout=3

conn.ConnectionString = str

conn.Open

conn.close

Catch ex As Exception

mess = "SQL数据库" & Err.Description

End Try

MessageBox.Show(mess)

改成这样仍旧花了一分钟左右

下一主题 >> << 上一主题

主题：关于Connections.TryConnect这个问题！