voici mon code source:
sachant que test1.text contient le contenu de ma chaine de connexion
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;
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
Partager