解决了几乎所有Delphi+Access同仁的问题—动态创建、压缩Access数据库(*.MDB) (转)...

解决了几乎所有Delphi+Access同仁的问题—动态创建、压缩Access数据库(*.MDB) (转)[@more@]

动态创建、压缩Access数据库(*.Mdb)

  声明：这是前无古人，后无来者的解决方案(有点吹，但是我实在太激动了！)，希望各位能多多关照
创建Access数据库几乎是所有Delphi+Access所遇到的难题，我经过两头(昨天上午到现在)的艰苦奋战，终于将它全部解开，现在一一奉献给大家：

一、通过OLE方式创建
  相信各位都用通过OLE方式访问word、excel文件的经历，具体我不说太多，直接把具体代码写出来就完了
  在引用部分加入：
  uses ComObj;
  实现部分：
  procedure TFormOffice.BitBtn1Click(Sender: Tobject);
  var
  CreateAccess:OleVariant;
  begin
  CreateAccess:=CreateOleObject('ADOX.Catalog');
  CreateAccess.Create('Provider=microsoft.Jet.OLEDB.4.0;Data source=c:Aceco.mdb');
  end;

  说明：
  1、在C:下创建Aceco.mdb；
  2、是Access2000格式，用Access97打不开；
  3、系统需安装MDAC，这是好消息，客户不需安装Access也可以

二、通过DBEngine创建
  这才是关键中的关键，是我一定要写出来的原因！
  各位是否还记得安装Delphi的时候，如果你选择自定义安装(我一般用Delphi写控件，所以当然是越小越好)，会有很多安装选项，让你选择Access97或Access2000，还有MDAC等，问题就在这里！Delphi5.0中早就封装了现成的类，只是大家都没有注意而已它位于：
  $Delphi5Imports
  目录下！
  其中有DAO97.DCU文件，它是通过DAO350.DLL来完成的，其中的定义部分和DAO350.DLL如出一辙！OK，到现在，所有的一切都明白了(可惜我花了一天时间！)。那么具体实现起来就太方便了，具体过程如下：
  在引用部分加入：
  uses DAO97;
  实现部分：
  procedure TFormOffice.BitBtn4Click(Sender: TObject);
  var
  Engine:DBEngine;
  begin
  Engine:=CoDBEngine.Create;
  Engine.CreateDatabase('c:NewAccess.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);
  end;

  说明：
  1、在C:下创建NewAccess.mdb；
  2、语言国家是简体中文；
  3、压缩整理数据库用Engine.CompactDatabase('c:invoice.mdb','c:God.mdb','',0,'');就是将c:invoice.mdb压缩整理成c:God.mdb，剩下的只是将c:invoice.mdb删除(DeleteFile('c:invoice.mdb');)，然后将c:God.mdb重新命名(RenameFile('c:God.mdb','c:invoice.mdb');)即可。

三、通过Access97创建，然后拷贝
四、通过ODBC的api函数创建

补充：
  1、通过OLE方式创建时如果是Access97，那么可能是CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.3.5.1;Data Source=c:Aceco.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--&gtHank(Mailto:starfarm@263.NET">starfarm@263.net)
  2000/12/29

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10790690/viewspace-951654/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10790690/viewspace-951654/