Discussion :

[yannba]

Bonjour,

Malgré votre aide, ca ne marche pas :

Je re-explique :
J'ai une table ACCESS "compte.mdb" avec plusieurs champs comme debit, remboursement, ...

1 - Comment puis-je recuperer le resultat de ma requete dans une valeur ?

Code :

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

1
2
3
4
5
6
 
var solde: real; 
Adoquery1.Active:=false; 
Adoquery1.SQL.Clear; // Effacement de la requete 
ADOQuery1.SQL.Text:=('Select Sum(debit)/2 + sum(remboursement) from compte'); 
Adoquery1.Active:=true;

Réponse donnée :

Code :

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

1
2
 
ADOQuery1.SQL.Text:=('Select Sum(debit)/2 + sum(remboursement) AS Solde from compte');

2 - Puis, je veux afficher ce resultat dans un edit :

Réponses données :
a -

Code :

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

Edit3.text := ADOQuery1.FieldByName('Solde ').AsInteger

b -

Code :

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

Edit3.text := Adoquery1.FieldByName('Solde').asstring; // Evite de faire une conversion

c -

Code :

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

Edit3.Text := ADOQuery.FieldValues['Solde'];

Code :

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

1
2
3
 
{Si tu veux pas tous les chiffres apres la virgule de ton resultat} 
Edit3.text := FormatFloat('0.00',Adoquery1.FieldByName('Solde').asFloat);

3- Mon problème :
* Si j'utilse a, b ou c , j'ai le message d'erreur suivant ; ADOQuery1:champ"Solde" non trouvé
Que dois-je faire ?

* Est-ce qu'il est possible :

Code :

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

Dette:=Adoquery1.FieldByName('Solde').asstring;

OU

Code :

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

Dette:=ADOQuery.FieldValues['Solde'];

Merci de votre aide, car je galère grave ....

[Soulama]

('Select Sum(debit)/2 + sum(remboursement) from compte')

Je ne voi pas de Solde ds cette requete?

[Rayek]

au lieu d'ecrire ca :

Code :

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

ADOQuery1.SQL.Text:=('Select Sum(debit)/2 + sum(remboursement) from compte');

tu ecris ca :

Code :

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

ADOQuery1.SQL.Text:=('Select (Sum(debit)/2 + sum(remboursement)) AS Solde from compte');