在线管理数据库 类(4)

        On Error Resume Next
        RLConn.Execute("CREATE INDEX " & IndexName & " ON [" & TableName & "]([" & ValueText & "])")
        If Err.Number <> 0 Then
            Call ErrMsg ("在 " & TableName & " 表新建" & IndexName & "索引错误，原因" &  Err.Description & "请手工修改该索引。")
            Err.Clear()
            AddIndex = False
        Else
            AddIndex = True
        End If
    End Function

    '删除表索引
    Public Function DelIndex(ByVal TableName, ByVal IndexName)
        On Error Resume Next
        RLConn.Execute("drop空格INDEX [" & TableName & "]." & IndexName)
        If Err.Number <> 0 Then
            Call ErrMsg ("在 " & TableName & " 表删除" & IndexName & "索引错误，原因" &  Err.Description & "请手工删除该索引。")
            Err.Clear()
            DelIndex = False
        Else
            DelIndex = True
        End If
    End Function    
    '更改表TableName的定义把字段ColumnName设为主键
    Public Function AddPRIMARYKEY(ByVal TableName, ByVal ColumnName)
        On Error Resume Next
        TableName = Replace(Replace(TableName,"[",""),"]","")
        RLConn.Execute("ALTER TABLE "& TableName & " ADD CONSTRAINT PK_"&TableName&" PRIMARY KEY (" & ColumnName & ")")