Remplir TADOConnection par code

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:

---

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:

---

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.

J'ai bien installé le pilote ODBC et configurer DSN parfaitement.

sinon pour info

Code:

---

1 2 3

wConnectionString := wConnectionString + ...; wConnectionString := wConnectionString + ...; wConnectionString := wConnectionString + ...;

---

tu peux l'écrire

Code:

---

1 2 3

wConnectionString := wConnectionString + ... + ... + ...;

---

Sinon tes valeurs par défaut de tes ReadString son TRES ETRANGE !
en fait, tu vas obtenir une chaine imbriquée, regarde ça de plus près !

Les noms d'identifiants de clés passés au ReadString sont encore plus étrange sque les valeurs par défaut.

Merci de votre réaction.
Mon but est de mettre cet application en reseau.

Si je peux avoir un tutoriel ou un site pour m'aider car j'ai deja fouillé sans trouver grand chose.

Si le code que tu indiques est celui de ton application, alors ce que nous voulons dire c'est qu'il y a peut-etre simplement un problème de lecture du fichier ini.

Par ex. pour le premier readString, pour l'identifiant au lieu d'indiquer 'Provider' tu indiques 'MSDASQL.1' !

Si les informations de ton fichier ini sont bien dans une section 'reseau' :

Code:

---

1 2 3 4 5 6

[Reseau] Provider=MSDASQL.1; Persist Security Info=False; User ID=root;Data Source=myodbc; Initial Catalog=mysql

---

Alors, je remplacerai :

Code:

---

ReadString('Reseau','MSDASQL.1',wConnectionString)

---

Par

Code:

---

ReadString('Reseau','Provider','MSDASQL.1')

---

Ajoute un point de suivi sur wConnectionString pour afficher sa valeur lors de l’exécution.