uses DAO97;//dao2000
实现部分:
procedure TFormOffice.BitBtn4Click(Sender: TObject);
var Engine:DBEngine;
begin
Engine:=CoDBEngine.Create;
Engine.CreateDatabase('c:/NewAccess.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);
uses DAO97;//dao2000
实现部分:
procedure TFormOffice.BitBtn4Click(Sender: TObject);
var Engine:DBEngine;
begin
Engine:=CoDBEngine.Create;
Engine.CreateDatabase('c:/NewAccess.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);