Foxtable(狐表) → 用户栏目 → 专家坐堂 → 三层架构web数据源设置切换问题


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

主题：三层架构web数据源设置切换问题
帅哥哟，离线，有人找我吗？
堕落的后天
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：175 积分：1431 威望：0 精华：0 注册：2017/8/4 14:17:00 		三层架构web数据源设置切换问题  发帖心情 Post By：2022/7/24 11:01:00 [只看该作者]

我在服务器上创建了 web数据源   数据源 名称 “管理系统”，文件是在项目文件下的mdb文件

我在客户端 （默认是外部数据源，一样的名称“管理系统”，文件也在项目文件下）如何实现切换到服务器上的web数据源，我按照教程设置，貌似能测试联通，就是切换不了.

我是想实现客户端第一次连上服务器的web数据源，下次打开软件就一直会自动连上这个web数据源

还有我在BeforeConnectOuterDataSource事件中测试，这个时间加载时是不是内部数据源外部数据员都还没有加载啊。
 回到顶部
帅哥，在线噢！
chen37280600
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1279 积分：7959 威望：0 精华：4 注册：2017/12/31 14:53:00 		  发帖心情 Post By：2022/7/24 13:04:00 [只看该作者]

建议先深刻了解一下项目事件的顺序 https://www.mbldt.com/ExpShare/129.html

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


加好友 发短信
等级：一尾狐 帖子：459 积分：3471 威望：0 精华：0 注册：2011/6/6 11:22:00 		  发帖心情 Post By：2022/7/24 17:35:00 [只看该作者]

杰哥的 https://www.mbldt.com/有不少好东西

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

BeforeConnectOuterDataSource事件就是在准备连接数据源前执行，在这个事件改需要连接的数据库即可

 回到顶部
帅哥哟，离线，有人找我吗？
堕落的后天
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：175 积分：1431 威望：0 精华：0 注册：2017/8/4 14:17:00 		  发帖心情 Post By：2022/7/25 9:34:00 [只看该作者]

老师我的软件默认的就是外部数据源 “管理系统” 文件是目录下的123.mdb

现在我在目录下放了 234.mdb  判断这个234.mdb存在时，连接这个数据文件


这个代码如何在BeforeConnectOuterDataSource 写呢   我试了都还是连原来的.

If FileSys.FileExists("234.mdb") Then
    
    MessageBox.Show("存在234数据库")
    
    
    
    Connections.Add("数据源1","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "234.mdb;Persist Security Info=False")
    
    e.C & e.ProjectPath & "234.mdb;Persist Security Info=False"
    
        
Else
    MessageBox.Show("不存在234数据库")
            
            
    Connections.Add("口腔综合管理数据源","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "123.mdb;Persist Security Info=False")
    
    e.C & e.ProjectPath & "123.mdb;Persist Security Info=False"
                                
    
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111407 积分：567105 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/25 10:27:00 [只看该作者]

去掉Connections.Add代码，直接设置e.ConnectionString即可。

If e.name = "xx数据源名称" Then
If FileSys.FileExists("234.mdb") Then
    e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "234.mdb;Persist Security Info=False"
endif
End if
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询