以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]外部数据源  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184802)

--  作者:moseser
--  发布时间:2023/1/4 11:17:00
--  [求助]外部数据源
问题,我有两个数据源,一个是本地的access数据源,一个是阿里云上的sql server数据源,我想打开软件时,需要选择access数据源,

在beforeconnectouterdatasource时使用了教程中的如下代码:

If OpenFileArgs.Count = 0 Then
    \'第一次连接的时候,需要将数据源连接到你项目的Access数据库,可以是一个空的数据库
    e.C & ProjectPath & "Project\\" & "cost.mdb;Persist Security Info=False"
Else
    \'然后设置成新的数据库.
    e.ConnectionString = OpenFileArgs(0)
End If

问题是:我的阿里云的连接是不是也改了啊?
我想只在连接本地access数据源时执行以上命令,而sel 数据源按照软件默认连接
[此贴子已经被作者于2023/1/4 11:19:01编辑过]

--  作者:有点蓝
--  发布时间:2023/1/4 11:41:00
--  
判断一下数据源名称呀
If e.name = "xx数据源" Then
If OpenFileArgs.Count = 0 Then
    \'第一次连接的时候,需要将数据源连接到你项目的Access数据库,可以是一个空的数据库
    e.C & ProjectPath & "Project\\" & "cost.mdb;Persist Security Info=False"
Else
    \'然后设置成新的数据库.
    e.ConnectionString = OpenFileArgs(0)
End If
End if

此主题相关图片如下:1.png
按此在新窗口浏览图片