[求助]数据库连接超时 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数据库连接超时

共有2219人关注过本帖树形打印复制链接主题：[求助]数据库连接超时

zswushi

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

加好友

发短信

等级：幼狐帖子：185 积分：1729 威望：0 精华：0 注册：2016/5/30 16:23:00

[求助]数据库连接超时 发帖心情

Post By：2016/12/22 9:49:00 [只看该作者]

老师：

您好！

请问下，若我的软件项目连接不上数据库，软件会持续尝试连接很久，约20秒时间，然后弹出“创建外部连接 ‘** ’失败，请联系管理者或开发者，重新设置数据链接字

符串”，我能否把这个连接提示的时间缩短，比如缩短到8秒或 5秒，因为一般正常的 1—— 2秒弹出登录窗口，

谢谢！

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/22 10:17:00 [只看该作者]

你可以在beforeOpenProject事件，加入 tryHost 或者 ping，先测试一下

http://www.foxtable.com/webhelp/scr/2709.htm

http://www.foxtable.com/webhelp/scr/1401.htm

zswushi

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

加好友

发短信

等级：幼狐帖子：185 积分：1729 威望：0 精华：0 注册：2016/5/30 16:23:00

Post By：2016/12/22 11:13:00 [只看该作者]

我做了个全局变量 COn con 赋值为链接字符串 , e.ConnectionString

然后在before openproject 设置了这样的代码

If Connections.TryConnect(con) = False Then

messagebox.show("无法连接到数据库,请联系管理员.","警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)

e.cancel = True

End If

现在是，一切正常的情况下，也打不开项目了，所以，我只能删除这个代码，究竟怎么做才好呢？谢谢指教

[此贴子已经被作者于2016/12/22 11:15:06编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/22 11:17:00 [只看该作者]

看2楼。

zswushi

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

加好友

发短信

等级：幼狐帖子：185 积分：1729 威望：0 精华：0 注册：2016/5/30 16:23:00

Post By：2016/12/22 11:21:00 [只看该作者]

你那种做法不能检查 SA，密码以及数据库名呀，若四个参数，有一个出错，怎么办？？

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/22 11:24:00 [只看该作者]

那用这段代码测试。

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