用Delphi压缩Access数据库

procedure CompactMdbDatabase(srcDbname,dstDbname,oldpwd,newpwd:string;bAccess97:boolean=true);

var idbEngine:_dbEngine;

begin

if oldpwd <>'' then oldpwd := ';pwd='+oldpwd;

if newpwd <>'' then newpwd := ';pwd='+newpwd;



if bAccess97 then

begin

idbengine := CreateComObject(dao97.CLASS_DBEngine) as _DBEngine;

idbEngine.CompactDatabase(srcDbname,dstDbname,newpwd,dbVersion30,oldpwd);

end else

begin

idbengine := CreateComObject(dao2000.CLASS_DBEngine) as _DBEngine;

idbEngine.CompactDatabase(srcDbname,dstDbname,newpwd,dbVersion40,oldpwd);

end;

end;

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 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、付费专栏及课程。

余额充值