以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何从一个数据源的表中获取另一个数据源链接代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78844)
--  作者：nuhou
--  发布时间：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

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

请教老师怎么解决
--  作者：大红袍
--  发布时间：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"))