[求助]打开项目时如何动态同时设置两个数据源的链接地址 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]打开项目时如何动态同时设置两个数据源的链接地址

共有2383人关注过本帖树形打印复制链接主题：[求助]打开项目时如何动态同时设置两个数据源的链接地址

智友软件工作室

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

等级：四尾狐帖子：912 积分：7445 威望：0 精华：0 注册：2013/2/25 13:10:00

[求助]打开项目时如何动态同时设置两个数据源的链接地址 发帖心情

Post By：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

智友软件工作室

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

等级：四尾狐帖子：912 积分：7445 威望：0 精华：0 注册：2013/2/25 13:10:00

Post By：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

主题：[求助]打开项目时如何动态同时设置两个数据源的链接地址