Foxtable(狐表) → 用户栏目 → 专家坐堂 → 仍然是远程数据源的问题，感觉要疯了!


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

主题：仍然是远程数据源的问题，感觉要疯了!
帅哥哟，离线，有人找我吗？
hitzfeld
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：528 积分：5184 威望：0 精华：0 注册：2017/9/1 23:28:00 		仍然是远程数据源的问题，感觉要疯了!  发帖心情 Post By：2021/10/14 2:00:00 [只看该作者]

之前发过一个帖子：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=171966&skin=0 求教多数据源的问题。但是蓝老师的答案仍然不行，按照蓝老师说的
在BeforeConnectOuterDataSource事件中添加下面的代码：
If e.Name = "gcerp" Then
    If Network.Ping("主机名称",1000) = False  Then '这里我没有使用IP地址，而是用主机名称的方式连接
        e.Connec tion String = e.Connec tion String.Replace("主机名称", "1234567.uttcare.com,9999") '注：1234567.uttcare.com是虚拟域名的地址，已经做了端口映射。
    End If
End If
仍然是出现“无论怎么改，只要代码第一句是“If e.Name = "gcerp" Then” 那么系统启动的时候就非要连接第一个数据源不可，绝对不会切换到第二个数据源，系统会报错“连接GCERP错误，请联系管理员”然后直接退出。”


感觉教程根本就是错误的，为了测试远程数据库是否能用。我特别在一台新电脑上安装狐表，直接建立远程数据源，直接测试成功，系统非常迅速的就连接上了。完全不需要什么特别的设置。读写数据库都非常顺利。
但是，使用了教程的代码，根本就无法连接！我吧端口号去掉了，直接开1433端口映射也不行。真的是不知道要怎么走了。
 回到顶部
帅哥哟，离线，有人找我吗？
ajie5211
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：820 积分：5641 威望：0 精华：1 注册：2015/11/28 14:00:00 		  发帖心情 Post By：2021/10/14 9:01:00 [只看该作者]

If e.name = "连接名称" Then
    e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & e.User.ExtendedValues("数据库") & ".mdb;Persist Security Info=False"
End if

这里直接换成新数据源的完整连接字符串，肯定可以的，天天用的东西。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If e.Name = "gcerp" Then
dim b as Boolean = Network.Ping("主机名称",1000)
msgbox(b) ‘这里显示什么如果是ping的通的也就是true，肯定不会执行下面的if代码
    If b = False  Then '这里我没有使用IP地址，而是用主机名称的方式连接
        e.Connec tion String = e.Connec tion String.Replace("主机名称", "1234567.uttcare.com,9999") '注：1234567.uttcare.com是虚拟域名的地址，已经做了端口映射。
    End If
End If
[此贴子已经被作者于2021/10/14 9:36:13编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询