'向数据库中所有表增加删除重命名列
Dim cmd As New SQLCommand
cmd.C
Dim lst As List(Of String)
lst = Connections("EI").GetTableNames
Dim Builder As New ADOXBuilder("EI")
Builder.Open()
For Each nm As String In lst
cmd.CommandText = "Se lect * From {" & nm & "} Where [_Identify] is Null"
Dim dt1 As DataTable = cmd.ExecuteReader()
If dt1.DataCols.contains("_Locked") = True Then
With Builder.Tables(nm)
.DeleteColumn("sys_Fmax")
End With
End If
Next
Builder.Close()
这个代码其他列可以,但以"_" 开头的三个列不能删除,什么原因,只能直接用sql语句删除或者在数据数据中一个一个删除?
谢谢!
加好友 
发短信
Post By：2017/6/3 9:47:00 [显示全部帖子]
