Foxtable(狐表)用户栏目专家坐堂 → [求助]如何从一个数据源的表中获取另一个数据源链接代码


  共有2171人关注过本帖树形打印复制链接

主题:[求助]如何从一个数据源的表中获取另一个数据源链接代码

帅哥哟,离线,有人找我吗?
nuhou
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:154 积分:1659 威望:0 精华:0 注册:2015/7/1 15:27:00
[求助]如何从一个数据源的表中获取另一个数据源链接代码  发帖心情 Post By:2015/12/18 11:14:00 [显示全部帖子]

我原先使用的是SQL数据源
现在想另外设计个程序来设置数据源,这个新程序用ACCESS作为数据源,设置好数据源后,保存在access的一个单元格内。
现在怎么才能让原来的程序启动先通过这个ACCESS文件来获取数据源链接来连接SQL数据库呢

我在BeforeConnectOuterDataSource设置了代码
ACCESS文件内有一个Connect表,已经作为外部数据源加入程序了

If e.name = "ACCESS" Then
    e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath &
"data.mdb;Persist Security Info=False"

End
if


If e.Name = "SQL" Then
    Dim dr As DataRow
    dr = DataTables("Connect").Find("默认连接 = True")
    e.ConnectionString =dr("数据源链接")
End If

结果运行程序,程序直接出错退出

请教老师怎么解决

 回到顶部