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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 没有外网时不连数据库

共有3686人关注过本帖树形打印复制链接主题：没有外网时不连数据库

漂亮美眉vszh

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

加好友

发短信

等级：四尾狐帖子：893 积分：8064 威望：0 精华：0 注册：2013/5/30 11:27:00

没有外网时不连数据库 发帖心情

Post By：2021/8/9 8:05:00 [只看该作者]

此主题相关图片如下：11111.png

老师，当我没有外网的时候，不连接某个数据库，写的代码为：

If e.name = "SupPPAP" Then

If Network.Ping("168.1.1.1") = True Then

FTPACoon = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=SupPPAPData;Data Source=168.1.1.1"

e.ConnectionString = FTPACoon

End If

但打开软件时，依旧会弹出报错窗口

我是想没有外网时，这个数据库不连接，报错没有

有点蓝

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

加好友

发短信

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

Post By：2021/8/9 8:51:00 [只看该作者]

1、贴出事件完整代码

2、调试

If e.name = "SupPPAP" Then

msgbox(1)

If Network.Ping("168.1.1.1") = True Then

FTPACoon = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=SupPPAPData;Data Source=168.1.1.1"

e.ConnectionString = FTPACoon

msgbox(e.ConnectionString)

End If

漂亮美眉vszh

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

加好友

发短信

等级：四尾狐帖子：893 积分：8064 威望：0 精华：0 注册：2013/5/30 11:27:00

Post By：2021/8/9 9:11:00 [只看该作者]

此主题相关图片如下：1.png

此主题相关图片如下：2.png

漂亮美眉vszh

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

加好友

发短信

等级：四尾狐帖子：893 积分：8064 威望：0 精华：0 注册：2013/5/30 11:27:00

Post By：2021/8/9 9:13:00 [只看该作者]

此主题相关图片如下：3.png

老师：这个就是完整代码，判断一下数据库名，如果连网就连接这个数据库；现在是不连网，就报错

有点蓝

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

加好友

发短信

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

Post By：2021/8/9 9:16:00 [只看该作者]

说明2个地址都无法连接

漂亮美眉vszh

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

加好友

发短信

等级：四尾狐帖子：893 积分：8064 威望：0 精华：0 注册：2013/5/30 11:27:00

Post By：2021/8/9 14:25:00 [只看该作者]

以下是引用有点蓝在2021/8/9 9:16:00的发言：
说明2个地址都无法连接

老师，不连网时，无法连接这个数据库是对的，但报错，我如何屏蔽掉这个报错？

有点蓝

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

加好友

发短信

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

Post By：2021/8/9 14:43:00 [只看该作者]

没有办法屏蔽，如果所有地址都连不上，那就直接退出项目

Syscmd.Project.Exit()	正常退出Foxtable
Syscmd.Project.Exit(True)	先保存数据，然后退出Foxtable
Syscmd.Project.Exit(False)	不保存数据，强行退出Foxtable

漂亮美眉vszh

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

加好友

发短信

等级：四尾狐帖子：893 积分：8064 威望：0 精华：0 注册：2013/5/30 11:27:00

Post By：2021/8/9 14:53:00 [只看该作者]

我有两个数据源，一个是本地的，一个是云端上的，本地的有一些表，云端有两张，如果网络连不上时，云端那个数据库我就不连接，但不想要这个报错出现。

有点蓝

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

加好友

发短信

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

Post By：2021/8/9 14:58:00 [只看该作者]

没有办法不报错。

把云端的数据库表结构导出为一个access空表放到本地，如果云端无法连接就连接本地的access空表

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

主题：没有外网时不连数据库