用ADO压缩Access2000库-mysql教程-PHP中文网

用ADO压缩Access2000库

php中文网

发布： 2016-06-07 15:50:03

原创

1589人浏览过

c++3b6e5e9ef03fc8189c8d3848d>欢迎进入C/C++编程社区论坛，与200万技术人员互动交流 >>进入 #include "utilcls.h" void CompactDatabase(String f1,String psw1, String f2,String psw2) { String Provider1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + f1 + ";Jet OLEDB:Databas

欢迎进入c/c++编程社区论坛，与200万技术人员互动交流 >>进入

　　#include "utilcls.h"

    void CompactDatabase(String f1,String psw1, String f2,String psw2)
    {
           String Provider1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
                   + f1 + ";Jet OLEDB:Database PassWord=" + psw1;
           String Provider2="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
                   + f2 + ";Jet OLEDB:Database Password=" + psw2;

           Variant Adoobj=Variant::CreateObject("JRO.JetEngine");
           Adoobj.OleProcedure("CompactDatabase",Provider1,Provider2);
           AdoObj.Clear( );      // 释放 ADO对象
    }

    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
             String f1="yhecdagl1.mdb";          // 源库1
    String psw1="yhecdagl";                // 密码1

I-Shop购物系统

部分功能简介：商品收藏夹功能热门商品最新商品分级价格功能自选风格打印结算页面内部短信箱商品评论增加上一商品，下一商品功能增强商家提示功能友情链接用户在线统计用户来访统计用户来访信息用户积分功能广告设置用户组分类邮件系统后台实现更新用户数据系统图片设置模板管理CSS风格管理申诉内容过滤功能用户注册过滤特征字符IP库管理及来访限制及管理压缩，恢复，备份数据库功能上传文件管理商品类别管理商品添加/修改/

查看详情

String f2="yhecdagl2.mdb"; // 新目的库2
String psw2="yhecdagl2"; // 新密码2

             String dir=ExtractFilePath(Application->ExeName);
             if (FileExists(f2))
                     DeleteFile(f2);
             CompactDatabase(dir+f1,psw1,dir+f2,psw2);
             ShowMessage("Finished");
    }

用ADO压缩Access2000库