[fide]

Hola. Saludos ante todos. Explorando un programa de trucos y codigos de delphi que tengo, me he encontrado una funcion que crea una BD en acces, sin tablas ni nada. Solamente se crea el archivo. Lo demas hay que crearselo desde SQL.

Ahora bien, yo deseo ponerle password a esa BD, pero ni modo de que lo consiga.

aqui esta el codigo...

Código Delphi [-]
function CreateAccessDatabase(FileName: string): string;
var
  cat: OLEVariant;
begin
  result := '';
  try
    cat := CreateOleObject('ADOX.Catalog');
    cat.create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Filename + ';');
    cat := NULL;
  except
    on e: Exception do
      result := e.message;
  end;
end;

Esto me crea la BD sin problemas. Despues, mediante los componentes ADO, la acceso, creo nuevas tablas ETC. Pero es que quiero que se cree con password. Pense en cambiar esto.

Código Delphi [-]
cat := CreateOleObject('ADOX.Catalog');
    cat.create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Filename + ';');

por esto otro.

Código Delphi [-]
cat := CreateOleObject('ADOX.Catalog');
    cat.create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Filename + ';Persist Security Info=False;Jet OLEDBatabase Password=sapito123;');

pero ni asi me funciona.
Por favor si alguien me puede ayudar, le estare muy agradecido...