e.ConnectionString 为什么没执行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → e.ConnectionString 为什么没执行？

共有2446人关注过本帖树形打印复制链接主题：e.ConnectionString 为什么没执行？

石四

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

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

e.ConnectionString 为什么没执行？ 发帖心情

Post By：2019/6/8 13:59:00 [只看该作者]

想实现外部数据库连接不上时，转向连接本地备用数据库。

BeforeConnectOuterDataSource：

If e.name = "dd" Then

If Network.Ping("192.168.1.147",1000) = False Then '如果IP无法接通

e.HideSplashForm = True

Dim Result As DialogResult

Result = MessageBox.Show("数据库连接异常!连接本地备用数据库?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

e.C";Data Source=D:\备用系统\dd.MDB;Persist Security Info=True;Jet OLEDB:Database Password=xxxxxx"

End If

点提示框“确定“按钮，然后就没有然后了，没有连接本地数据库

有点蓝

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

加好友

发短信

等级：超级版主帖子：110579 积分：562791 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/6/8 14:08:00 [只看该作者]

我测试没有问题。项目启动后打开命令窗口查看一下ConnectionString

Output.Show(Connections("dd").ConnectionString)

注意的是，使用代码更改的数据源设置是不会影响到菜单的数据源设置的。

石四

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

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2019/6/8 14:24:00 [只看该作者]

没法测试，把网断了连不上数据源打不开项目。接上网连的是正常的数据库，不是本地备用数据库。

石四

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

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2019/6/8 14:29:00 [只看该作者]

Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=D:\备用系统\dd.MDB;Persist Security Info=True;Jet OLEDB:Database Password=xxxxxx

这段代码没错，是在设置数据源窗口复制下来的。

石四

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

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2019/6/8 14:38:00 [只看该作者]

MessageBox.Show("数据库连接异常!连接本地备用数据库?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

这个提示框没弹出。

弹出的是：

此主题相关图片如下：微信截图_20190608143732.png

有点蓝

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

加好友

发短信

等级：超级版主帖子：110579 积分：562791 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/6/8 14:51:00 [只看该作者]

断网的情况下是不能使用Network.Ping的，加一个判断：http://www.foxtable.com/webhelp/scr/2709.htm

If TryConnectHost("192.168.1.147") = False OrElse Network.Ping("192.168.1.147",1000) = False Then '如果IP无法接通

石四

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

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2019/6/8 15:23:00 [只看该作者]

改为If TryConnectHost("192.168.1.147") = False OrElse Network.Ping("192.168.1.147",1000) = False Then '

后这个提示框出来了，点了”是“依然没有下文

此主题相关图片如下：微信截图_20190608151734.png

点”否“就出现下面这个提示框

此主题相关图片如下：微信截图_20190608143732.png

都是没有继续执行

Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=D:\备用系统\dd.MDB;Persist Security Info=True;Jet OLEDB:Database Password=xxxxxx

有点蓝

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

加好友

发短信

等级：超级版主帖子：110579 积分：562791 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/6/8 15:34:00 [只看该作者]

我测试没有问题，请确保客户端电脑有这个路径的文件：D:\备用系统\dd.MDB

石四

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

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2019/6/8 15:39:00 [只看该作者]

有的，我用”开发者“账号进入，手动修改为本地数据库都能连上打开项目。

石四

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

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2019/6/8 15:40:00 [只看该作者]

我另外做个测试项目再试试。

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

总数 14 1 2 下一页

主题：e.ConnectionString 为什么没执行？