在线管理数据库 类(13)

                Exit Function
            Else
                If .FileExists( AppPath() & "Temp" & strDBFileName) Then
                    ErrMsg("不知道的错误！！！")
                    .DeleteFile ( AppPath() & "Temp" & strDBFileName)
                    CompactDBFile = False
                    Exit Function
                End If
            End If
        End With

        With oJetEngine
            .CompactDatabase SourceConn, DestConn
        End With

        oFSO.DeleteFile  AppPath() & strDBFileName
        oFSO.MoveFile  AppPath() & "Temp" & strDBFileName,AppPath() & strDBFileName

        Set oFSO = Nothing
        Set oJetEngine = Nothing
        CompactDBFile = True
    End Function
End Class
Dim ManDb
Set ManDb = New RLManDBCls
'//---------连接SQL数据库--------------
'ManDb.DBType = "SQL"
'ManDb.ServerName = "TAO-KUIZU"
'ManDb.UserName = "sa"
'ManDb.Password = "123456"
'ManDb.DBPath = "hhstuss"
'ManDb.CreateTable "cexo255","id int Not Null PRIMARY KEY, Name varchar(20) Not Null"    '建立表（表名）
'ManDb.ReNameTable "cexo255","cexo2552"                                                    '表改名（旧表名，新表名）(用组件)