Discussion :

[jodan33]

Bonjour,
j'ai besoin pour utiliser une donnée de créer une requête et de l'intégrer dans le code en delphi, mon problème est que je ne peux pas créer de champs supplémentaire dans ma base pour stocker le résultat, donc je créer un alias cependant j'ai un message d'erreur lorsque je lance l'exe et que j'utilise l'interface ou la requete est utilisée, le champ est introuvable!!!!

[ShaiLeTroll]

Quelle DB ? Paradox, FireBird, MySQL, SQL Serveur, Oracle ?
Quelle Lib ? BDE, DBExpress, ADO, CoreLab ?

As-tu fais un Open ? ou ExecSQL ou Execute ?

[jodan33]

la DB c'est Fire bird voici ma requette :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
ModuleTactille.NewQry(Qry);
  with qry do
  begin
  if Active=true then close;
    SQL.Clear;
    SQL.add(' select count(DISTINCT PARAMETRES.PAR_CODPAR ) as totalserve from PARAMETRES where PARAMETRES.PAR_CODTBL=''SERVE''');
 
     _nbtotserv:=FieldByName('totalserve').AsInteger;
 
     Active:=true;
    Open;
    while not Eof do
    begin
    if (_nbserv > _nbtotserv) then
     MessageDlg('Ce numéro de serveur n''est pas attribué , recommencer.', mtWarning, [mbOK], 0);
     DMTactile.DestroyQRY(Qry);
     end;
      Next;
  end;

le message d'erreur est :Champ 'totalserve' non trouvé.

[Cl@udius]

Oula !! Il y a quelques petites erreurs dans ce code.

Teste ceci, pour voir:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
  ModuleTactille.NewQry(Qry);
  with qry do
  begin
    if Active then
      Close;
    SQL.Clear;
    SQL.Add('select count(DISTINCT PARAMETRES.PAR_CODPAR) as TOTALSERVE');
    SQL.Add('from PARAMETRES');
    SQL.Add('where PARAMETRES.PAR_CODTBL=''SERVE''');
    Open;
    _nbtotserv := FieldByName('TOTALSERVE').AsInteger;
 
    if (_nbserv > _nbtotserv) then
      MessageDlg('Ce numéro de serveur n''est pas attribué , recommencer.',
        mtWarning, [mbOK], 0);
    Close;
  end;
  DMTactile.DestroyQRY(Qry);

@+ Claudius

[Rayek]

Oula !! Il y a quelques petites erreurs dans ce code.

y a surtout une grosse erreur dans la requete

Code :

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

1
2
3
4
 
 SQL.Add('select DISTINCT count(PAR_CODPAR) as TOTALSERVE');
 SQL.Add('from PARAMETRES');
 SQL.Add('where PAR_CODTBL=''SERVE''');

Normalement la, la requete est correcte (J'ai nettoyé ce qui n'était pas nécessaire aussi).

[Cl@udius]

Salut

Code :

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

SQL.Add('select count(DISTINCT PAR_CODPAR) as TOTALSERVE');

Cette ligne est correcte sous Firebird. ce qui ne donne pas exactement le même résultat.

@+

[ShaiLeTroll]

Salut

Code :

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

SQL.Add('select count(DISTINCT PAR_CODPAR) as TOTALSERVE');

Cette ligne est correcte sous Firebird. ce qui ne donne pas exactement le même résultat.

@+

Effectivement, cela compte les différentes valeurs et non pas le nombre d'occurence globale ! Fonctionne sous MySQL ainsi qu'Oracle ...

Maintenant, Count étant souvient lié à un aggrégat via Group By, le distinct n'a que peu d'utilité dans l'exemple que tu as cité Rayek, ... et affirmer qu'il y avait une erreur dans la requête, en était une bien plus grosse ...

Ces deux lignes ont un résultat similaire, mais c'est un cas spécifique, en dehors de cela Group By et Distinct n'ont pas le même intérêt (cela permet d'éviter de passer par des tables temporaires explicites, ce que fait le SGBD en interne)

Code :

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

SELECT distinct nom, prenom FROM individu

Code :

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

SELECT nom, prenom FROM individu group by nom, prenom

Sinon, c'est tout simplement, le Open qui était fait après l'utilisation du champ, grand classique ... cela pouvait se résoudre par quelques secondes de recul vis-à-vis de son travail ... et la touche F1 !

[jodan33]

En tout cas merci a vous tous , vos explications ont fait progressé mon appli , je n'ai pas le résultat escompté pour l'instant ; mais je compile sans erreur et je suis sur une bonne piste , et maintenant je sais intégrer une requete sous Delphi.

[ShaiLeTroll]

Sinon le "DMTactile.DestroyQRY(Qry);" est mal placé, le with risque de ne pas aimer ...
Le Next est en dehors de la boucle, avec le Count, cela n'a pas grande importance, voici ce que je propose comme code, juste question de Syntaxe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  ModuleTactille.NewQry(Qry);
  with qry do
  try
    if Active then // Un boolean n'a pas besoin d'être testé à true, il est déjà à true ou à false !
      Close();
 
    SQL.Clear;
    SQL.add(' select count(DISTINCT PARAMETRES.PAR_CODPAR ) as totalserve from PARAMETRES where PARAMETRES.PAR_CODTBL=''SERVE''');
    Open; // Le Active est mis à True par le Open
    if not IsEmpty then // Pas de raison que cela échoue
    begin
      _nbtotserv:=FieldByName('totalserve').AsInteger;
      if (_nbserv > _nbtotserv) then
        MessageDlg('Ce numéro de serveur n''est pas attribué , recommencer.', mtWarning, [mbOK], 0);
    end;
  finally
    DMTactile.DestroyQRY(Qry);
  end;

Sinon pour le SQL ... je te dirais d'essayer ceci pour voir ...

Code :

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

1
2
select count(PARAMETRES.PAR_CODPAR ) as totalserve from PARAMETRES where PARAMETRES.PAR_CODTBL=''SERVE''
group by PARAMETRES.PAR_CODPAR

ce qui s'utiliserais comme ceci ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
  ModuleTactille.NewQry(Qry);
  with qry do
  try
    if Active then // Un boolean n'a pas besoin d'être testé à true, il est déjà à true ou à false !
      Close();
 
    SQL.Clear;
    SQL.add(' select count(PARAMETRES.PAR_CODPAR ) as totalserve from PARAMETRES where PARAMETRES.PAR_CODTBL=''SERVE'' group by PARAMETRES.PAR_CODPAR');
    Open; // Le Active est mis à True par le Open
    while not EOF do
    begin
      _nbtotserv := FieldByName('totalserve').AsInteger;
      if (_nbserv > _nbtotserv) then
      begin
        MessageDlg('Ce numéro de serveur n''est pas attribué , recommencer.', mtWarning, [mbOK], 0);
        Exit;
      end;
 
      Next();
    end;
  finally
    DMTactile.DestroyQRY(Qry);
  end;

[Rayek]

Sous Access cela ne fonctionne pas, c'est pour cela ^^

Enfin bon, pour ma part je n'utilise que du SQL 92 pur, ça évite beaucoup de problème (surtout si on change de base de données)

[ShaiLeTroll]

Sous Access cela ne fonctionne pas, c'est pour cela ^^

lol, c'est plutôt ce qui fonctionne sous Access qu'il faut trouver

Enfin bon, pour ma part je n'utilise que du SQL 92 pur, ça évite beaucoup de problème (surtout si on change de base de données)

Tu n'as pas tord, j'ai participé à de nombreux projets multi-DB (Oracle, SQL Server et IB\FB), eh bien, dans tous, il y avait soit un parser pour traduire les opérations ou alors un switch permettant d'écrire une requête commune à tous formats ou spécifiques si nécessaire ... et les Dates sont souvent les grosses chieuses ...