Verification de code pour IBQuery [Résolu]

[the watcher]

Salut les amis,
Vérifiez s'il vous plaît ce code pour moi.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Procedure TForm2.ComboClasseSelect(Sender: TObject);
var
  DESIGN_CLASS  : String;
begin
{**** Recherche d'instruction sql pour le remplissage
      des frais d'inscription et de formation}
      //CurrencyEdit2.Text:= ;
      ComboClasse.Text:=DESIGN_CLASS;
      IBQuery1.Active:=True;
      IBQuery1.Close;
      IBQuery1.SQL.Clear;
      DESIGN_CLASS:=IBQuery1.ParamByName('DESIGN_CLASS').AsString  ;
      IBQuery1.SQL.ADD('SELECT FRFORMA FROM FRAIS WHERE DESIGN_CLASS = ''DESIGN_CLASS''');
      IBQuery1.SQL.ADD('VALUE (:DESIGN_CLASS)');
 
      IBQuery1.Params[0].AsString := DESIGN_CLASS;
      IBQuery1.ExecSQL;
      CurrencyEdit1.Text := IBQuery1.FieldByName('FRFORMA').AsString;
 
end;

Lorsque j'applique l'evenement onselect de mon ComboBox, une boîte de dialogue : Paramètres DESIGN_CLASS non trouvés s'affiche.

[qi130]

un petit rappel sur le SQL serait le bienvenu....(syntaxe de la commande SELECT)

Dans ton code:

que vaut DESIGN_CLASS (la variable) quand tu l'affectes à ComboClasse.Text ?

3 lignes + bas:

tu alimentes DESIGN_CLASS par un paramètre de IBQuery1 que tu viens juste de fermer (on ne sait pas si elle a été exécutée, ni avec quelle commande, ni le résultat de l'exec)

Bref, ça me parait confus....

Sais-tu bien ce que tu veux faire ?

[neilbgr]

Procedure TForm2.ComboClasseSelect(Sender: TObject);
var
DESIGN_CLASS : String;
begin
{**** Recherche d'instruction sql pour le remplissage
des frais d'inscription et de formation}
//CurrencyEdit2.Text:= ;
ComboClasse.Text:=DESIGN_CLASS; // <-- DESIGN_CLASS n'est pas initialisé !
IBQuery1.Active:=True; // <-- Inutile si y a un Close juste après
IBQuery1.Close;
IBQuery1.SQL.Clear; // <-- Tu viens d'effacer la requete.....
DESIGN_CLASS:=IBQuery1.ParamByName('DESIGN_CLASS').AsString ; // <-- ...donc y a rien dedans, pas meme le paramètre 'DESIGN_CLASS' !
IBQuery1.SQL.Add('SELECT FRFORMA FROM FRAIS WHERE DESIGN_CLASS = ''DESIGN_CLASS'''); // <-- plutot ecrire: [...]WHERE DESIGN_CLASS = ESIGN_CLASS');
IBQuery1.SQL.Add('VALUE (ESIGN_CLASS)'); // <-- Ce n'est pas du SQLvalable dans un SELECT

IBQuery1.Params[0].AsString := DESIGN_CLASS; // <-- là par contre le paramètre existe (si correction), donc ecrire: ParamByName('DESIGN_CLASS').AsString := DESIGN_CLASS;
IBQuery1.ExecSQL; >// <-- F1 sur ExecSQL.. c pas le bon, il faut faire Open;
CurrencyEdit1.Text := IBQuery1.FieldByName('FRFORMA').AsString;

end;

[the watcher]

Euhhh!!! En faite voila
c'est que c'est le contenu du combobox qui sera le critère d'affichage
c'est comme si je faisais un truc de ce genre:

Code :

'select champ1 from table1 where champ2 = 'xxxx''

le resultat sera affiché dans le TEdit1
mais ce resultat affiché dépendra du contenu du combobox

Vous voyez un peu ce que je veux faire les amis.

[neilbgr]

Dans l'inspecteur d'objet, IBQuery1.SQL doit contenir :

Code :

1
2
3
4
 
SELECT FRFORMA
FROM FRAIS
WHERE DESIGN_CLASS = :DESIGN_CLASS

Dans le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Procedure TForm2.ComboClasseSelect(Sender: TObject);
begin
{**** Recherche d'instruction sql pour le remplissage
      des frais d'inscription et de formation}
  WITH IBQuery1 do
    begin
      Close;
      ParamByName('DESIGN_CLASS').AsString := ComboClasse.Text;
      Open;
      IF NOT Eof then
        CurrencyEdit1.text := FieldByName('FRFORMA').AsString
      else
        // Pas de resultat, ON fait coa ?
    end;
end;

Comprends-tu la démarche ?

[the watcher]

Tu n'vas pas m'croire:
Figure-toi que dans l'inspecteur d'objet, IBQuery1.SQL j'ai écrit ceci:

Code :

1
2
3
SELECT FRFORMA
FROM FRAIS 
WHERE DESIGN_CLASS =  'Gecom A'

alors ce 'Gecom A' n'est qu'un critère d'affichage pour une classe !!! C'est pas vrai.

Ok ça y est il tourne à merveille.

Grand merci.