以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]打开项目时如何动态同时设置两个数据源的链接地址  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124751)

--  作者:智友软件工作室
--  发布时间:2018/9/13 9:08:00
--  [求助]打开项目时如何动态同时设置两个数据源的链接地址
目前一个链接地址设置没有问题,请问如何同时设置两个数据源的动态地址
BeforeConnectOuterDataSource

下面的代码是设置一个数据源的,如果是同时设置两个数据源该怎么弄?
Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "zhiyou.mdb;Persist Security Info=False"
If Connections.TryConnect(s) = True And e.name = "zhiyou" Then
    e.C & e.ProjectPath & "zhiyou.mdb;Persist Security Info=False"
Else
    Messagebox.Show("数据库连接错误!","提示")
    Syscmd.Project.Exit()
    Return
End If

--  作者:智友软件工作室
--  发布时间:2018/9/13 9:13:00
--  
知道了,
\'配置数据源
Dim zhiyou As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "zhiyou.mdb;Persist Security Info=False"
Dim dizhi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "dizhi.mdb;Persist Security Info=False"
If Connections.TryConnect(zhiyou) = True And e.name = "zhiyou" Then
    e.ConnectionString = zhiyou
ElseIf Connections.TryConnect(dizhi) = True And e.name = "dizhi" Then
    e.ConnectionString = dizhi
Else
    Messagebox.Show("数据库连接错误!","提示")
    Syscmd.Project.Exit()
    Return
End If

--  作者:有点甜
--  发布时间:2018/9/13 9:15:00
--  

你项目里面有多个数据源?

 

If e.name = "数据源1" Then

 

ElseIf e.name = "数据源2" Then

 

End If