Bonjour;
j'ai un petit programme qui consiste à recuper le contenu d'un fichier .txt et le mettre dans la chaine de connexion d'une base de données faite ne SQL SERVER
:Mon fichier test1.text contient :
Provider=SQLOLEDB.1;Password=ana2305+++;Persist Security Info=True;User ID=UPS_connexion;Initial Catalog=BD_systeme;Data Source=ana-mdc01
mon programme est comme suit:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
procedure Tfdm_migra.DataModuleCreate(Sender: TObject);
Var F:TextFile;
    S:String;
begin
AssignFile(F,'test1.txt');
Reset(F);
Readln(F,S);
showmessage(s);
ADOConnection1.ConnectionString:=S;
ADOConnection1.Connected:=true;
end;
mais malheureusement connection string ne prend pas en valeur de S
C'est URGENT SVP