Résultat d'une requete dans un queryRésolu

Question

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)

Merci de bien vouloir m'aider

cs_cantador · Accepted Answer

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;

cantador

cs_Delphiprog · Answer

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.

khawarizm · Answer

Bonsoir tout le monde !


Peut etre que je devrais ouvrir un autre poste mais j’aimerais
savoir une chose :


@Delphiprog : SVP , cette méthode est valable pour toutes
formes de  transtypage ou uniquement dans
quelques cas ? Mes remerciements.

cs_cantador · Answer

Oui, delphiprog 

AsString
AsInteger
AsVariant
On peut trouver aussi:
AsDate
AsDateTime
etc..

cantador

cs_cantador · Answer

A noter que dans mon contexte je ne dispose que de AsVariant et AsInteger.

cantador

cs_Delphiprog · Answer

@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.

Résultat d'une requete dans un query

6 réponses

Votre réponse