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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于外部数据源

共有2108人关注过本帖树形打印复制链接主题：[求助]关于外部数据源

yds

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

等级：三尾狐帖子：632 积分：3619 威望：0 精华：0 注册：2011/5/21 18:05:00

[求助]关于外部数据源 发帖心情

Post By：2018/5/21 16:12:00 [显示全部帖子]

数据库在本地服务器，地址：192.168.1.250 外网域名 name.com 映射到本地数据库服务器，有没有办法打开程序的时候先检测本机是否允许连接外网，允许联网数据源用name.com连接，不允许连网数据源用192.168.1.250连接。能否实现这样的功能，要如何实现？请教大神！

YDS

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

等级：三尾狐帖子：632 积分：3619 威望：0 精华：0 注册：2011/5/21 18:05:00

Post By：2018/5/22 8:43:00 [显示全部帖子]

BeforeConnectOuterDataSourcede 的代码如下是不是就可以了？

If TryConnectHost("ahxoar.cn") Then

e.ConnectionString = e.ConnectionString.Replace("192.168.1.250", "ahxoar.cn")

End If

数据源是解决了，那远程升级是不是也有办法解决，升级的时候先检测本机是否允许连接外网，允许联网则用互联网地址升级，不允许连网则本地局域网地址升级。能否实现这样的功能，要如何实现？

YDS

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

等级：三尾狐帖子：632 积分：3619 威望：0 精华：0 注册：2011/5/21 18:05:00

Post By：2018/5/22 10:31:00 [显示全部帖子]

If TryConnectHost("name.com") Then

RemoteUpdate = True

UpdatePath = "http://name.com/XX"

Else

RemoteUpdate = False

UpdatePath = "http://192.168.1.250/XX"

End If

If Syscmd.Project.Update(False,False) = False Then

Forms("登录").Open()

End If

请教大神，以上的AfterOpenProject代码正确吗？

主题：[求助]关于外部数据源