动态创建ACCESS数据库的问题 找进销存数据库设计
===========================
unit Uaccess;
interface
uses
Windows,DAO97;//添加DAO97
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Engine:DBEngine;
begin
Engine:=CoDBEngine.Create;
Engine.CreateDatabase(＇＇c:＼NewAccess.mdb＇＇,＇＇LANGID=0x0804;CP=936;COUNTRY=0;＇＇,dbEncrypt);
end;
end.
===========================
结果出现错误：“没有注册类别”！
怎样解决这个问题？
2楼: 一、通过OLE方式创建
在引用部分加入：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; 如进销存管理软件下载
3楼: 在单元初始化中加入注册方法. 具体忘了.你搜一下. 很多地方有.
4楼: 好贴,我收了
5楼: to QuickSilver
>>>3、系统需安装MDAC，这是好消息，客户不需安装Access也可以
那里有MDAC？ 在“ $Delphi5＼Imports 目录下！”吗？
很仔细呀！我试试。先谢了！
to duhai_lee
>>>在单元初始化中加入注册方法. 具体忘了.你搜一下. 很多地方有.
“注册方法”。怎么做？那我就先搜一搜。谢谢了！
6楼: 上面的方法我用过, 我的程序发布的用户较多, 但是出现过几个用户的系统中创建失败的情况, mdac,病毒,等等原因我检查过没发现问题, 不得不改为程序携带一个模版文件,需要创建时复制一个, 需要修改是直接用sql语句进行修改, 通用性问题,才算解决.
销售管理软件版7楼: 补充,我原用过的是通过OLE方式创建方式
8楼: 帮顶！
╭=========================================╮
80G海量源代码,控件，书籍全免费狂下不停！
http://www.source520.com
╰=========================================╯
9楼: to shangshang
我想问问你：
1、是动态创建好；还是作一个模板，用的时候再复制？
2、为什么这样作？
谢谢了！
10楼: 我上面说过, 用复制模版的方法来创建,用sql语句来修改结构,要比纯粹使用adox或dao 等的api创建 要通用, 因为复制文件通常不会失败的. 当然用api绝大部分情况下也没问题. 但我之所以提出建议, 是因为我一个月前刚碰到这样的问题,百思不得其解, 又不能要求客户重装机器, 所以就用复制方法了.
11楼: to shangshang
你的这个思路建议，我觉得很好。因为出了问题，所以，才要想一个对策。很好。我准备采用你的这个策略。要说嘛！经验很重要。
12楼: [:D][8D][^] 如进销存数据库设计
13楼: 学习!.........
销售管理软件版14楼: 路过的发表一下看法。。。
15楼: 多人接受答案了。
联系我们
