Mot de passe access sur Adotable [Résolu]

Signaler
-
Messages postés
111
Date d'inscription
lundi 30 mai 2011
Statut
Membre
Dernière intervention
29 avril 2013
-
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:\test\test.mdb;Persist';
Session.AddPassword('1234');
AdoTable1.Active:=true;

ca marche pas, un petit coup de main s.v.p
merci

3 réponses

Messages postés
111
Date d'inscription
lundi 30 mai 2011
Statut
Membre
Dernière intervention
29 avril 2013
1
salut!!
utiliser les évènements exemple:
procedure TForm1.ADOConnection1BeforeConnect(Sender: TObject);
var chemindb,passdb:string;
begin
chemindb:='C:\test\test.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;


@+
merci ca marche tres bien
Messages postés
111
Date d'inscription
lundi 30 mai 2011
Statut
Membre
Dernière intervention
29 avril 2013
1
salut!!
penser a cliquer sur Réponse acceptée
@+