voici mon code source:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Tfdm_migra.DataModuleCreate(Sender: TObject);
Var F:TextFile;
    S:String;
    t :tstrings;
begin
 
AssignFile(F,'test1.txt');
Reset(F);
Readln(F,S);
showmessage(s);
ADOConnection1.ConnectionString:=S;
ADOConnection1.Open;
end;
sachant que test1.text contient le contenu de ma chaine de connexion
un message d'erreur appait à la fin de l'execution
login failed for user 'ups_connexion'
sachant que ups_connexion est ma chaine de connection