Discussion :

[yanba]

Bonjour,

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

Code :

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

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 :

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

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 ?

[portu]

Code :

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

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

[yanba]

Code :

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

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 :

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

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

J'ai toujours une erreur.

[portu]

Oups

Code :

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

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.