以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SQL数据源转ACCSEE数据源  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194316)
--  作者：qq51837000
--  发布时间：2024/11/27 16:38:00
--  SQL数据源转ACCSEE数据源

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

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

如图，我做了2个数据源，我想在没有网络的情况下，将“外网SQL数据源”重新连接到本地asscee数据库上，但提示出错。不知道可不可以这么操作？
--  作者：有点蓝
--  发布时间：2024/11/27 16:52:00
--  
1、连接字符串不正确，或者是数据库路径不对，找不到数据库

2、2个数据源的数据库加载进来的所有表的表名表结构必须完全一致
--  作者：qq51837000
--  发布时间：2024/11/27 19:28:00
--  

我在 BeforeConnectOuterDataSource 事件开头加了一句：
If Network.Ping("www.baidu.com", 1000) = False Then
    Syscmd.Project.Exit()
End If 
然后断开网络进行测试，程序并没有关闭，仍然提示创建外部连接失败，这是怎么回事啊
--  作者：qq51837000
--  发布时间：2024/11/27 19:42:00
--  
我把开头代码改成：
If Network.Ping("www.baidu.com", 1000) Then
    MessageBox.Show("网络正常")
Else
    MessageBox.Show("没有网络")
End If 
进行测试，有网时，“网络正常”连续提示了2次，而无网时，没有出现“没有网络”的提示，而且出现创建外部连接失败的提示
--  作者：有点蓝
--  发布时间：2024/11/28 8:38:00
--  

If TryConnectHost("www.baidu.com") Then
    If Network.Ping("www.baidu.com",1000) Then
      return
    End If
End If
    e.Cancel = True
    e.HideSplashForm = True
    MessageBox.show("无网络,无法打开此项目.")
Syscmd.Project.Exit()