1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

Résultat d'une requete dans un query [Résolu]

Signaler
Messages postés
32
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
5 juillet 2010
 -
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
 -
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

6 réponses

Réponse 1 / 6
Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
 14
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
Réponse 2 / 6
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
 31
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.
Réponse 3 / 6
Messages postés
116
Date d'inscription
mercredi 22 novembre 2000
Statut
Membre
Dernière intervention
4 août 2010
 1
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.
Réponse 4 / 6
Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
 14
Oui, delphiprog

AsString
AsInteger
AsVariant
On peut trouver aussi:
AsDate
AsDateTime
etc..

cantador
Réponse 5 / 6
Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
 14
A noter que dans mon contexte je ne dispose que de AsVariant et AsInteger.

cantador
Réponse 6 / 6
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
 31
@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épondre Posez votre question