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

动态创建、压缩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(starfarm@263.net)
         2000/12/29

  • 2
    点赞
  • 5
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi中连接Microsoft Access数据库,你可以使用ADO(ActiveX Data Objects)组件来实现。以下是连接Access数据库的步骤: 1. 添加组件:打开Delphi的工具箱,找到ADO组件,并将TADOConnection组件拖放到窗体上。 2. 配置连接参数:在Object Inspector中选择TADOConnection组件,设置ConnectionString属性为Access数据库文件的路径。例如,可以设置为: ```delphi ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb'; ``` 3. 建立连接:在需要建立数据库连接的地方(如按钮的OnClick事件),添加以下代码: ```delphi ADOConnection1.Connected := True; ``` 4. 执行查询和操作:使用其他的ADO组件(如TADOQuery)来执行SQL查询和操作。配置查询组件的SQL语句,并通过调用Execute方法来执行查询。 ```delphi ADOQuery1.SQL.Text := 'SELECT * FROM TableName'; ADOQuery1.Open; ``` 5. 处理结果:根据查询组件的型,你可以通过遍历记录集(如TADOQuery)来处理查询结果。 ```delphi while not ADOQuery1.Eof do begin // 处理记录集中的数据 ADOQuery1.Next; end; ``` 6. 关闭连接:在释放资源时,确保关闭数据库连接。例如,在窗体的OnClose事件中添加以下代码: ```delphi ADOConnection1.Connected := False; ``` 通过以上步骤,你可以成功连接到Microsoft Access数据库,并执行查询和操作。确保根据你的具体情况进行适当的配置和代码编写。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值