在线管理数据库 类(3)

    Public Sub upColumn(ByVal TableName, ByVal ColumnName, ByVal ValueText,ByVal WhereStr)
        On Error Resume Next
        If WhereStr <> ""  Then
            If InStr(WhereStr,"Where ")<=0 Then
                WhereStr = "Where " & WhereStr
            End if
        Else
            WhereStr = ""
        End if
        RLConn.Execute("update " & TableName & " set " & ColumnName & "=" & ValueText & " " & WhereStr)
        If Err.Number <> 0 Then
            Call ErrMsg("错误提示：" & Err.Description)
            Err.Clear()
        End If

    End Sub

    '执行SQL语句
    Public Sub Execute(StrSql)
        Set RsCount=Server.CreateObject("ADODB.RecordSet")
        On Error Resume Next
        RsCount = RLConn.Execute(StrSql)
        If Left(StrSql,12) = "Select Count" Then    Count = RsCount(0)
        If Err.Number <> 0 Then
            Call ErrMsg("错误提示：" & Err.Description)
            Err.Clear()
        End If
        RsCount.Close
        Set RsCount = Nothing
    End Sub
'---------------------------------------索引(Index),视图（View）,主键操作-----------------------------------------------
    '添加字段索引
    Public Function AddIndex(ByVal TableName, ByVal IndexName, ByVal ValueText)