mot de passe access sur AdotableRésolu

Question

salut 
j'ai proteger mon fichier .mdb, par un mot de passe.
avec mon programme delphi, je voulai connecter mon fichier j'ai mis :

Provider='Microsoft.Jet.OLEDB.4.0;Data Source=C:	est	est.mdb;Persist';
Session.AddPassword('1234');
AdoTable1.Active:=true;

ca marche pas, un petit coup de main s.v.p
merci

cs_walidlam · Accepted Answer

salut!!
utiliser les évènements exemple:
procedure TForm1.ADOConnection1BeforeConnect(Sender: TObject);
var chemindb,passdb:string;
begin
chemindb:='C:	est	est.mdb';
passdb:='1234';
ADOConnection1.ConnectionString :=
    'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='
    + CheminDb
    +';Mode=ReadWrite;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'
    +'Jet OLEDB:Database Password='+passdb
    +';Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;'
    +'Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'
    +'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'
    +'Jet OLEDB:Don''t Copy Locale on Compact=False;'
    +'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
end; 
dans l'evenement du fiche ou datamodule oncreate

ADOConnection1.Connected:=true;

@+

nounou27000 · Answer

merci ca marche tres bien

cs_walidlam · Answer

salut!!
penser a cliquer sur Réponse acceptée 
@+

Mot de passe access sur Adotable

3 réponses

Votre réponse

Discussions similaires