在线管理数据库 类(8)

        End If
    End Sub
    '关闭表名对象
    Private Sub CloseReNameTableConn()
        Set objADOXDatabase = Nothing
        Conn.Close
        Set Conn=Nothing
    End Sub
    '更改数据库表名，入口参数：老表名、新表名
    Public Function RenameTable(oldName, newName)
        On Error Resume Next
        Call ReNameTableConn
        objADOXDatabase.Tables(oldName).Name = newName
        If Err Then
            Call ErrMsg ("更改表名错误，请手动将数据库中 <B>" & oldName & "</B> 表名更改为 < B>" & newName & "</B>，原因" & Err.Description)
            Err.Clear
            RenameTable = False
        Else
            RenameTable = True
        End If
        Call CloseReNameTableConn
    End Function
    '删除表通用函数
    Public Function DelTable(TableName)
        On Error Resume Next
        RLConn.Execute("drop空格Table [" & TableName & "]")
        If Err Then
            ErrMsg ("删除 " & TableName & " 表错误，请手动将数据库中 <B>" &  TableName&"</B> 表删除，原因" & Err.Description)
            Err.Clear
            DelTable = False
        Else
            DelTable = True
        End If
    End Function