以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  想动态加载外部数据源，但写 的这段代码有错，不知如何修改  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30576)
--  作者：cxabc123
--  发布时间：2013/3/30 15:32:00
--  想动态加载外部数据源，但写 的这段代码有错，不知如何修改
 

\'链接动态数据源,动态数据源不能设置表属性等代码.

Dim cmd As New SQLCommand

cmd.ConnectionName  = "系统数据"

Dim dt As DataTable

cmd.CommandText = "Select * From {动态数据源} Where [是否加载] = True"

dt = cmd.ExecuteReader()

For Each dr As DataRow In dt.DataRows

    If dr.IsNull("密码") Then

        e.C & e.ProjectPath & dr("动态数据源") & ".mdb;Persist Security Info=False"

    Else

        e.C & e.ProjectPath & dr("动态数据源") & ".mdb;Persist Security Info=False;Jet OLEDB:Database Password=" & dr("密码")

    End If

Next
--  作者：狐狸爸爸
--  发布时间：2013/3/30 15:36:00
--  
你这个代码写在那里？
--  作者：cxabc123
--  发布时间：2013/3/30 17:04:00
--  

BeforeConnectOuterDataSource

事件里
--  作者：狐狸爸爸
--  发布时间：2013/3/30 17:41:00
--  
呵呵，这个时候，DataTable都还没有生成，何来Datarows？ 先连接数据源，才能加载表，才能有行的。