怎样用代码建立一个带有密码的ACCESS？谢谢！

Question

如题！谢谢！分不够再给！马上结贴！

Answer 1

如果 用的是ACCESS的话建完表后选择工具>安全>设置数据密码 ，输入密码即可，如果你用的是DELPHI的桌面数据库的话，建议你改用ACCESS，因为dbd太老了，不支持新的2000格式的ACCESS数据库

Answer 2

我是用ACCESS的，我用代码建ACCESS数据库的，但现在的问题是我不知道怎么样用代码在建ACCESS的时候直接把该数据库加上密码，谢谢！

Answer 3

procedure changeMdbPwd(dbname,oldpwd,newpwd:string;bAccess97:boolean=true);
var db:database;
    dbEngine:_dbengine;
    tempname:string;
    ws:workspace;
begin
  if bAccess97 then
  begin
    dbengine := CreateComObject(dao97.CLASS_DBEngine) as _DBEngine;
    db := dbengine.OpenDatabase(dbname,dbDriverNoPrompt,false,';LANGID=0x0409;CP=1252;COUNTRY=0;pwd='+oldpwd);
    db.NewPassword(oldpwd,widestring(newpwd));
    db.Close;
  end else
  begin
    dbengine := CreateComObject(dao2000.CLASS_DBEngine) as _DBEngine;
    db := dbengine.OpenDatabase(dbname,dbDriverNoPrompt,false,';LANGID=0x0409;CP=1252;COUNTRY=0;pwd='+oldpwd);
    if oldpwd = '' then oldpwd  := chr(0);
    if newpwd = '' then newpwd  := chr(0);
    db.NewPassword(oldpwd,widestring(newpwd));
    db.Close;
  end;
end;