主　　题：我解决了几乎所有Delphi+Access同仁的问题—动态创建、压缩Access数据库(*.MDB)
作　　者：Hank
所属论坛：Delphi
问题点数：30
回复次数：13
发表时间：2000-12-29 17:19:00

 
  动态创建、压缩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中早就封装了现成的类，只是大家都没有注意而已它位于：
    $Delphi5\Imports
    目录下！
    其中有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-->Hank
        2000/12/29


回复贴子：
　回复人：halfdream(哈欠)　(2000-12-29 21:52:00)  得3分
Hank, 真不错，佩服：）

　回复人：jasonet(房客)　(2000-12-30 0:50:00)  得3分
TRY 打开数据库有没有问题？
Engine.OpenDatabase('a.mdb',0,0,0);
还有你忘了在数据库添加表，添加字段，还有字段的属性。。。。
不过您说的东西在DIAMAND等控件都做了简单处理，而且她对97/2000做了很好的处理
DAO35和DAO36（DAO350.DLL，DAO360.DLL）

　回复人：Jera()　(2000-12-30 8:53:00)  得1分
把你的15分给我 
　回复人：Hank(星星农场)　(2001-1-2 11:00:00)  得0分
各位，有什么好的补充尽管提，我想把它全部整理出来让后面的人受益 
　回复人：BCB(:))　(2001-1-2 13:40:00)  得3分
Hank辛苦了:)

　回复人：BCB(:))　(2001-1-4 10:37:00)  得10分
如果不需要有OFFICE或ACCESS的直接支持，就好!
要DAO的支持，以前是DAO3.5，现在是DAO3.6了，我觉得
DAO的发布非常麻烦，有时对方机上有DAO3.6,而ACCESS97
的数据库却要DAO3.5,而DAO350.DLL直接复制到对方机上却
无效（即使放到DAO360.DLL同样目录),而微软对DAO的支持
有放弃的迹象; 不知Hank对个问题怎样解决；
我的C++BUILDER也有Imports目录，却是空的;

　回复人：wzs(兔子)　(2001-1-4 11:29:00)  得5分
Jera是不是没N＄了，就知要N＄!hank对大家有贡献应奖赏才对，你却向他要N＄太不够哥们了吧。
我倒是觉得向CSDN班主提个建义象对大家能够无私奉献自己的经验及技术的朋友们应给他们加分或再加个功能就是能让受益者给他们送分。 
　回复人：Hank(星星农场)　(2001-1-4 13:38:00)  得0分
TO：wzs，感谢您的支持；
TO：BCB，在BCB中，它位于$Include\Vcl下，是DAO_97.h
不过上面的东西肯定需要DAO350.DLL或DAO360.DLL的支持，但是反过来，如果你是正常使用(不包括第三方控件)，怎么会不使用这两个DLL中的其一？当然，采用第三方控件可能会不需要这两个DLL，但是如果连此类问题都解决不了，采用这种控件也号无意义！
针对采用Access数据库的软件，就我目前的知识(采用第三方控件除外)，无论采用那种方式(ODBC、BDE、ADO)，都要用到DAO350.DLL或DAO360.DLL，只是很多人向当然在自己的电脑上用Win2000、Delphi5.0、Office97/Office200等，如果你的电脑只是安装了Win98/95，ODBC、DAO根本就没有！
所以要使用就要安装很多东西，我试过：
一台只是安装了Win95的电脑，要很好的使用，要安装ODBC其中的文件；安装ODBC一般是安装MDAC；要安装MDAC，必须要DCOM！当然在98下只要MDAC即可，2000下什么都不需要！但是这样依然有问题，还缺少VBAJET32.DLL等文件(如果你是用很多动态查询)，VBAJET32.DLL在MDAC中有，但似乎不行，我忘了确切是在什么中安装的了，可能是Office。
如果想一点问题没有，那么需要安装以下东西：DAO35SDK、MDAC、DCOM，当然2000中什么都不需要，如果安装了Office97/Office2000也可以，98下不需要DCOM！
你说的DAO350.DLL直接拷贝没用是因为没有修改注册表，我有单独发行的DAO350！

注明：以上所需文件均在我的个人主页上有：http://starfarm.363.net/Download/Download.htm 
　回复人：Hank(星星农场)　(2001-1-11 18:57:00)  得0分
对话式问题：
问：为什么压缩数据库(mdb)时总报错(用DAO97)？
答：有两种可能：
    1、你的数据库正在打开；
    2、你的数据库不是Access97格式的数据库

问：出现project XXX.exe raised exception class Eaccessviolation with message 'Access violation at address 00411482 in module 'XXX.exe'. read of address FFFFFFFF'
编译没有错误
答：有一句没写：
Engine:=CoDBEngine.Create;
当时文章里面没有全部写出，是不好意思，全部的应该是：
uses DAO97;

procedure TKitlyform.BitBtn5Click(Sender: TObject);
var
Engine:DBEngine;
begin
Engine:=CoDBEngine.Create;
Engine.CompactDatabase('c:\invoice.mdb','c:\God.mdb','',0,'');
DeleteFile('c:\invoice.mdb');
RenameFile('c:\God.mdb','c:\invoice.mdb');
end; 
　回复人：Hank(星星农场)　(2001-4-17 19:52:00)  得0分
如果是Access2000的用户，推荐用OLE DB方式！ 
　回复人：zhangzgweida(雏鹰)　(2001-4-17 20:37:00)  得5分
我在使用
Engine.CreateDatabase('c:\NewAccess.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);时会出现类没有注册的错误，如何解决？另外，一个Access97格式的mdb在打开时会出现'-2146456546'的错误。
（安装了winme,office2000）



　回复人：Hank(星星农场)　(2001-4-17 20:45:00)  得0分
没有安装DAO3.5(Office97包括)！
看你的C:\Program Files\Common Files\Microsoft Shared\Dao有没有DAO350.DLL文件！

评论