除了用ADOX组件之外还有什么方法可以动态建立Access数据库? 除了用ADOX组件之外还有什么方法可以动态建立Access数据库?比如TAdoConnection之类的东西! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 动态创建、压缩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:\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 Engine:DBEngine; 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; 4、其它方面,希望各位再加补充。 用 Diamond Access v2.1把他好像是调用的dao,access的大部分功能都能实现www.51delphi.com上有用ole一个致命的弱点,必须装access如果没有一切死跷跷 在资源文件中包含一个空的Access文件,用到时设放出来不就OK了,以前就这么做过 如何转换消息Msg.time为‘2000-09-09 12:20’形式 关于数据类型的转换! 请教:OleContainer对象与数据库之间的操作,分不够再加 在DELPHI7系统下使用QREPORT报表完成如下任务!!!!!!!!! 请问如何在异构数据库之间实现数据转换的批处理(急!!!) 咨询一下:你们用什么报表? 急:DELPHI +SQLSERVER2000系统出现连接占线错误,请高手指点 纠正 需要d7的下栽地址!http的 皇后问题 200分 求:可显示JPEG格式的DBImage!!! 找到立即给分!!! 急!!! 关于StringGrid的问题
创建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
Engine:DBEngine;
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; 4、其它方面,希望各位再加补充。
他好像是调用的dao,access的大部分功能都能实现
www.51delphi.com上有用ole一个致命的弱点,必须装access如果没有一切死跷跷