| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]打开项目时如何动态同时设置两个数据源的链接地址 (http://foxtable.net/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 |