|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
创建Access数据库几乎是所有Delphi+Access所遇到的难题，我经过两头(昨天上午到现在)的艰苦奋战，终于将它全部解开，现在一一奉献给大家：hSRLinux联盟
一、通过OLE方式创建hSRLinux联盟
相信各位都用通过OLE方式访问Word、Excel文件的经历，具体我不说太多，直接把具体代码写出来就完了hSRLinux联盟
在引用部分加入：hSRLinux联盟
hSRLinux联盟
实现部分：hSRLinux联盟
hSRLinux联盟
procedure TFormOffice.BitBtn1Click(Sender: TObject);hSRLinux联盟
varhSRLinux联盟
CreateAccess:OleVariant;hSRLinux联盟
beginhSRLinux联盟
CreateAccess:=CreateOleObject('ADOX.Catalog');hSRLinux联盟
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Aceco.mdb');hSRLinux联盟
end; |
说明：hSRLinux联盟
1、在C:\下创建Aceco.mdb；hSRLinux联盟
2、是Access2000格式，用Access97打不开；hSRLinux联盟
3、系统需安装MDAC，这是好消息，客户不需安装Access也可以hSRLinux联盟
二、通过DBEngine创建hSRLinux联盟
这才是关键中的关键，是我一定要写出来的原因！hSRLinux联盟
各位是否还记得安装Delphi的时候，如果你选择自定义安装(我一般用Delphi写控件，所以当然是越小越好)，会有很多安装选项，让你选择Access97或Access2000，还有MDAC等，问题就在这里！Delphi5.0中早就封装了现成的类，只是大家都没有注意而已它位于：hSRLinux联盟
$Delphi5\ImportshSRLinux联盟
目录下！hSRLinux联盟
其中有DAO97.DCU文件，它是通过DAO350.DLL来完成的，其中的定义部分和DAO350.DLL如出一辙！OK，到现在，所有的一切都明白了(可惜我花了一天时间！)。那么具体实现起来就太方便了，具体过程如下：hSRLinux联盟
在引用部分加入：hSRLinux联盟
hSRLinux联盟
实现部分：hSRLinux联盟
hSRLinux联盟
procedure TFormOffice.BitBtn4Click(Sender: TObject);hSRLinux联盟
varhSRLinux联盟
Engine:DBEngine;hSRLinux联盟
beginhSRLinux联盟
Engine:=CoDBEngine.Create;hSRLinux联盟
Engine.CreateDatabase('c:\NewAccess.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);hSRLinux联盟
end; |
说明：hSRLinux联盟
1、在C:\下创建NewAccess.mdb；hSRLinux联盟
2、语言国家是简体中文；hSRLinux联盟
3、压缩整理数据库用hSRLinux联盟
Engine.CompactDatabase('c:\invoice.mdb','c:\God.mdb','',0,''); |
三、通过Access97创建，然后拷贝hSRLinux联盟
四、通过ODBC的API函数创建hSRLinux联盟
补充：hSRLinux联盟
1、通过OLE方式创建时如果是Access97，那么可能是CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.3.5.1;Data Source=c:\Aceco.mdb');，嘿嘿，小弟对VB实在是一窍不通，还望各位再测试一下(可以需要MDAC比较低的版本)。hSRLinux联盟
2、关于CreateDatabase中国家的设置：hSRLinux联盟
hSRLinux联盟
Module LanguageConstants; // DAO predefined constants.hSRLinux联盟
dbLangArabic = ;LANGID=0x0401;CP=1256;COUNTRY=0;hSRLinux联盟
dbLangCzech = ;LANGID=0x0405;CP=1250;COUNTRY=0;hSRLinux联盟
dbLangDutch = ;LANGID=0x0413;CP=1252;COUNTRY=0;hSRLinux联盟
dbLangGeneral = ;LANGID=0x0409;CP=1252;COUNTRY=0;hSRLinux联盟
dbLangGreek = ;LANGID=0x0408;CP=1253;COUNTRY=0;hSRLinux联盟
dbLangHebrew = ;LANGID=0x040D;CP=1255;COUNTRY=0;hSRLinux联盟
dbLangHungarian = ;LANGID=0x040E;CP=1250;COUNTRY=0;hSRLinux联盟
dbLangIcelandic = ;LANGID=0x040F;CP=1252;COUNTRY=0;hSRLinux联盟
dbLangNordic = ;LANGID=0x041D;CP=1252;COUNTRY=0;hSRLinux联盟
dbLangNorwDan = ;LANGID=0x0414;CP=1252;COUNTRY=0;hSRLinux联盟
dbLangPolish = ;LANGID=0x0415;CP=1250;COUNTRY=0;hSRLinux联盟
dbLangCyrillic = ;LANGID=0x0419;CP=1251;COUNTRY=0;hSRLinux联盟
dbLangSpanish = ;LANGID=0x040A;CP=1252;COUNTRY=0;hSRLinux联盟
dbLangSwedFin = ;LANGID=0x040B;CP=1252;COUNTRY=0;hSRLinux联盟
dbLangTurkish = ;LANGID=0x041F;CP=1254;COUNTRY=0;hSRLinux联盟
dbLangJapanese = ;LANGID=0x0411;CP=932;COUNTRY=0;hSRLinux联盟
dbLangChineseSimplified = ;LANGID=0x0804;CP=936;COUNTRY=0;hSRLinux联盟
dbLangChineseTraditional = ;LANGID=0x0404;CP=950;COUNTRY=0;hSRLinux联盟
dbLangKorean = ;LANGID=0x0412;CP=949;COUNTRY=0;hSRLinux联盟
dbLangThai = ;LANGID=0x041E;CP=874;COUNTRY=0;hSRLinux联盟
dbLangSlovenian = ;LANGID=0x0424;CP=1250;COUNTRY=0; |
3、关于CreateDatabase中数据库版本信息hSRLinux联盟
hSRLinux联盟
Enum DatabaseTypeEnum;hSRLinux联盟
dbVersion10 = 1;hSRLinux联盟
dbEncrypt = 2;hSRLinux联盟
dbDecrypt = 4;hSRLinux联盟
dbVersion11 = 8;hSRLinux联盟
dbVersion20 = 16;hSRLinux联盟
dbVersion30 = 32; |
4、其它方面，希望各位再加补充。hSRLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
|
|
|
|
