Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
For Each nm As String In Connections("city").GetTableNames
cmd.CommandText = "SELECT * From " & nm & " where false"
dt = cmd.ExecuteReader()
If dt.datacols.contains("sys_日期") = false Then
Dim Builder As New ADOXBuilder("数据源名称")
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.Tables(nm)
With tbl
.AddColumn("sys_日期" ,ADOXType.DateTime)
.AddColumn("sys_姓名" ,ADOXType.String, 5) '增加字符型列,长度指定为12
.AddColumn("部门" ,ADOXType.String, 10)
End With
Builder.Close()
End If
Next
MessageBox.Show("city字段检索并填完成添加完成 ","提示")
加好友 
发短信
Post By：2021/2/23 22:50:00 [显示全部帖子]
