关于一个创建access库，但在创建时要密码的问题

Question

CreateAccess:=CreateOleObject('ADOX.Catalog');
 
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+formpath.dirlst1.Directory+'\exam.mdb');con2.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+formpath.dirlst1.Directory+'\exam.mdb';con2.Connected := True;con2.Execute('create table Studentpaper(f试卷号 varchar(80),f试题序号  int,f题号 int)');不知道在创建时怎么加密码，请大家指点！！！

Answer 1

function CreateAccessFile(FileName:String;PassWord:string=''):boolean;
//建立Access文件，如果文件存在则失败
var
 STempFileName:string;
 vCatalog:OleVariant;
begin
 STempFileName:=GetTempPathFileName;
 try
   vCatalog:=CreateOleObject('ADOX.Catalog');
   vCatalog.Create(format(SConnectionString,[STempFileName,PassWord]));
   result:=CopyFile(PChar(STempFileName),PChar(FileName),True);
   DeleteFile(STempFileName);
 except
   result:=false;
 end;
end;

Answer 2

或者可以先创建一个有密码的Access模板，再用copyfile直接拷贝

Answer 3

adoxCatalog.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\adox.mdb;Jet OLEDB:Database Password=0000');