帮忙。怎样用程序创建一个带密码的ACCESS库？（内空）

Question

帮忙。怎样用程序创建一个带密码的ACCESS库？（内空）

Answer 1

var
  adoxCatalog: TadoxCatalog;
begin
    if not FileExists(DbFile) then
    begin
      adoxCatalog := TadoxCatalog.Create( self );
      try
        adoxCatalog.Create1( 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=''' + DbFile + '''' );
      finally
        adoxCatalog.Free;
      end;
我只会创建不带密码的数据库，你试试能不能创建带密码的。成功后别忘了教我啊。呵呵

Answer 2

adoxCatalog.Create1( 'Provider=Microsoft.Jet.OLEDB.4.0;password=aaaa;Data Source=''' + DbFile + '''' );就可以了或者uses ....dao2000;
Var
   dbe:DBEngine;
begin
  dbe:=coDBengine.create(nil); 
  dbe.CreateDatabase('c:\ls.mdb',';langid=0x0804;CP=936;COUNTRY=0;pwd=aaaa',dbencrypt)
  dbe.free
end;好像这两种方法都可以解决，不知道有没有写漏：）

Answer 3

adoxCatalog.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\adox.mdb;Jet OLEDB:Database Password=111');这样成功了。呵呵。原来以前少了 Jet OLEDB:

Answer 4

adoxCatalog.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\adox.mdb;Jet OLEDB:Database Password=111');这样成功了。呵呵。原来以前少了 Jet OLEDB: