Discussion :

[bhami9]

salut mes amies
j'ai un problème de programme du SQL

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
procedure TFetat_operation.Button1Click(Sender: TObject);
begin
FEtat_sorti_op.query1.SQL.Clear;
FEtat_sorti_op.Query1.SQL.Add('select*');
FEtat_sorti_op.Query1.SQL.Add('from avoir ,operation ,rubrique');
FEtat_sorti_op.Query1.SQL.Add(' where operation.Num_op ='+Edit1.Text+'and operation.Num_op=avoir.Num_op and rubrique.Num_reb=avoir.Num_reb and avoir.cout_ant=1 and avoir.cout_act=1 and rubrique.dési_rub=1');
FEtat_sorti_op.query2.SQL.Clear;
FEtat_sorti_op.Query2.SQL.Add('select*');
FEtat_sorti_op.Query2.SQL.Add('from avoir ,operation , rubrique');
FEtat_sorti_op.Query2.SQL.Add(' where operation.Num_op ='+Edit1.Text +'and operation.Num_op=avoir.Num_op and rubrique.Num_reb=avoir.Num_reb and avoir.cout_ant=2 and avoir.cout_act=2  and rubrique.dési_rub=2');
FEtat_sorti_op.query3.SQL.Clear;
FEtat_sorti_op.Query3.SQL.Add('select*');
FEtat_sorti_op.Query3.SQL.Add('from avoir ,operation , rubrique');
FEtat_sorti_op.Query3.SQL.Add(' where operation.Num_op ='+Edit1.Text +'and operation.Num_op=avoir.Num_op and rubrique.Num_reb=avoir.Num_reb and avoir.cout_ant=3 and avoir.cout_act=3 and  rubrique.dési_rub=3');
FEtat_sorti_op.query4.SQL.Clear;
FEtat_sorti_op.Query4.SQL.Add('select*');
FEtat_sorti_op.Query4.SQL.Add('from avoir ,operation , rubrique');
FEtat_sorti_op.Query4.SQL.Add(' where operation.Num_op ='+Edit1.Text +'and operation.Num_op=avoir.Num_op and rubrique.Num_reb=avoir.Num_reb  and avoir.cout_ant=4 and avoir.cout_act=4 and  rubrique.dési_rub=4');
FEtat_sorti_op.Query1.Active:=True;
FEtat_sorti_op.Query2.Active:=true;
FEtat_sorti_op.Query3.Active:=true;
FEtat_sorti_op.Query4.Active:=true;
FEtat_sorti_op.QuickRep1.Preview;
end;
 
procedure TFetat_operation.Button2Click(Sender: TObject);
begin
FEtat_sorti_op.query1.SQL.Clear;
FEtat_sorti_op.Query1.SQL.Add ('select*');
FEtat_sorti_op.Query1.SQL.Add ('from avoir ,operation , rubrique');
FEtat_sorti_op.Query1.SQL.Add (' where operation.Num_op ='+Edit1.Text+'and operation.Num_op=avoir.Num_op and rubrique.Num_reb=avoir.Num_reb  and avoir.cout_ant=1 and avoir.cout_act =1 and  rubrique.dési_rub=1');
FEtat_sorti_op.query2.SQL.Clear;
FEtat_sorti_op.Query2.SQL.Add ('select*');
FEtat_sorti_op.Query2.SQL.Add ('from avoir ,operation , rubrique');
FEtat_sorti_op.Query2.SQL.Add (' where operation.Num_op ='+Edit1.Text+'and operation.Num_op=avoir.Num_op and rubrique.Num_reb=avoir.Num_reb   and avoir.cout_ant=2 and avoir.cout_act=2 and  rubrique.dési_rub=2');
FEtat_sorti_op.query3.SQL.Clear;
FEtat_sorti_op.Query3.SQL.Add ('select*');
FEtat_sorti_op.Query3.SQL.Add ('from avoir ,operation , rubrique');
FEtat_sorti_op.Query3.SQL.Add (' where operation.Num_op ='+Edit1.Text+'and operation.Num_op=avoir.Num_op and rubrique.Num_reb=avoir.Num_reb    and avoir.cout_ant=3 and avoir.cout_act=3 and  rubrique.dési_rub=3');
FEtat_sorti_op.query4.SQL.Clear;
FEtat_sorti_op.Query4.SQL.Add ('select*');
FEtat_sorti_op.Query4.SQL.Add ('from avoir ,operation , rubrique');
FEtat_sorti_op.Query4.SQL.Add (' where operation.Num_op ='+Edit1.Text +'and operation.Num_op=avoir.Num_op and rubrique.Num_reb=avoir.Num_reb   and avoir.cout_ant=4 and avoir.cout_act=4 and  rubrique.dési_rub=4');
FEtat_sorti_op.Query1.Active:=True;
FEtat_sorti_op.Query2.Active:=true;
FEtat_sorti_op.Query3.Active:=true;
FEtat_sorti_op.Query4.Active:=true;
FEtat_sorti_op.QuickRep1.Print;
end;

j'ai un message ERREUR qui dit
différence type dans une expression
remarque :
c'est un modèle Externe