以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  三层架构web数据源设置切换问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178853)
--  作者：堕落的后天
--  发布时间：2022/7/24 11:01:00
--  三层架构web数据源设置切换问题
我在服务器上创建了 web数据源   数据源 名称 “管理系统”，文件是在项目文件下的mdb文件

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

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

还有我在BeforeConnectOuterDataSource事件中测试，这个时间加载时是不是内部数据源外部数据员都还没有加载啊。
--  作者：chen37280600
--  发布时间：2022/7/24 13:04:00
--  
建议先深刻了解一下项目事件的顺序 https://www.mbldt.com/ExpShare/129.html
--  作者：teng0731
--  发布时间：2022/7/24 17:35:00
--  
杰哥的 https://www.mbldt.com/有不少好东西
--  作者：有点蓝
--  发布时间：2022/7/24 20:23:00
--  
BeforeConnectOuterDataSource事件就是在准备连接数据源前执行，在这个事件改需要连接的数据库即可
--  作者：堕落的后天
--  发布时间：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
--  作者：有点蓝
--  发布时间：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