主题：请教 : 目录树获取外部数据库所有表名称及列名称

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

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

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