rendre code Delphi en requête SQL

Version imprimable

bonjours à tous
j'utilise delphi 7
dsl je suis débutant
je voudrais bien transformer ce code en requette sql avec un query

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Total := 0;
  With mdd.matable Do
  Begin
    First;
    While Not Eof Do
    Begin
      if mdd.matable.FieldByName('num_cp').AsString=edit2.Text 
    then
      total:=total+FieldByName('mt_recharge').AsFloat;
      Next;
    End;
  End;
  monetat.QRLabel32.Caption:=floattostr(total);

merci pour votre aide

28/10/2018, 15h24
SergioMaster
Bonjour,

certainement quelque chose comme

Code:

SELECT SUM(mt_recharge) AS TOTAL FROM MATABLE WHERE num_cp=:CP

comme vous n'indiquez ni connecteurs (composant d'accès aux données) pas facile de vous donner un code plus explicite pour créer une query au runtime, donc
Code:

1 2 3 4 QueryTotal.active:=False; QueryTotal.ParamByName('CP').asString:=Edit2.Text; QueryTotal.Active:=True; monetat.QRLabel32.Caption:=QueryTotal.FieldByname('Total').asString;
c'est le moins pire que je puisse proposer

et si je veux ajouter une autre condition

Code:

1
2
3
if mdd.matable.FieldByName('num_cp').AsString=edit2.Text and  //  je veux ajouter une condition de recherche dans un interval de deux DateTimePicker 
//c.a.d avoir le total a une période défini comment faire

Bonjour

Citation:

et si je veux ajouter une autre condition

Alors il serait bon que vous appreniez les bases du SQL (ce qui n'a rien à voir avec Delphi !)
Avec le peu d'informations données (pas de nom de champ, pas d'indication de SGBD, pas d'indication des composants de connexion)
:cristal:
je vais l'écrire au plus sécuritaire
Code:

1 2 SELECT SUM(mt_recharge) AS TOTAL FROM MATABLE WHERE num_cp=:CP AND colonne_date BETWEEN CAST( :dd AS DATE) AND CAST ( :df AS DATE)
Code:

1 2 3 4 5 QueryTotal.active:=False; QueryTotal.ParamByName('CP').asString:=Edit2.Text; QueryTotal.ParamByName('dd').asDate:=DateTimePicker1.Date; QueryTotal.ParamByName('df').asDate:=DateTimePicker2.Date; QueryTotal.Active:=True;

29/10/2018, 11h33
wiski08000

message erreur " QueryTotal champ total non trouvé "
comment dois je afficher le total
débutant dsl
29/10/2018, 12h46
tourlourou

Débuter ne dispense pas de bien présenter son problème, en fournissant à ceux susceptibles de vous aider les indications demandées, surtout si vous souhaitez une aide efficace :

Citation:

Avec le peu d'informations données (pas de nom de champ, pas d'indication de SGBD, pas d'indication des composants de connexion)

Indiquer le code produisant l'erreur que vous citez serait bien évidemment un plus évitant de sortir une seconde boule de cristal du coffre :

Citation:

QueryTotal champ total non trouvé

Citation:

Envoyé par tourlourou

Débuter ne dispense pas de bien présenter son problème, en fournissant à ceux susceptibles de vous aider les indications demandées, surtout si vous souhaitez une aide efficace :

Indiquer le code produisant l'erreur que vous citez serait bien évidemment un plus évitant de sortir une seconde boule de cristal du coffre :

je travail avec Delphi 7 et SQL 2000 server

j'ai une table qui comporte les champs suivants:
IDRecharge,Num_cp, Mt_recharge (IDRecharge,Num_cp comme clé de la table TRecharge)

un edit pour saisir le num_cp
j'utilise 2 DateTimePicker pour la selection de l'interval

en faisant entrer le num_cp sur le Edit et en faisant entrer les dates Du Au (l'interval) en en cliquant sur un bouton
j'aurais comme résultat la somme du champ MT_recharge
:oops:
Code:

1 2 3 4 5 6 7 8 9 Querytotal.Sql.Clear; Querytotal.Sql.Add('SELECT *,SUM(mt_recharge) AS TOTAL FROM TRecharge_cp WHERE num_cp=:CP AND date_recharge BETWEEN CAST( :dd AS DATE) AND CAST ( :df AS DATE) ') Querytotal.active:=False; QueryTotal.ParamByName('CP').asString:=Edit2.Text; QueryTotal.ParamByName('dd').asDateTime:=DateTimePicker1.Date; QueryTotal.ParamByName('df').asDateTime:=DateTimePicker2.Date; QueryTotal.Active:=True; monetat.QRLabel32.Caption:=Querytotal.FieldValues['Total'].asString;
en exécutant j'obtiens le message d'erreur " QueryTotal champ TOTAL non trouvé "

comment dois je afficher le total

29/10/2018, 14h12
Invité

ce n'est pas plutôt : monetat.QRLabel32.Caption:=Querytotal.FieldByName['Total'].asString;
29/10/2018, 14h25
wiski08000

Citation:

Envoyé par benoit1024

ce n'est pas plutôt : monetat.QRLabel32.Caption:=Querytotal.FieldByName['Total'].asString;

non toujours le même message d'erreur "QueryTotal champ TOTAL non trouvé "
29/10/2018, 14h47
tourlourou

Je ne sais pas si la casse peut jouer (TOTAL versus Total) ; sinon, que vaut Querytotal.Fields[0].AsInteger ?
29/10/2018, 14h58
wiski08000

Citation:

Envoyé par tourlourou

Je ne sais pas si la casse peut jouer (TOTAL versus Total) ; sinon, que vaut Querytotal.Fields[0].AsInteger ?

meme message

autrement

comment on en language delphi

si date_recharge est entre dateTimePicker1 et dateTimePicker2

Code:

if matable.FieldByName('date_recharge').AsDateTime ...???? //est entre D1 et D2 alors

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Total := 0;
  With mdd.matable Do
  Begin
    First;
    While Not Eof Do
    Begin
      if (mdd.matable.FieldByName('num_cp').AsString = edit2.Text)
      and (matable.FieldByName('date_recharge').AsDateTime >= DateTimePicker1.Date) 
      and (matable.FieldByName('date_recharge').AsDateTime <= DateTimePicker2.Date)
    then
      total:=total+FieldByName('mt_recharge').AsFloat;
      Next;
    End;
  End;
  monetat.QRLabel32.Caption:=floattostr(total);

Citation:

Envoyé par tourlourou

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Total := 0;
  With mdd.matable Do
  Begin
    First;
    While Not Eof Do
    Begin
      if (mdd.matable.FieldByName('num_cp').AsString = edit2.Text)
      and (matable.FieldByName('date_recharge').AsDateTime >= DateTimePicker1.Date) 
      and (matable.FieldByName('date_recharge').AsDateTime <= DateTimePicker2.Date)
    then
      total:=total+FieldByName('mt_recharge').AsFloat;
      Next;
    End;
  End;
  monetat.QRLabel32.Caption:=floattostr(total);

merci pour votre aide

:furax: C'est du n'importe quoi ! Et le but était de sortir de cette solution à base de boucle et ce grâce au SQL
SQL mal recopié qui plus est :furieux:

Code:

SELECT *,SUM(mt_recharge) AS TOTAL FROM TRecharge_cp WHERE num_cp=:CP AND date_recharge BETWEEN CAST( :dd AS DATE) AND CAST ( :df AS DATE)

est-ce que je vous ai indiqué de mettre une * ? :furieux:
Votre SQL est faux il serait temps d'en apprendre les bases. A partir du moment ou vous utilisez une fonction d'agrégat en SQL , ici SUM si vous avez d'autre colonnes celles-ci devront faire partie de la clause GROUP BY , le fait de n'utiliser que la fonction d'agrégat permettait de ne pas avoir besoin de la clause GROUP BY

En plus l'ordre de vos lignes de code n'est pas bon !
Code:

1 2 3 4 Querytotal.active:=False; Querytotal.Sql.Clear; Querytotal.Sql.Add('SELECT *,SUM(mt_recharge) AS TOTAL FROM TRecharge_cp WHERE num_cp=:CP AND date_recharge BETWEEN CAST( :dd AS DATE) AND CAST ( :df AS DATE) ')
vous n'avez toujours pas répondu à une question essentielle : le type de composant utilisé (ADO ne fonctionne pas tout à fait de la même manière que Firedac par exemple)
si QueryTotal se trouve sur votre fiche quel est le SQL inscrit dedans et quel sont les paramètres définis ? Si QueryTotal sera toujours le même SQL il n'est pas besoin d'effacer (clear) et ré-écrire (sql.add) vous pourriez d'ailleurs remplacer les deux par un simple QueryTotal.SQL.text:=enfin si le SQL est toujours le même vous avez tout intérêt à utiliser l'instruction QueryTotal.Prepare qui permettra de préparer la requête (à faire qu'une seule fois dés que la base est connectée)

@Tourlourou je suis étonné que tu proposes une solution à base de boucle
@Toulourou et benoit1024 non ce n'est pas un problème de casse, Total est un alias de colonne, la colonne ainsi créée dans "le dataset" est insensible à la casse

[Edit] du coup ce n'est plus que la boule de cristal qui est cassée, c'est aussi ma zenitude

Citation:
Envoyé par wiski08000
et si je veux ajouter une autre condition
Code:

1 2 3 if mdd.matable.FieldByName('num_cp').AsString=edit2.Text and // je veux ajouter une condition de recherche dans un interval de deux DateTimePicker //c.a.d avoir le total a une période défini comment faire
Peut-être qu'avant de poursuivre, je pense que lire Guide Pascal et Delphi serait adéquat pour la zénitude de tous.

Citation:

Envoyé par SergioMaster

En plus l'ordre de vos lignes de code n'est pas bon !

Une remarque pertinente tout comme QueryTotal.SQL.text:= 'SELECT ...';
J'ai souvenir que certaines Library DB ignore purement et simplement la modification du SQL lorsque le Query est Active à True.
Cela ressemble à la situation observée dans le cas présent car au lieu de " QueryTotal champ TOTAL non trouvé "
il y aurait eu une exception avec un message "la fonction SUM ne porte pas sur un groupe" ou pour SQL Server une phrase comme "the select list is invalid because it is not contained in either an aggregate function or the GROUP BY clause".

Et certaines Library DB analyse le SQL à chaque Add() pour une requête longue cela ralenti le code par rapport à une seule modification via Text

Ensuite, différencier la partie SQL qui devrait se tester sur logiciel de SQL intégré a votre client de SGBD ou en add-on
Par exemple en ORACLE c'est SQL Developper, TOAD ...
Vous utilisez "SQL 2000 server", je ne connais pas le client en dehors d'un Visual Studio mais vous devriez chercher cet accès à la DB sans DELPHI

et pour cela il y a aussi des tutoriaux

Comprendre le SQL en dehors de Delphi est impératif, un excellent tutoriel : LE SQL de A à Z

La question sur le type du SGBD et sur la couche Query utilisée est importante, je prends par exemple CAST( :dd AS DATE) qui sera souvent pas utile de faire si compliqué mais pour cela faut savoir SGBD et Library
SQL 2000 server étant un peu vieux, Delphi 7 aussi, il va falloir s'accrocher dans la compréhension du SQL spécifique à cette version surement nettement moins confortable que les versions récentes

30/10/2018, 10h56
wiski08000

merci à vous tous c résolu grâce à vous
SergioMaster dsl de t'avoir énerver
et encore merci
hé oui nous les débutants