国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 學(xué)院 > 開(kāi)發(fā)設(shè)計(jì) > 正文

用ADO壓縮Access2000庫(kù)

2019-11-17 05:31:15
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友

　　#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對(duì)象    
}  

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

         String  f2="yhecdagl2.mdb";          //  新目的庫(kù)2  
         String  psw2="yhecdagl2";              //  新密碼2  

         String  dir=ExtractFilePath(application->ExeName);  
         if  (FileExists(f2))  
                 DeleteFile(f2);  

         CompactDatabase(dir+f1,psw1,dir+f2,psw2);  
         ShowMessage("Finished");  
}

發(fā)表評(píng)論 共有條評(píng)論
用戶(hù)名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 九台市| 屏边| 日照市| 临高县| 理塘县| 清流县| 油尖旺区| 灵寿县| 平顺县| 桐乡市| 镇雄县| 翼城县| 临安市| 界首市| 诸城市| 宁南县| 永城市| 纳雍县| 上蔡县| 绥中县| 临城县| 赫章县| 迭部县| 武冈市| 南丰县| 梁河县| 和顺县| 东兰县| 静安区| 新乡县| 新干县| 罗山县| 竹山县| 宿松县| 义乌市| 富民县| 新巴尔虎左旗| 楚雄市| 通江县| 太谷县| 彰武县|