BdD Oracle vers Excel

Bonjour,

Je suis actuellement en train de tenter de me faire un outil d'exportation de résultats de requêtes vers Excel. Je bosse sur une base de donnée Oracle.

J'ai suivis la FAQ du site (qui est très complète :)). J'arrive donc à ouvrir Excel, me positionner à peu près où je veux, y écrire des données simples.

Le problème arrive au moment d'utiliser des requêtes Oracles pour les remplir. Pour ce faire, je passes par un TQuery qui contient la requête, puis je remplis mes cellules avec les deux lignes suivantes :

Code:

---

1 2	vValue = MaQuery->Fields->Fields[indexItem]->AsVariant; vCell.OlePropertySel("Value", vValue);

---

vValue et vCell étant des Variants, MaQuery le composant TQuery contenant ma requête, et indexItem la colonne à récupérer (ces deux lignes se trouvant dans un for).

Là où çà coince, c'est sur le type de champ ciblé. Si c'est un champ de type NUMBER ou DATE cela fonctionne, mais si le champ est un VARCHAR2, cela ne fonctionne pas :?

Si quelqu'un à une idée, je suis preneur ;)

Salut Ldoppea
Qu'entend tu par " VARCHAR2 ", Excel fonctionne avec les variants une cellule peut etre une String, un int, une date .......

Et bien, dans la base de donnée Oracle utilisée pour mon projet, on stock tout ce qui est text dans des champs de type VARCHAR2.

En fait, dès que ma fonction cible un champ de type VARCHAR2 (pour l'instant mes tests n'ont ciblé que du NUMBER, du DATE et du VARCHAR2), le programme me retourne une erreur de type (je n'ai plus l'erreur sous les yeux, si besoin je l'enverrais demain).

Citation:

---

Excel fonctionne avec les variants une cellule peut etre une String, un int, une date .......

---

Justement, je récupère mon champs avec ce type :
vValue = MaQuery->Fields->Fields[indexItem]->AsVariant;

Et le programme bloque à l'appel de la méthode:
vCell.OlePropertySel("Value", vValue);

Bonsoir,

j'ai déjà eu des problème pour faire passé des chaîne de caractère AnsiString à Excel via Ole.

J'avais résolu mon problème en utilisant la fonction StringToOleStr().

Code:

---

1 2	vCell.OlePropertySet("Value", StringToOleStr(MyQuery->FieldByName("MyField")->AsString));

---

Ok, je teste çà dès demain matin, merci de ta réponse :P

Par contre, c'est compatible avec les int et dates? Ou il faut détecter le type de champ pour appeler cette fonction uniquement pour des varchar?

Ça marche, et ce pour tous les types de champs que j'ai du utiliser jusqu'à maintenant. Merci pour l'aide ;)