Foxtable(狐表) → 用户栏目 → 专家坐堂 → 局域网与外部网络访问数据库切换链接问题


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

主题：局域网与外部网络访问数据库切换链接问题
帅哥哟，离线，有人找我吗？
z769036165
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：760 积分：5430 威望：0 精华：0 注册：2012/10/5 21:53:00 		局域网与外部网络访问数据库切换链接问题  发帖心情 Post By：2021/7/28 11:13:00 [显示全部帖子]

需要实现，在局域网访问时候数据库链接使用内部局域网IP访问，在出差外网访问的时候，切换访问web数据源访问，在BeforeConnectOuterDataSource
设置以下代码，结果没作用
默认设置的数据库链接是采用的局域网内的连接，目前是判断这个链接不上，就换成这个WEB数据源访问
If TryConnectHost("192.168.3.10")  = False Then
    If Network.Ping("192.168.3.10",1000) = False Then '如果第一个IP无法接通
        Select Case e.Name
            Case "shujk"
                Dim sb As New StringBuilder
                sb.AppendLine("http://222.168.xxx.xxx:8000/DataServer.htm")
                sb.AppendLine("-FormData-")
                sb.AppendLine("UserName:xxxxxx")
                sb.AppendLine("Password:xxxxxxxxxxx")
                e.ConnectionString = sb.ToString()
     End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
z769036165
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：760 积分：5430 威望：0 精华：0 注册：2012/10/5 21:53:00 		  发帖心情 Post By：2021/7/28 18:16:00 [显示全部帖子]

---------------------------
错误
---------------------------
创建外部连接"shujk"失败，请联系管理员或开发者，重新设置数据链接字符串！
---------------------------
确定   
---------------------------
直接显示这个没弹出内容
 回到顶部
帅哥哟，离线，有人找我吗？
z769036165
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：760 积分：5430 威望：0 精华：0 注册：2012/10/5 21:53:00 		  发帖心情 Post By：2021/7/29 11:10:00 [显示全部帖子]

直接连接没有问题，现在好像问题在BeforeConnectOuterDataSource这个地方，没有先做判断，而是先进行了局域网的数据库连接，然后连接不上局域网数据库报错，报错后才出现msgbox(1)、msgbox(e.Name)弹窗

 回到顶部
帅哥哟，离线，有人找我吗？
z769036165
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：760 积分：5430 威望：0 精华：0 注册：2012/10/5 21:53:00 		  发帖心情 Post By：2021/7/29 11:20:00 [显示全部帖子]

If TryConnectHost("192.168.3.10")  = False Then
msgbox(1)
    If Network.Ping("192.168.3.10",1000) = False Then '如果第一个IP无法接通
msgbox(e.Name)
        Select Case e.Name
            Case "shujk"
                Dim sb As New StringBuilder
                .....
     Case  "另外一个"
......
msgbox(e.ConnectionString)
     End If
End If
有2个，另外一个也包在里面了，之前If TryConnectHost("192.168.3.10")  = False Then没有加的，就是不行，所以以为是Network.Ping没判断出来，加了这个
 回到顶部
帅哥哟，离线，有人找我吗？
z769036165
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：760 积分：5430 威望：0 精华：0 注册：2012/10/5 21:53:00 		  发帖心情 Post By：2021/7/29 14:05:00 [显示全部帖子]

e.Connec ti，不加判断条件
直接这样修改都不行，我怀疑是web数据源与正常的sql数据源切换有问题

我设置当前数据源shujk  为web数据源，正常能连接
在BeforeConnectOuterDataSource里只设置

e.C onnec tionStr ing = "Pr ovid er=SQ LOLEDB.1;Pa ssword=xxxx;P ersist Sec urity Info=True;U ser ID=sa;Initial C atalog=xxxx;Dat a Source=xxx x"

进去后数据库就没改过来还是原来的，反过来也是一样的
[此贴子已经被作者于2021/7/29 14:06:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
z769036165
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：760 积分：5430 威望：0 精华：0 注册：2012/10/5 21:53:00 		  发帖心情 Post By：2021/7/29 17:22:00 [显示全部帖子]

这个问题还是出现在切换上，如果菜单的数据源设置连接数据源A连接不上就会报错，切换就是没效果。

我现在关掉WEB数据源，菜单默认设置为web数据源，在BeforeConnectOuterDataSource设置当局域网IP可以连接通的时候切换成局域网连接
e. Connec tionStr ing = "Pr ovid er=SQ LOLEDB.XX” 的连接方式

For Each cn As Connection In Connections

    Output.Show("名称:" & cn.Name)
    Output.Show("链接字符串:" & cn.ConnectionString)
Next


但是按以上代码发现数据源已修改了，且局域网数据源是通的，就是报错，且连接不上。


如果2个数据源都能连接通的情况下就不报错，而且切换成功了

[此贴子已经被作者于2021/7/29 17:27:13编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 5 次数据查询