在线管理数据库 类(5)

        If Err.Number <> 0 Then
            Call ErrMsg ("在 " & TableName & " 将字段" & ColumnName & " 添加为主键时出错，原因 " & Err.Description & "请手工修改该字段属性。")
            Err.Clear()
            AddPRIMARYKEY = False
        Else
            AddPRIMARYKEY = True
        End If
    End Function    
    '更改表TableName的定义把字段ColumnName主键的定义删除
    Public Function DelPRIMARYKEY(ByVal TableName, ByVal ColumnName)
        On Error Resume Next
        RLConn.Execute("ALTER TABLE "& TableName & " drop空格PRIMARY KEY (" & ColumnName & ")")
        If Err.Number <> 0 Then
            Call ErrMsg ("在 " & TableName & " 将字段" & ColumnName & " 主键的定义删除时出错，原因" & Err.Description & "请手工修改该字段属性。")
            Err.Clear()
            DelPRIMARYKEY = False
        Else
            DelPRIMARYKEY = True
        End If
    End Function    
    '检查主键是否存在，返回该表的主键名
    Function GetPrimaryKey(TableName)
        on error Resume Next
        Dim RsPrimary
        GetPrimaryKey = ""
        Set RsPrimary = RLConn.OpenSchema(28,Array(Empty,Empty,TableName))
        If Not RsPrimary.Eof Then GetPrimaryKey = RsPrimary("COLUMN_NAME")
        Set RsPrimary = Nothing