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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求自动切换数据源代码

共有4305人关注过本帖树形打印复制链接主题：求自动切换数据源代码

wang1988sen

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

加好友

发短信

等级：幼狐帖子：160 积分：1044 威望：0 精华：0 注册：2013/12/27 0:27:00

求自动切换数据源代码 发帖心情

Post By：2014/1/4 11:55:00 [显示全部帖子]

如果局域网数据不能正常连接自动切换到本地 D:\数据库＼数据库文件mdb 。数据源名称为“外部数据源”. 代码怎么写呢？

wang1988sen

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

加好友

发短信

等级：幼狐帖子：160 积分：1044 威望：0 精华：0 注册：2013/12/27 0:27:00

Post By：2014/1/4 12:00:00 [显示全部帖子]

这个帮助我看了，外部数据源不是用ip的，是用局域网的，是局域网数据源切换为本地数据源，这个代码还可以套用吗？

wang1988sen

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

加好友

发短信

等级：幼狐帖子：160 积分：1044 威望：0 精华：0 注册：2013/12/27 0:27:00

Post By：2014/1/4 12:33:00 [显示全部帖子]

If e.Name = "学生成绩数据库" Then

If Network.Ping(""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Nsuxlpwzgg8u8el\数据库\管理系统数据库.mdb;Persist Security Info=False"",1000) =True Then '如果第一个IP无法接通

e.ConnectionString = e.ConnectionString.Replace(""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Nsuxlpwzgg8u8el\数据库\管理系统数据库.mdb;Persist Security Info=False

"", ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\数据库\管理系统数据库.mdb;Persist Security Info=False"")

End If

这样说参数出差，重载失败，帮我看看错那了