Delphi7 中无法关闭Access连接的问题

原创 2006年06月22日 11:57:00

今天作了个Access数据库压缩的功能,发现在自己的程序中由于无法断开联接,而执行不了压缩函数的操作,后来研究后,找到了最终的解决办法:

我用了MDI窗体,有一个主窗体,上面有一个AdoCoonection组件,我设置了联接状态为True;在压缩代码哪里,我首先关闭了联接,用了代码 adoCoon.Connected := false;发现无法断开联接,Access那个临时文件还是存在;仔细研究了后,把adoCoon组件的连接设置为false,然在窗体创建代码里面加入

 

procedure TfrmMain.FormCreate(Sender: TObject);
begin
     adoCoon.Connected := true;
end;

这样,程序就可以正常进行Access压缩操作了!

在使用MS Access 2003的过程中,我们发现随着时间的推移,由于Access会给数据库自动保留一份副本集,这样造成了数据库占用的空间越来越大。如果在Access环境中,我们可以通过点选菜单(工具-数据库实用工具-压缩和修复数据库),来将Access数据库压缩。那么通过Delphi能不能压缩和修复Access数据库呢?答案是肯定的。利用下面的这个函数,成功的实现了实现这个功能。代码如下:

Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean;
const
  sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
var
  oJetEng : JetEngine;
begin
  sOldMDB := sProvider + 'Data Source=' + sOldMDB;
  sNewMDB := sProvider + 'Data Source=' + sNewMDB;

    try
      oJetEng := CoJetEngine.Create;
      oJetEng.CompactDatabase(sOldMDB, sNewMDB);
      oJetEng := Nil;
      Result  := True;
    except
      oJetEng := Nil;
      Result  := False;
    end;
    
end;

使用该函数的例子如下:

if CompactAndRepair('d:/db/Old.mdb', 'd:/db/New.mdb') then
   ShowMessage('操作成功')
else
   ShowMessage('操作失败');


应注意的是,在压缩和修复数据库的过程中,不能有其它的操作打开该数据库,否则操作会失败。

另外,要想上面的函数编译通过,你需要先把Microsoft Jet and Replication Objects 2.5 Library导入到Delphi中,步骤如下:

1、在Delphi集成开发环境中,点选菜单(Project-Import Type Library)。

2、在弹出的对话框中,移动滚动条,找到Microsoft Jet and Replication Objects 2.5 Library。

3、点击Install按钮。

然后把JRO_TLB单元添加到你的Delphi应用程序中的Uses单元。好了,运行程序试一下吧,数据库文件是不是小了好多呢?

--以上程序在Delphi7 Enterprise、Access2003、Windows2000 server下调试通过

Delphi使用ADO组件访问ACCESS数据入门例程

在form上添加控件 一.方法一: 1.增加一个ADOConnection控件,点击ConnectionString属性,选Use Connection string 下面的例子中...
  • qq173684423
  • qq173684423
  • 2015年04月09日 13:17
  • 2224

Delphi连接Access数据库图文教程(1)

前几天,有个网友刚开始学Delphi,想学一下Delphi连Access数据库,可是怎么都连不成功,我就答应给他做个图文教程,现在闲下来了,就来做一个教程。首先我们来确认一下所用到的环境Delphi7...
  • www1157763637qqcom
  • www1157763637qqcom
  • 2013年11月15日 22:48
  • 3319

Delphi 7中ADO控件打开Access数据库文件

delphi7中ADO控件打开Access数据库文件最近在学习delphi7编程,尽管已经这门语言已经落寞了,但是作为新手,我目前觉得delphi难度比其他的小,可能与可视化环境有关,尤其很多控件拖拖...
  • shuyaoblog
  • shuyaoblog
  • 2016年01月26日 21:45
  • 1652

delphi 7连接oracle数据库问题

ADOQuery1: Parameter 'a_id' not found问题 遇到此报错,首先要查找是否字段拼写问题或者绑定变量时确实“:”,排除这个之后再尝试以下方法。 1.Delphi ...
  • ly379616775
  • ly379616775
  • 2017年05月15日 10:12
  • 343

Delphi Access violations 问题的解决之道[转]

====================================================== 注:本文源代码点此下载 =============================...
  • javazhuanzai
  • javazhuanzai
  • 2012年01月16日 04:19
  • 237

Delphi Access violations 问题的解决

====================================================== 注:本文源代码点此下载 =============================...
  • javazhuanzai
  • javazhuanzai
  • 2012年01月29日 23:14
  • 258

Delphi 中Access的 时间日期查询问题

法1:通过Format来格式化SQL,Access中yyyy-MM-dd 型日期与其它条件混合查询,写好SQL语句的格式很重要。 //日期与其它信息混合查询 SQLStr := Forma...
  • xinzheng_wang
  • xinzheng_wang
  • 2012年09月06日 17:03
  • 4791

Win7 64bit下IIS7.5无法连接Access数据库的解决方案

  • 2014年06月27日 11:20
  • 213KB
  • 下载

delphi连接access数据库的步骤(详细教程)

前几天,有个网友刚开始学Delphi,想学一下Delphi连Access数据库,可是怎么都连不成功,我就答应给他做个图文教程,现在闲下来了,就来做一个教程。首先我们来确认一下所用到的环境Delphi7...
  • zisongjia
  • zisongjia
  • 2017年05月23日 15:16
  • 1360

delphi连接access数据库的步骤(简介)

一、放置adoconnection控件 (ADO组件板中) 1、设置name属性 :简单来说就是该控件的名字 为以后在代码中调用他用的 ,也可以不更改。 2、connectionstring属性:...
  • zisongjia
  • zisongjia
  • 2017年05月23日 15:24
  • 687
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi7 中无法关闭Access连接的问题
举报原因:
原因补充:

(最多只允许输入30个字)