delphi中能否调用access的“压缩和修复数据库”功能？？

Question

因为在access中经常会对数据进行增删，而该access表要拷贝于磁盘，因此access的大小比较重要。

Answer 1

procedure TForm1.btnCompactDBClick(Sender:TObject);　　 var　　 JetEngine:IJetEngine;　　 strTagCon:string;// 目标数据库连接字符串 　　 strSourceCon:string;// 源数据库连接字符串 　　 begin　　 JetEngine:=CoJetEngine.Create;　　 strSourceCon:=　　 'Provider=Microsoft.Jet.OleDB.4.0;'　　 +'Data Source=d:\ComTest\myDb.mdb;'　　 +'Jet OLEDB:Engine Type=5;'　　 +'Locale Identifier=0x0804;'　　 +'Jet OLEDB:Database Password=mypwd';　　 strTagCon:=　　 'Provider=Microsoft.Jet.OleDB.4.0;'　　 +'Data Source=d:\ComTest\myDb1.mdb;'　　 +'Jet OLEDB:Engine Type=5;'　　 +'Locale Identifier=0x0804;'　　 +'Jet OLEDB:Database Password=mypwd';　　 // 可以以此改变数据库密码 　　 JetEngine.Compact Database(str Source Con,str TagCon);　　 end;

Answer 2

IJetEngine是？？？
使用时：Undeclared identifier: 'IJetEngine'

Answer 3

动态创建、压缩Access数据库(*.MDB) 
声明：这是前无古人，后无来者的解决方案(有点吹，但是我实在太激动了！)，希望各位能多多关照创建Access数据库几乎是所有Delphi+Access所遇到的难题，我经过两头(昨天上午到现在)的艰苦奋战，终于将它全部解开，现在一一奉献给大家：一、通过OLE方式创建相信各位都用通过OLE方式访问Word、Excel文件的经历，具体我不说太多，直接把具体代码写出来就完了在引用部分加入：uses ComObj;实现部分：procedure TFormOffice.BitBtn1Click(Sender: TObject);varCreateAccess:OleVariant;beginCreateAccess:=CreateOleObject('ADOX.Catalog');CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:.mdb');end;说明：1、在C:\u19979下创建Aceco.mdb；2、是Access2000格式，用Access97打不开；3、系统需安装MDAC，这是好消息，客户不需安装Access也可以二、通过DBEngine创建这才是关键中的关键，是我一定要写出来的原因！各位是否还记得安装Delphi的时候，如果你选择自定义安装(我一般用Delphi写控件，所以当然是越小越好)，会有很多安装选项，让你选择Access97或Access2000，还有MDAC等，问题就在这里！Delphi5.0中早就封装了现成的类，只是大家都没有注意而已它位于：$Delphi5目录下！其中有DAO97.DCU文件，它是通过DAO350.DLL来完成的，其中的定义部分和DAO350.DLL如出一辙！OK，到现在，所有的一切都明白了(可惜我花了一天时间！)。那么具体实现起来就太方便了，具体过程如下：在引用部分加入：uses DAO97;实现部分：procedure TFormOffice.BitBtn4Click(Sender: TObject);varEngine:DBEngine;beginEngine:=CoDBEngine.Create;Engine.CreateDatabase('c:.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);end;说明：1、在C:\u19979下创建NewAccess.mdb；2、语言国家是简体中文；3、压缩整理数据库用Engine.CompactDatabase('c:.mdb','c:.mdb','',0,'');就是将c:.mdb压缩整理成c:.mdb，剩下的只是将c:.mdb删除(DeleteFile('c:.mdb');)，然后将c:.mdb重新命名(RenameFile('c:.mdb','c:.mdb');)即可。三、通过Access97创建，然后拷贝四、通过ODBC的API函数创建补充：1、通过OLE方式创建时如果是Access97，那么可能是CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.3.5.1;Data Source=c:.mdb');，嘿嘿，小弟对VB实在是一窍不通，还望各位再测试一下(可以需要MDAC比较低的版本)。2、关于CreateDatabase中国家的设置：Module LanguageConstants; // DAO predefined constants.dbLangArabic = ;LANGID=0x0401;CP=1256;COUNTRY=0;dbLangCzech = ;LANGID=0x0405;CP=1250;COUNTRY=0;dbLangDutch = ;LANGID=0x0413;CP=1252;COUNTRY=0;dbLangGeneral = ;LANGID=0x0409;CP=1252;COUNTRY=0;dbLangGreek = ;LANGID=0x0408;CP=1253;COUNTRY=0;dbLangHebrew = ;LANGID=0x040D;CP=1255;COUNTRY=0;dbLangHungarian = ;LANGID=0x040E;CP=1250;COUNTRY=0;dbLangIcelandic = ;LANGID=0x040F;CP=1252;COUNTRY=0;dbLangNordic = ;LANGID=0x041D;CP=1252;COUNTRY=0;dbLangNorwDan = ;LANGID=0x0414;CP=1252;COUNTRY=0;dbLangPolish = ;LANGID=0x0415;CP=1250;COUNTRY=0;dbLangCyrillic = ;LANGID=0x0419;CP=1251;COUNTRY=0;dbLangSpanish = ;LANGID=0x040A;CP=1252;COUNTRY=0;dbLangSwedFin = ;LANGID=0x040B;CP=1252;COUNTRY=0;dbLangTurkish = ;LANGID=0x041F;CP=1254;COUNTRY=0;dbLangJapanese = ;LANGID=0x0411;CP=932;COUNTRY=0;dbLangChineseSimplified = ;LANGID=0x0804;CP=936;COUNTRY=0;dbLangChineseTraditional = ;LANGID=0x0404;CP=950;COUNTRY=0;dbLangKorean = ;LANGID=0x0412;CP=949;COUNTRY=0;dbLangThai = ;LANGID=0x041E;CP=874;COUNTRY=0;dbLangSlovenian = ;LANGID=0x0424;CP=1250;COUNTRY=0;3、关于CreateDatabase中数据库版本信息Enum DatabaseTypeEnum;dbVersion10 = 1;dbEncrypt = 2;dbDecrypt = 4;dbVersion11 = 8;dbVersion20 = 16;dbVersion30 = 32;4、其它方面，希望各位再加补充。　StarFarm-->Hank2000/12/29