在线管理数据库 类(6)

        If Err.Number <> 0 Then
            Call ErrMsg("数据库不支持检测数据表 " & TableName & " 的主键。原因 ：" & Err.Description)
            Err.Clear()
        End If
    End Function
'---------------------------------------表结构操作-----------------------------------------------
    '添加新字段
    Public Function AddColumn(TableName,ColumnName,ColumnType)
        On Error Resume Next
        RLConn.Execute("Alter Table [" & TableName & "] Add [" & ColumnName & "] " & ColumnType & "")
        If Err Then
            ErrMsg ("新建 " & TableName & " 表中字段错误，请手动将数据库中 <B>" &  ColumnName & "</B> 字段建立，属性为 <B>"&ColumnType& "</B>，原因" & Err.Description)
            Err.Clear
            AddColumn = False
        Else
            AddColumn = True
        End If
    End Function
    '更改字段通用函数
    Public Function ModColumn(TableName,ColumnName,ColumnType)
        On Error Resume Next
        RLConn.Execute("Alter Table [" & TableName & "] Alter Column [" & ColumnName & "] " & ColumnType & "")
        If Err Then
            Call ErrMsg ("更改 " & TableName & " 表中字段属性错误，请手动将数据库中 <B>" &  ColumnName & "</B> 字段更改为 <B>" & ColumnType &  "</B> 属性，原因" & Err.Description)
            Err.Clear
            ModColumn = False