DELPHI 压缩ACCESS数据库
2019-04-26 16:58
1261 查看
[code]unit data_mouble; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB, Data.Win.ADODB, DAO2000; type TDataModule1 = class(TDataModule) con_DB: TADOConnection; procedure DataModuleCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var DataModule1: TDataModule1; implementation {%CLASSGROUP 'Vcl.Controls.TControl'} {$R *.dfm} procedure TDataModule1.DataModuleCreate(Sender: TObject); var condbstr: string; Engine: DBEngine; begin Engine := CoDBEngine.Create; Engine.CompactDatabase(ExtractFilePath(Application.ExeName) + 'db1.mdb', ExtractFilePath(Application.ExeName) + 'db1.temp', '', 0, ''); sleep(1000); if DeleteFile(ExtractFilePath(Application.ExeName) + 'db1.mdb') then // 删除文件"dbName" RenameFile(ExtractFilePath(Application.ExeName) + 'db1.temp', ExtractFilePath(Application.ExeName) + 'db1.mdb'); sleep(2000);
相关文章推荐
- Delphi修改Access密码,压缩与修复,建立Access数据库文件
- Delphi修改Access密码,压缩与修复,建立Access数据库文件
- 使用Delphi压缩Access
- delphi 如何连接 数据库ACCESS
- 实现压缩access(*.mdb)数据库的方法
- 使用Delphi压缩Access
- 用程序实现压缩access(*.mdb)数据库的方法
- 解决了几乎所有Delphi+Access同仁的问题—动态创建、压缩Access数据库(*.MDB)
- delphi数据库中 binary 变量使用 access 存储
- DELPHI 创建、压缩ACCESS
- Delphi PostgreSQL数据库访问控件PostgreSQL Data Access Components控件介绍及下载
- delphi中操作access 数据库 Insert,Update的一些情况
- C# 压缩 Access 数据库
- delphi 数据库之不用数据源 以access为例(其他未试过) 推荐
- 用程序实现压缩access(*.mdb)数据库的方法.
- delphi 对 access 数据库的操作如何完成?
- DELPHI中操作ACCESS数据库
- 创建 Access 数据库 mdb 数据库(delphi)
- [置顶] C#连接access和Excel(以数据库的形式)[附驱动资源]
- Delphi中用ADO控件连接数据库例子