用ADO压缩Access2000库

核心提示：#include"utilcls.h"voidCompactDatabase(Stringf1,Stringpsw1,Stringf2,Stringpsw2){ StringPRovider1="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&qu

　　#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　

　　　　 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");　
}