Hallo,
Een applicatie maakt verbinding met een access db middels ADO. Ik gebruik daar onderstaande code voor.
procedure TForm2.FormCreate(Sender: TObject);
Var App_Path: string;
Const ConnStr = 'Provider=%s;Data Provider=%s;Data Source=%s';
begin
App_Path:= ExtractFilePath(Application.EXEName);
ADOConnection1.ConnectionString :=
Format(ConnStr, ['MSDataShape.1','Microsoft.Jet.OLEDB.4.0',pp_Path+ 'ServCall.mdb']);
try
ADOConnection1.Connected:=True;
TypeTBL.Open;
except
MessageDLG('Een fout is ontstaan bij het openen van de database',mtError,[mbOK],0);
end;
end;
Ik gebruik deze code zodat als ik de applicatie en de db files in dezelfde directorie het geheel functioneerd.
Nu wil ik graag de database met een password beveiligen. Dat lukt me maar niet. Ik krijg het heel makkelijk gedaan door in het ADO component een connectiostring te builden en daar het juiste password in te vullen. Maar dan zit ik vast aan vooraf ingestelde directories.
Kortom mijn vraag: Hoe kan ik een ADO connectie maken met en een password en de mogelijkheid om in elk willekeurige directorie mijn database te zetten?
Alvast bedankt,
Andre
Bookmarks