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

时间:2010-01-31 10:01:00  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:具体代码写出来就完了   在引用部分加入:   uses ComObj;   实现部分:
  正文:创建Access数据库几乎是所有Delphi+Access所遇到的难题,我经过两头(昨天上午到现在)的艰苦奋战,终于将它全部解开,现在一一奉献给大家:
  一、通过OLE方式创建
   相信各位都用通过OLE方式访问word、Excel文件的经历,具体我不说太多,直接把具体代码写出来就完了
   在引用部分加入:

   uses ComObj;

   实现部分:

   procedure TFormoffice/ target=_blank class=infotextkey>Office.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中国家的设置:

动态创建、压缩Access数据库(*.MDB)》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12682.html


关键字:

关于《动态创建、压缩Access数据库(*.MDB)》文章的评论


   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;
站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td