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

[redoran]

Slt, je vous propose de testé requête par requête pour savoir la quelle elle génère l'erreur ...! ensuite cherche peut être c'est due aux affectations des paramètres .

[bhami9]

Slt
oui bien sur
j'ai tester le programme requête par requête mais toujours le même message erreur

[chaplin]

Je fairais QuoteStr(edit1.Text) à la place de edit1.Text. Je privilégie les requêtes paramétrées.

[bhami9]

voila le message ERREUR

Notification d'une exception du débogueur
---------------------------
Le projet Project2.exe a provoqué une classe d'exception EDBEngineError avec le message 'Différence de type dans une expression.'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.

[Linkin]

Essaie de copier le contenu de FEtat_sorti_op.Query1.SQL.text et exécute le directement dans le client de ta base(je ne trouve plus le nom de ce type de logiciel) .ex: SQLPlus WorkSheet pour Oracle

[Rayek]

Je pense qu'il faut un espace entre le Select et *.

Sinon pourquoi faire 4 requêtes alors qu'avec une seule et un filtre pour récupérer les données serait mieux

[bhami9]

si
par ce que on a 4 cout actuel et 4 cout antérieur et 4 désignation rubrique finance
si pour sa il y 4 requête

voila la requête que j'ai fait dans les 4 QUERy

Code sql :

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

1
2
3
4
 select*
from operation ,rubrique ,avoir
where  operation.Num_op  =avoir.Num_op   and
rubrique.Num_reb=avoir.Num_reb