Discussion :

[jmulans]

bonjour, j'effectue une requete dans ma base access et je voudrai mettre le resultat de cette requete dans une chaine de caracteres, séparé par des virgules :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
sql := 'Select numero_reference from Reference Where lib_ref = ''/''';
rs := requete.execCommande(sql2,FenetrePrincipale.ADODataSet_Global);
rs.BOF;
while not rs.EOF do
begin
     ShowMessage(rs.Fields[0].Value);
     chaine := chaine + rs.Fields[0].Value + ',';
     rs.MoveNext;
end;

mais j'ai l'erreur suivante :

impossible de convertir le variant de type (olestr) en type (double)

pourtant je n'utilise pas de double
je fait un Showmessage pour verifier ce que j'ai, et il me sort 1 resultat et ensuite j'ai ce message d'erreur
apparement ça vien de la ligne chaine := chaine + rs.Fields[0].Value + ',';
pourtant chaine est bien defini et initialisé

[jmulans]

mea culpa
j'ai rajouté intToStr

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chaine := chaine + IntToStr(rs.Fields[0].Value) + ',';

pourtant juste avant je fait un ShowMessage(rs.Fields[0].Value) et il passe bien
enfin bon...