ADO + Password Access

**helmis** · 02/03/2006, 16h46

J'ai creer un Password avec Access, pour une base que je me connect sans auccun problem au par avant. mais quand je l'indique au copnstructeur de la 'Connectionstring' de delphi, je ne peux plus me connecter à celle-ci (base access) pourtant le LOGIN ET LE PASSWORD sont correct. Y'a t'il d'autre parametre à modifier dans le cas ou on protege la base avec Password ?

Merci

**Cl@udius** · 02/03/2006, 19h13

Salut,

Jette un coup d'oeil sur ce post http://www.developpez.net/forums/viewtopic.php?t=464750 et regarde l'exemple de ConnectionString que propose Frank !

Si ça ne répond pas à ta question, donnes-nous ta ConnectionString.

@+ Claudius.

**helmis** · 03/03/2006, 08h39

ça correspond Parfaitement Merci . ainsi je dois preciser que si veut passer par le constructeur ou l'assistant on pas se connecter et ca produira un message d'erreur si on Teste la connection, il faudra programmer manuellement la connection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 
procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
adoconnection1.Close;
adoconnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'+'User ID=Admin;'+'Data Source='+ExtractFilePath(Application.EXEName)+'bd1.mdb;'+'Mode=Share Deny None;'+'Extended Properties="";'+'Jet OLEDB:System database="";'+'Jet OLEDB:Registry Path="";'+'Jet OLEDB:Database Password="azerty";'+'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';
 
ADOConnection1.open;
adotable1.Open;

Merci