编程论坛 » VB6论坛 » 跪求压缩数据、备份数据源代码

luojia86 发表于 2008-5-28 21:44

跪求压缩数据、备份数据源代码

我做了 一个管理系统，但其中的压缩数据和备份数据的模块还没做。还求大家赐教

multiple1902 发表于 2008-5-28 22:04

Function CompactDB
        ' 修改自Dvbbs 7.1.0 SQL  Admin\Data.asp
        Dim fso, Engine, strDBPath,JET_3X
        strDBPath = left(Server.MapPath(SqlDatabase),instrrev(Server.MapPath(SqlDatabase),"\"))
        Set fso = CreateObject("Scripting.FileSystemObject")
       
        If fso.FileExists(Server.MapPath(SqlDatabase)) Then
                fso.CopyFile Server.MapPath(SqlDatabase),strDBPath & "temp.mdb"
                Set Engine = CreateObject("JRO.JetEngine")
       
                Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _
                        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb"
       
        fso.CopyFile strDBPath & "temp1.mdb",Server.MapPath(SqlDatabase)
        fso.DeleteFile strDBPath & "temp.mdb"
        fso.DeleteFile strDBPath & "temp1.mdb"
        Set fso = nothing
        Set Engine = nothing
       
                CompactDB = "你的数据库, " & SqlDatabase & ", 已经压缩成功!" & vbCrLf
       
        Else
                CompactDB = "数据库名称或路径不正确. 请重试!" & vbCrLf
        End If
       
        End Function

备份可以认为是复制文件。

你也不说是Access数据库还是sqlserver还是oracle，怎么给你解决问题？

三断笛 发表于 2008-5-29 02:27

ACCESS压缩可以用DAO,JRO
SQL和Oracle压缩有SQL语句

备分的话,ACCESS直接把数据库文件复制到专用备份文件夹吧,这样只能进行完全备份
SQL和Oracle可以用SQL语句按需要进行完全/差异备份

查看完整版本: 跪求压缩数据、备份数据源代码