在线管理数据库 类(7)

        Else
            ModColumn = True
        End If
    End Function    
    '删除字段通用函数
    Public Function DelColumn(TableName,ColumnName)
        On Error Resume Next
        If sDBType = "SQL" THen 
            RLConn.Execute("Alter Table [" & TableName & "] drop空格Column [" & ColumnName & "]")
        Else
            RLConn.Execute("Alter Table [" & TableName & "] drop空格[" & ColumnName & "]")
        End if
        If Err Then 
            Call ErrMsg ("删除 " & TableName & " 表中字段错误，请手动将数据库中 <B>" &  ColumnName & "</B> 字段删除，原因" & Err.Description)
            Err.Clear
            DelColumn = False
        Else
            DelColumn = True
        End If
    End Function
'---------------------------------------表操作---------------------------------------------------
    '打开表名对象
    Private Sub ReNameTableConn()
        On Error Resume Next
        Set objADOXDatabase = Server.CreateObject("ADOX.Catalog")
        objADOXDatabase.ActiveConnection = ConnStr
        If Err Then
            ErrMsg("建立更改表名对象出错，您所要升级的空间不支持此对象，您很可能需要手动更改表名，原因" & Err.Description)
            Response.End
            Err.Clear