Discussion :

[sasuke18]

BONJOUR
il y a des erreurs au niveau de ma requête pouvez vous me la corriger svp
sachant que j'utilise delphi7 num_ins de type A et annee de type N.
MERCI

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
 
 
procedure TForm5.Button1Click(Sender: TObject);
begin
form7.query1.sql.clear;
form7.query1.sql.add('select *');
form7.query1.sql.add('from etudiant, note');
form7.query1.sql.add('where etudiant.num_ins=note.num_ins '
                     'and etudiant.num_ins=' + edit1.text + 
                     'and note.annee=' + ComboBox1.text + );
 form7.Query1.Active:=true;
 form7.QuickRep1.Preview;
end;
 
end.

[freud]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
With form7.Query1 do 
Begin
Active:=false;
sql.clear;
sql.add('select * ');
sql.add('from etudiant, note ');
sql.add('where etudiant.num_ins=note.num_ins ');
sql.add('and etudiant.num_ins=:Param1 and note.annee=:Param2');
ParamByName('Param1').AsString:=Edit1.Text;
ParamByName('Param2').AsInteger:=StrToInt(ComboBox1.text);
Active:=true;
QuickRep1.Preview;
End;

[sasuke18]

MERCI infiniment ça fonctionne a la perfection