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


  共有3586人关注过本帖树形打印复制链接

主题：没有外网时不连数据库
美女呀，离线，留言给我吧！
漂亮美眉vszh
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：893 积分：8058 威望：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
End If
但打开软件时，依旧会弹出报错窗口
我是想没有外网时，这个数据库不连接，报错没有
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110334 积分：561518 威望：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
End If
 回到顶部
美女呀，离线，留言给我吧！
漂亮美眉vszh
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：893 积分：8058 威望：0 精华：0 注册：2013/5/30 11:27:00 		  发帖心情 Post By：2021/8/9 9:11:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
漂亮美眉vszh
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：893 积分：8058 威望：0 精华：0 注册：2013/5/30 11:27:00 		  发帖心情 Post By：2021/8/9 9:13:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：3.png
图片点击可在新窗口打开查看
老师：这个就是完整代码，判断一下数据库名，如果连网就连接这个数据库；现在是不连网，就报错
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/9 9:16:00 [只看该作者]

说明2个地址都无法连接

 回到顶部
美女呀，离线，留言给我吧！
漂亮美眉vszh
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：893 积分：8058 威望：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


加好友 发短信
等级：超级版主 帖子：110334 积分：561518 威望：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 积分：8058 威望：0 精华：0 注册：2013/5/30 11:27:00 		  发帖心情 Post By：2021/8/9 14:53:00 [只看该作者]

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/9 14:58:00 [只看该作者]

没有办法不报错。

把云端的数据库表结构导出为一个access空表放到本地，如果云端无法连接就连接本地的access空表
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询