programme SQL delphi 7

Version imprimable

2 pièce(s) jointe(s)

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

Code:

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

15/11/2010, 12h57
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 . :fleche:
15/11/2010, 12h58
chaplin

Je fairais QuoteStr(edit1.Text) à la place de edit1.Text. Je privilégie les requêtes paramétrées.
15/11/2010, 13h12
bhami9

programme SQL delphi 7

Slt
oui bien sur
j'ai tester le programme requête par requête mais toujours le même message erreur :calim2:
15/11/2010, 13h15
bhami9

programme SQL delphi 7

voila le message ERREUR

Citation:

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.
15/11/2010, 13h54
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
15/11/2010, 14h11
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
15/11/2010, 14h25
bhami9
si :roll:
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 :calim2:

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

1 2 3 4 select* from operation ,rubrique ,avoir where operation.Num_op =avoir.Num_op and rubrique.Num_reb=avoir.Num_reb
15/11/2010, 15h05
Linkin

En mode pas à pas, est-ce que tu as essayé de copier le contenu de FEtat_sorti_op.Query1.SQL.text, ou ne serait-ce que remplacer Edit1.text par une valeur quelconque? (C'est la base pour déboguer).

ça a bien l'air d'être un problème d'espace.
15/11/2010, 15h22
Rayek

Quel est le type du champ operation.Num_op ?
16/11/2010, 09h21
SergioMaster

+1 avec Rayek le champ operation.Num_op est-il bien comme suggéré par le nom , numérique ?
je note aussi le * bien trop près du SELECT (déjà cité)
mais aussi le é du champ rubrique.dési_rub , je ne suis pas sur que BDE apprécie .
Pour finir , et debugger , puisque cela semble du BDE est-ce que tu as testé les SQL séparemment via l'explorateur de Base de données ?
16/11/2010, 21h07
bhami9

programme sql delphi7

salut Rayek
le champ operation.Num_op c'est un champ Alpha Numérique (AN), mais
au paradox il s'affiche (A)
17/11/2010, 09h27
Rayek

Citation:

Envoyé par bhami9

salut Rayek
le champ operation.Num_op c'est un champ Alpha Numérique (AN), mais
au paradox il s'affiche (A)

Donc il te faut ajouter QuotedStr() sur tes Edit1.text pour que cela fonctionne (Rappel que pour les bases de données, il faut que les champs de type Alphanumérique soient encadrés par le délimiteur de la base de données).
Sinon pour éviter les problèmes de ce genre, le mieux est de passer par les paramètres

ce qui ne serait pas arrivé en utilisant une requête paramétrée

Code:

1
2
3
4
5
6
7
 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 =:N');
...
FEtat_sorti_op.ParamByName('N').asString:=Edit1.Text;
..