armstrong0000
Messages postés32Date d'inscriptionjeudi 30 novembre 2006StatutMembreDernière intervention 5 juillet 2010
-
15 avril 2008 à 19:00
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 2013
-
18 avril 2008 à 09:28
Bonjour a tous,
Voila j'utilise delphi 7 et je voudrai savoir s'il est possible de mettre le resultat d'un query dans un edit en cliquant sur un boutton?!!
Ex: je clique sur un bouton "nombre de clients" et il m'affiche "3" dans mon edit
Je c'est pas si c'est important mais j'utilise ADO comme connexion à ma base (mysql)
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202114 15 avril 2008 à 22:03
Il n'y a pas de souci :
procedure TForm1.Button2Click(Sender: TObject);
begin
with MonQuery.SQL do
begin
MonQuery.Close;
Clear;
Add('Select count(*) as NombreClient ');
Add('From MaTableClient ');
MonQuery.Open;
Edit1.text := IntToStr(MonQuery.FieldByName('NombreClient').Value);
end;
end;
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 15 avril 2008 à 22:45
A noter que :
Edit1.text := IntToStr(MonQuery.FieldByName('NombreClient').Value);
Est avantgeusement remplacé par :
Edit1.text := MonQuery.FieldByName('NombreClient').AsString;
Pourquoi ?
Tout simplement parce que la propriété Value est en réalité un variant, plus lent en traitement et que tu convertis ensuite en chaine. Autant demander directement la valeur sous forme de chaine dans le cas présent. C'est encore plus vrai quand on opére ce genre de conversion dans une boucle.
May Delphi be with you !
<hr color="#008000" />Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 18 avril 2008 à 09:28
@khawarizm : "cette méthode est valable pour toutes formes de transtypage ou uniquement dans quelques cas ?"
Je te suggère de te reporter à l'aide en ligne de Delphi à ce sujet où tu trouveras toutes les conversions possible et leurs limites : AsBCD, AsBoolean, AsCurrency, AsDateTime, AsFloat, AsInteger, AsSQLTimeStamp, AsString, AsVariant.
Bonne journée.
May Delphi be with you !
<hr color="#008000" />Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.