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.
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.
L'important n'est pas de tout savoir mais de savoir où tout se trouve !
Par ex:
en ayant codé le query ainsi
Code : Sélectionner tout - Visualiser dans une fenêtre à part Edit1.Text:=Query1.FieldByName('lechamp').AsString;
Code : Sélectionner tout - Visualiser dans une fenêtre à part 'SELECT lechamp from MaTable where...'
"Il n'y a pas de bonnes réponses à une mauvaise question." (M. Godet)
-----------------------
Pensez à cloturer votre sujet - Aucune réponse aux sollicitations techniques par MP
Usus magister est optimus
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 ?
L'important n'est pas de tout savoir mais de savoir où tout se trouve !
Oui, une requète dynamique quoi !
"Il n'y a pas de bonnes réponses à une mauvaise question." (M. Godet)
-----------------------
Pensez à cloturer votre sujet - Aucune réponse aux sollicitations techniques par MP
Usus magister est optimus
Vérifie ce code
Lorsque j'applique l'evenement onselect de mon ComboBox, une boîte de dialogue : Paramètres DESIGN_CLASS non trouvés s'affiche.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;
L'important n'est pas de tout savoir mais de savoir où tout se trouve !
Vérifie ce code pour moi s'il te plaît;
Lorsque j'applique l'evenement onselect de mon ComboBox, une boîte de dialogue : Paramètres DESIGN_CLASS non trouvés s'affiche.
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;
L'important n'est pas de tout savoir mais de savoir où tout se trouve !
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager