| 本月文章推荐 |
用ADO压缩Access2000库发表日期：2008-3-8
|
|
#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"); } |
| 上一篇：用API函数实现串行通讯
人气:759 下一篇：学数学也要学点偷懒的技术(二） 人气:476 |
| 浏览全部C/C++的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
