主题：[分享]遍历数据源 - -所有表 - -所有列

 遍历所有数据源 - -所有表 - -所有列

For Each cn As Connection In Connections '----------------------------------遍历数据源
    Output.Show("数据源名称:" & cn.Name)
    Output.Show("链接字符串:" & cn.ConnectionString)
    
    Dim lst As List(Of String)
    lst = Connections(cn.Name).GetTableNames '返回数据源的所有表集合
    
    For Each nm As String In lst '------------------------------------------遍历表
        Output.Show("表名称：" & nm)

        Dim ada As New Data.OleDB.OleDbDataAdapter("Select *  Fro m " & nm & " Where [_indentify] is null", cn.ConnectionString)
        Dim dt As New Data.DataTable
        ada.FillSchema (dt, System.Data.SchemaType.Source)
        For Each dc As data.DataColumn In dt.Columns '----------------------遍历列
            'output.show(dc.name)
            output.show(dc.caption) 'access数据库是标题，用name出错
            output.show(dc.DataType.name) '列类型
            output.show(dc.MaxLength) '列长度
        Next
    Next
Next