Discussion :

[krole57]

Bonjour,
j'ai une erreur dans le programme suivant :

il a pour but de rajouter des mot dans une table a partir d'un fichier

COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;

/* Stored procedures */


ALTER PROCEDURE AJOUT_MOT
(
MOTS VARCHAR(50),
MOTMOD VARCHAR(50),
FICHIER Varchar(200)
)
AS
declare variable nb integer;
declare variable nb2 integer;
declare variable id1 integer;
declare variable id_fichier integer;
declare variable id_mot integer;
declare variable ok varchar(1);

BEGIN
select count(*) from fichier where (nom_fichier = :fichier) into nb;
if (nb=1)
begin
select traiter from fichier where traiter = : 'T' into ok;
if ok <> 'T' then begin
select ID from fichier where nom_fichier = :fichier into id_fichier;
select count(*) from dictionnaire where mot = :mots into nb2;
if (nb2=0) then begin
id1=gen_id(gen_dictionnaire,1);
insert into dictionnaire(mot,mot_s,id,fichier) values(:mots, :motmod , :id1);
insert into mot_fichier(id_mot,id_fichier) values (:id1, :id_fichier); end
else
begin
select ID from dictionnaire where mot = :mots into id_mot; insert into mot_fichier(id_mot,id_fichier) values (:id_mot, :id_fichier);
end;

end;
end;
END
^

SET TERM ; ^
COMMIT WORK;

[Rayek]

Ca aurait été mieux que tu postes dans le forum correspondant à ton SGBD, car ca n'a rien à voir avec delphi.
Sinon je pense que l'erreur est ce que j'ai mis en rouge dans ton code.
: 'T' , c'est un paramètre ou une constante ? ou un mix des deux peut être ?

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
COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;

/* Stored procedures */


ALTER PROCEDURE AJOUT_MOT
(
MOTS VARCHAR(50),
MOTMOD VARCHAR(50),
FICHIER Varchar(200)
)
AS
declare variable nb integer;
declare variable nb2 integer;
declare variable id1 integer;
declare variable id_fichier integer;
declare variable id_mot integer;
declare variable ok varchar(1);

BEGIN
select count(*) from fichier where (nom_fichier = :fichier) into nb;
if (nb=1)
begin
select traiter from fichier where traiter = : 'T' into ok;
if ok <> 'T' then begin
select ID from fichier where nom_fichier = :fichier into id_fichier;
select count(*) from dictionnaire where mot = :mots into nb2;
if (nb2=0) then begin
id1=gen_id(gen_dictionnaire,1);
insert into dictionnaire(mot,mot_s,id,fichier) values(:mots, :motmod , :id1);
insert into mot_fichier(id_mot,id_fichier) values (:id1, :id_fichier); end
else
begin
select ID from dictionnaire where mot = :mots into id_mot; insert into mot_fichier(id_mot,id_fichier) values (:id_mot, :id_fichier);
end;

end;
end;
END
^

SET TERM ; ^
COMMIT WORK;

[krole57]

c bon merci il y avé ca et d'autre comme le end;