[求助]如何从一个数据源的表中获取另一个数据源链接代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2133人关注过本帖树形打印复制链接主题：[求助]如何从一个数据源的表中获取另一个数据源链接代码

nuhou

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

加好友

发短信

等级：幼狐帖子：154 积分：1653 威望：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

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

请教老师怎么解决

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/18 11:53:00 [只看该作者]

这个时候还没有连接生成DataTable，不能查数据。

你把内容保存到一个txt文档里吧。

或者，用代码连接数据库，然后查

Dim cnn As new Data.OleDB.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.mdb;Persist Security Info=False")
Dim ada As New Data.OleDB.OleDbDataAdapter("Select * F------rom test", cnn)
Dim dataSet As new System.Data.DataSet

ada.Fill(dataSet)

Dim dt = dataSet.Tables(0)
msgbox(dt.rows(0)("字段1"))

下一主题 >> << 上一主题

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