以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [分享]遍历数据源 - -所有表 - -所有列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178952)

--  作者：2425004926 --  发布时间：2022/7/29 21:42:00 --  [分享]遍历数据源 - -所有表 - -所有列  遍历所有数据源 - -所有表 - -所有列 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 [此贴子已经被作者于2022/7/29 21:44:56编辑过]

--  作者：有点蓝 --  发布时间：2022/7/30 9:01:00 --   多谢分享

--  作者：lindong --  发布时间：2022/7/30 10:18:00 --   顶顶

--  作者：尘埃落定 --  发布时间：2022/7/31 0:29:00 --   学习

--  作者：xiangwei_zeng --  发布时间：2022/12/22 20:31:00 --   多谢分享

--  作者：listfor --  发布时间：2022/12/23 15:20:00 --   收藏

--  作者：hrsoft --  发布时间：2022/12/23 18:44:00 --