遍历所有数据源 - -所有表 - -所有列
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编辑过]
加好友 
发短信
Post By：2022/7/29 21:42:00 [只看该作者]
