Foxtable(狐表)用户栏目专家坐堂 → [求助]数据源切换


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

主题:[求助]数据源切换

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


加好友 发短信
等级:童狐 帖子:210 积分:2098 威望:0 精华:0 注册:2021/3/7 1:27:00
[求助]数据源切换  发帖心情 Post By:2021/11/6 10:29:00 [只看该作者]

请教老师,因公司不允许连接外网,我做的项目只在内网运行和调试,但有时不在公司,要修改项目都要手动切换数据源很麻烦,我希望实现这样一个功能:
启动时如果在3秒内连接不到内网数据源,就自动连接本地数据源

内网地址:\\192.168.109.21\tq\TQ000.mdb
本地地址:D:\TQ000.mdb

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


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


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


加好友 发短信
等级:童狐 帖子:210 积分:2098 威望:0 精华:0 注册:2021/3/7 1:27:00
  发帖心情 Post By:2021/11/6 11:44:00 [只看该作者]

我用户管理是用的外部数据源,受影响吗?

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


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

没有影响,和什么用户没有关系。使用filesys判断\\192.168.109.21\tq\TQ000.mdb存在就使用,否则使用另外一个。

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


加好友 发短信
等级:童狐 帖子:210 积分:2098 威望:0 精华:0 注册:2021/3/7 1:27:00
  发帖心情 Post By:2021/11/7 10:27:00 [只看该作者]

以下是引用有点蓝在2021/11/6 11:48:00的发言:
没有影响,和什么用户没有关系。使用filesys判断\\192.168.109.21\tq\TQ000.mdb存在就使用,否则使用另外一个。
这个判断时间有点长,有没有更高效一点的办法?


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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/7 20:30:00 [只看该作者]

试试这种

Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.109.21\tq\TQ000.mdb;Persist Security Info=False"
If 
Connections.TryConnect(s) = False Then
    MessageBox.Show("数据源无法连通!"
)
End If

 回到顶部