Discussion :

[the watcher]

Bonjour les amis,
Je voudrais savoir comment faire apparaître le resultat d'une requête sql de IBQuery dans un TEdit ou CurrencyEdit.
Faut-il utiliser un Datasource ?
si oui comment faire la liaison à mon TEdit ou TCurrencyEdit.

Amicalement à tous.

[qi130]

Par ex:

Code :

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

Edit1.Text:=Query1.FieldByName('lechamp').AsString;

en ayant codé le query ainsi

Code :

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

'SELECT lechamp from MaTable where...'

[the watcher]

Je crois que c'est un truc de ce genre le champs qui sera affiché par exemple dans le edit1 dependra du texte affiché dans le edit2. Dison edit2 sera la clause de critère de requête.
je crois qu'il faut mettre en place des paramètres pour le requête du composant query

Qu'en pense-tu ?

[qi130]

Oui, une requète dynamique quoi !

[the watcher]

Vérifie ce code

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 (ESIGN_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.

[the watcher]

Vérifie ce code pour moi s'il te plaît;

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