以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教 : 目录树获取外部数据库所有表名称及列名称  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64545)
--  作者：able
--  发布时间：2015/2/21 23:07:00
--  请教 : 目录树获取外部数据库所有表名称及列名称
请教如何通过目录树获取外部数据库所有表名称及列名称
--  作者：有点甜
--  发布时间：2015/2/23 9:25:00
--  

类似代码，红色代码的空格，你改一下

 

For Each tn As String In Connections("ddd").GetTableNames
    Dim cmd As new SQLCommand
    cmd.Connec t ionName = "ddd"
    cmd.CommandText = "select * f rom {" & tn & "} where 1=2"
    Dim dt As DataTable = cmd.ExecuteReader
    output.show("{" & tn & "}")
    For Each dc As DataCol In dt.DataCols
        output.show(dc.name)
    Next
    output.show("------------")
Next
--  作者：able
--  发布时间：2015/2/23 12:14:00
--  
太谢谢您了,
新年快乐!

请问加载到目录树,应该如何写?
--  作者：有点甜
--  发布时间：2015/2/23 14:22:00
--  

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each tn As String In Connections("ddd").GetTableNames
    Dim cmd As new SQLCommand
    cmd.Connectio nName = "ddd"
    cmd.CommandText = "select * f rom {" & tn & "} where 1=2"
    Dim dt As DataTable = cmd.ExecuteReader
    Dim nd As object = trv.Nodes.Add(tn)
    For Each dc As DataCol In dt.DataCols
        nd.Nodes.Add(dc.name)
    Next
Next

[此贴子已经被作者于2015/2/23 14:22:18编辑过]