Bonjour,

J'ai mets en place une application et j'ai conçu un fichier nommé Config.ini (ce fichier contient les paramètres de connexion à ma base de données Mysql).
Voici le contenu de ce fichier
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Provider=MSDASQL.1;
Persist Security Info=False;
User ID=root;Data Source=myodbc;
Initial Catalog=mysql
je charge ces paramètres par code dont le voici:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TDataModule_SIEMF.DataModuleCreate(Sender: TObject);
var wConnectionString:WideString;
begin
  with  TIniFile32.Create(GetCurrentDir + '\Config.ini') do
  begin
    wConnectionString := wConnectionString + 'Provider=' + ReadString('Reseau','MSDASQL.1',wConnectionString) + ';';
    wConnectionString := wConnectionString + 'Persist Security Info=' + ReadString('Reseau','Persist Security Info=False',wConnectionString) + ';';
    wConnectionString := wConnectionString + 'User ID=' + ReadString('Reseau','User ID=root',wConnectionString) + ';';
    wConnectionString := wConnectionString + 'Data Source=' + ReadString('Reseau','Data Source=myodbc',wConnectionString) + ';';
    wConnectionString := wConnectionString + 'Initial Catalog=' + ReadString('Reseau','Initial Catalog=bdgestfinance',wConnectionString) + ';';
    Free;
  end;
  BD_SIEMF.ConnectionString := wConnectionString;
  Self.CurrentDir := GetCurrentDir;
end;
Resultat: j'ai un message d'erreur dont le voici:
Le projet xxx a provoqué une classe d'exception EOleException avec le message 'Les arguments sont type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres'.

Bref impossible de se connecter à ma base de données Mysql.

Je vous remercie de votre aide.