ADO链接ACCESS数据库，如何动态生成另一个相同结构的ACCESS数据库？(200分)

ACCESS数据用ADO相连，要求先动态建立一个ACCESS数据库，然后把源数据库中的全部或
部份数据导出到新生成的数据库中。

帮你提一下，我也问过相关的问题（导表结构），至今无解。

直接用copy新建另一个数据库，然后将数据库的记录清空，然后再用SQL复制需要
要的数据记录。

：） 笨办法呢，我想可以实现!

ACCESS听说用长了会坏真得吗?
每个月平均1.5万个记录
一年下来会坏吗?

楼上的，肯定会坏！！

动态创建、压缩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:/A
ceco.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;COUNTR
Y=0;',
dbEncrypt);
end;
说明：
1、在C:/下创建NewAccess.mdb；
2、语言国家是简体中文；
3、压缩整理数据库用Engine.CompactDatabase('c:/invoice.mdb','c:/God.m
db',
'',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('Provi
der
=Microsoft.Jet.OLEDB.3.5.1;Data Source=c:/Aceco.mdb');，嘿嘿，小弟对V
B实
在是一窍不通，还望各位再测试一下(可以需要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;

终于有高手出现了，可以成功生成数据库了。还有就是如何检查到当前目录已存在当前的文件？

我是这样实现的，但如果有重复数据库时会出错的，所以还要加个判断是否已经生成了这
个文件。
还有就是表的结构如何原原本本地复制过去？
IniFile := TIniFile.Create(ExtractFilePath(paramstr(0))+'myini.ini');
if IniFile.ReadString('set','set','') <> '' then
Mdir:=ExtractFilePath(paramstr(0))+'/bak/'+IniFile.ReadString('set','set','')+'('+datetostr(now())+').mdb;'
else
showmessage('公司尚未注册');
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Mdir);

对，就是这样，有高手出现了

现在检查是否存在文件已经解决了，就差，把旧的数据库的结构，复制到新的数据库了。

还望高手帮忙~~~~~

结构最好用程序自动建立

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1394288
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1268352
试试:复制数据库->清空表->压缩

问题解决了。