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


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

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

帅哥哟,离线,有人找我吗?
yds
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:598 积分:3353 威望: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连接。能否实现这样的功能,要如何实现?请教大神!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/21 16:17:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
YDS
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:598 积分:3353 威望: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


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/22 9:19:00 [只看该作者]

升级代码前,动态修改升级路径,即可

 

和远程升级相关的系统变量

  • PublishDate
    日期型变量,返回在项目属性中设置的项目发布日期。
     
  • UpdatePath
    字符型,用于设置或返回在线升级路径,有了这个变量,我们可以动态设置升级路径。
     
  • RemoteUpdate
    逻辑型,是否通过互联网升级。

 回到顶部
帅哥哟,离线,有人找我吗?
YDS
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:598 积分:3353 威望: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代码正确吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/22 10:51:00 [只看该作者]

回复5楼,逻辑上是正确的,具体你要测试一下才行。

 

TryConnectHost尽量和ping一起判断(如果你TryConnectHost就可以得到结果,那没问题)


 回到顶部