--
Dim cmd As new SQLCommand
cmd.Con necti
cmd.Com mandText = "S elect Name F ROM SysObjects W here XType=\'U\' orDER BY Name"
Dim dt As DataTable = cmd.ExecuteReader()
For Each dtr As DataRow In dt.DataRows \'第一步遍历数据库中的表名,创建相应的列名
output.show(dtr("name"))
Dim cmd1 As new SQL Command
cmd1.Con necti
cmd1.Com mandText = "A LTER T able 数据库表统计 add " & dtr("name") & " Integer"
cmd1.ExecuteNonQuery()
Next