给你一个DAO的离子 function TFStructor_Dispatch.CreateDB:boolean; var DBE:_DBEngine; p1:widestring; p2:olevariant; fn1:string; begin fn1:=extractfilepath(application.exename)+'Structor.mdb'; p1:=';LANGID=0x0804;CP=936;COUNTRY=0'; p2:=dbEncrypt; if FileExists(fn1)=true then begin result:=true; exit; end; try DBE:=CoDBEngine.Create; DBE.CreateDatabase(fn1,p1,p2); result:=true; except result:=false; application.MessageBox('无法创建数据库','错误',MB_OK+MB_IconError); end; end;需要导入DAO类库,并useDAO_TLB,oleserver, ComCtrls单元
给你一个DAO的离子 function TFStructor_Dispatch.CreateDB:boolean; var DBE:_DBEngine; p1:widestring; p2:olevariant; fn1:string; begin fn1:=extractfilepath(application.exename)+'Structor.mdb'; p1:=';LANGID=0x0804;CP=936;COUNTRY=0'; p2:=dbEncrypt; if FileExists(fn1)=true then begin result:=true; exit; end; try DBE:=CoDBEngine.Create; DBE.CreateDatabase(fn1,p1,p2); result:=true; except result:=false; application.MessageBox('无法创建数据库','错误',MB_OK+MB_IconError); end; end;需要导入DAO类库,并useDAO_TLB,oleserver, ComCtrls单元
Const SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;' +'Jet OLEDB:Database Password=%s;'; function CreateAccessFile(FileName:String;PassWord:string=''):boolean; //建立Access文件,如果文件存在则失败 var STempFileName:string; vCatalog:OleVariant; begin STempFileName:='c:\123.mdb'; try vCatalog:=CreateOleObject('ADOX.Catalog'); vCatalog.Create(format(SConnectionString,[STempFileName,PassWord]));
或用DAO生成找一下这样的资料
这样简单一点,
function TFStructor_Dispatch.CreateDB:boolean;
var
DBE:_DBEngine;
p1:widestring;
p2:olevariant;
fn1:string;
begin
fn1:=extractfilepath(application.exename)+'Structor.mdb';
p1:=';LANGID=0x0804;CP=936;COUNTRY=0';
p2:=dbEncrypt;
if FileExists(fn1)=true then
begin
result:=true;
exit;
end;
try
DBE:=CoDBEngine.Create;
DBE.CreateDatabase(fn1,p1,p2);
result:=true;
except
result:=false;
application.MessageBox('无法创建数据库','错误',MB_OK+MB_IconError);
end;
end;需要导入DAO类库,并useDAO_TLB,oleserver, ComCtrls单元
function TFStructor_Dispatch.CreateDB:boolean;
var
DBE:_DBEngine;
p1:widestring;
p2:olevariant;
fn1:string;
begin
fn1:=extractfilepath(application.exename)+'Structor.mdb';
p1:=';LANGID=0x0804;CP=936;COUNTRY=0';
p2:=dbEncrypt;
if FileExists(fn1)=true then
begin
result:=true;
exit;
end;
try
DBE:=CoDBEngine.Create;
DBE.CreateDatabase(fn1,p1,p2);
result:=true;
except
result:=false;
application.MessageBox('无法创建数据库','错误',MB_OK+MB_IconError);
end;
end;需要导入DAO类库,并useDAO_TLB,oleserver, ComCtrls单元
SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
+'Jet OLEDB:Database Password=%s;';
function CreateAccessFile(FileName:String;PassWord:string=''):boolean;
//建立Access文件,如果文件存在则失败
var
STempFileName:string;
vCatalog:OleVariant;
begin
STempFileName:='c:\123.mdb';
try
vCatalog:=CreateOleObject('ADOX.Catalog');
vCatalog.Create(format(SConnectionString,[STempFileName,PassWord]));
except
result:=false;
end;
end;
AccessApplication1.CloseCurrentDatabase;//创建完了一定要关闭,他是一独占方式打开的