如何压缩acce97(Ado)?(200分)

ado+access97
我用的公用数据模块，通过一个adoconnect连接所有的表及查询。
我用create加compacdata执行时，老是提示数据库正在被使用.改个库名，马上
可以了！不知ado如何断开？用connectd=false, 等等都不能断开，
好象程序一创建运行，ado就连上了!

你ADOConnect。Close呢？

或者你把那些Table，Query也关闭了，再看看。。。[]

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
Dao: OLEVariant;
SourceDb, CompactDb, TmpDb: string;
begin
SourceDb := 'd:/aaaaaaaa/db1.mdb';
CompactDb := 'd:/aaaaaaaa/aaaa.mdb';
TmpDb := 'd:/aaaaaaaa/' + FormatDateTime('yyyy-mm-dd', Now) + '.mdb';
ADOConnection1.Connected := False;
Dao := CreateOleObject('DAO.DBEngine.35');
Dao.CompactDatabase(sourcedb, compactdb);
end;

是用DAO来压维，一向是用它来作的，一定要保证独占数据库。

请参考
http://www.delphibbs.com/delphibbs/dispq.asp?lid=402859

摘抄的

动态创建、压缩Access数据库
声明：这是前无古人，后无来者的解决方案(有点吹，但是我实在太激动了！)，希望各位能多多关照
创建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
EngineBEngine;
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;


如何自动LOGIN数据库

在Delphi中，有Database元件和对象，Database对象有属
性arams和LoginPrompt，充分使用这两个属性就会自动Login数据
库。下面的例程就会自动Login。
例：新建一程序(Project),在Form上放置
Table,Database,DataSource,DBGrid各一个，并通过Object
Inspector将DBGrid的DataSource指向DataSource，DataSource的
DataSet指向Table。双击Form，进入Form1的Create事件程序代码编
辑，输入：

Database1.Connected:=False;
Database1.Params.Values['USERNAME']:='SYSDBA';
Database1.Params.Values['PASSWORD']:='masterkey';
Database1.LoginPrompt:=False;
Database1.DatabaseName:='MYDB'; //MYDB是数据库别名。
Database1.AliasName可以不设
Table1.DatabaseName:='MYDB';
Table1.TableName:='EMPLOYEE';
Table1.Open;

运行程序(Run, F9)则可以自动Login Interbase，将数据表中
的数据显示在DBGrid中。 对于不需要用户名和密码的ODBC驱动，可
以设置USERNAME和PASSWORD为空。

ADOConnection1.Connected := False;

ADOConnection1.Connected := False;
不行！！

哈哈，我猜到了你出问题的原因了，以下是我的代码，知道你为什么出问题了吗？
其实，你的代码估计也没有错误，只是，呵呵，在编辑器里面运行的！
编辑器里面的AdoConnection也设置成了True！此时Delphi也占有着这个数据库呢！
所以你执行关闭的时候，仅仅是关闭了你程序的联机，而没有关闭Delphi打开的那个连接。
所以Bug出来了。
使用Connected:=FAlse也没问题。

uses comobj;

procedure TForm1.Button2Click(Sender: TObject);
var
Dest_DB_Connection: OleVariant;
l_Source_Con_Str, l_Dest_Con_Str: string;
begin
ADOConnection1.Close;

try
Dest_DB_Connection := CreateOleObject('JRO.JetEngine');
except
Exit;
end;

l_Source_Con_Str := 'Data Source=C:/1.mdb;';

l_Dest_Con_Str := 'Data Source=C:/2.mdb;';

try
OleCheck(Dest_DB_Connection.CompactDatabase(l_Source_Con_Str, l_Dest_Con_Str));
except
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with AdoQuery1 do
begin
Close;
SQL.Text := 'Select * from table1';
Open;
end;
end;

end.

多人接受答案了。