ADOQuery et DBTEXT

Bonjour,

J'utilise une datasource reliée à mon adoquery que je complète de la facon suivante :

Code:

---

1 2 3 4

ADOQuery2.SQL.Clear; // Effacement de la requete ADOQuery2.active:=false; ADOQuery2.SQL.Text:='select sum(debit) - sum(remb) from compte'; ADOQuery2.active:=true;

---

Si je veux relier mon DBText1 manuellement (c'est à dire sans code), ca marche.
Mais là ou ca se corse, c'est par code :

Code:

---

1 2 3 4 5

ADOQuery2.SQL.Clear; // Effacement de la requete ADOQuery2.active:=false; ADOQuery2.SQL.Text:='select sum(debit) - sum(remb) from compte'; ADOQuery2.active:=true; DBText1.DataField:=ADOQuery2.SQL.Text;

---

Que dois je faire pour que le DBText1 fasse mon calcul ?

Code:

---

1 2 3 4 5 6

ADOQuery2.SQL.Clear; // Effacement de la requete ADOQuery2.active:=false; ADOQuery2.SQL.Text:='select (sum(debit) - sum(remb))As RESULTAT from compte'; ADOQuery2.active:=true; DBText1.DataField:=ADOQuery2.FieldByName('RESULTAT');

---

un truc comme ca devrait aller

Code:

---

1 2 3 4 5 6 7 8

var resultat:real; Begin ADOQuery2.SQL.Clear; // Effacement de la requete ADOQuery2.active:=false; ADOQuery2.SQL.Text:='select (sum(debit) - sum(remb))As RESULTAT from compte'; ADOQuery2.active:=true; DBText1.DataField:=ADOQuery2.FieldByName('RESULTAT'); end;

---

J'ai un message type incompatible string et Tfield.

J'ai modifié :

Code:

---

DBText1.DataField:=ADOQuery1.FieldByName('RESULTAT').AsString;

---

J'ai toujours une erreur.

Oups

Code:

---

1 2 3 4 5 6 7 8 9

var resultat:real; Begin ADOQuery2.SQL.Clear; // Effacement de la requete ADOQuery2.active:=false; ADOQuery2.SQL.Text:='select (sum(debit) - sum(remb))As RESULTAT from compte'; ADOQuery2.active:=true; DBText1.DataField:= 'RESULTAT'; end;

---

Comme ca alors.