[InterBase] Problème avec les champs incrémentables [Résolu]

[ProgD]

Bonjour tous le monde
J’ai un problème avec un champs incrémentable sur BDD InterBase
J’ai suivi exactement un tutoriel trouvé Dans le site de Développez mais sa marche pas.
Voilà ma procédure

Code SQL :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
/* Stored procedures */
CREATE PROCEDURE "PR_CHAUFEUR"
(
  "AVALUE" INTEGER
)
AS
BEGIN EXIT; END ^

ALTER PROCEDURE "PR_CHAUFEUR"
(
  "AVALUE" INTEGER
)
AS
 Begin
 avalue=Gen_Id(GN_CHAUFEUR,0);
 end
 ^
SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;

Code delphi :

1
2
3
4
5
6
7
8
procedure TMDD.IB_ChauffeurBeforePost(DataSet: TDataSet);
begin
if (IB_Chauffeur.State=dsInsert) then
Begin
IBStoredProc1.ExecProc;
IB_Chauffeur.FieldByName('NumChauf').AsInteger:=IBStoredProc1.FieldByName('AVALUE').AsInteger;
end;
end;

L’erreur qui m’affiche est comme suit :
Champ Avalue non trouvé

Ya t’il un problème sur ce que j’ai fait

[Cl@udius]

Salut

Ta PS, telle que tu l'as définie, ne renvoie aucune donnée.
Elle aurait pu être écrite ainsi:

Code SQL :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
SET TERM ^;
CREATE PROCEDURE PR_CHAUFEUR
RETURNS (
  AVALUE INTEGER
  )
AS
BEGIN
  AVALUE = GEN_ID(GN_CHAUFEUR, 1); -- 1 pour incrémenter la valeur
  SUSPEND;
END
^
SET TERM ;^

Mais si la finalité est d'attribuer une valeur à ton Champ NumChauf, une simple requête aurait suffit (à la place d'une PS):
Avec un IBSQL par exemple:

Code SQL :

1
2
 
  SELECT GEN_ID(GN_CHAUFEUR, 1) FROM RDB$DATABASE;

Ensuite ton code BeforePost devrait fonctionner.

Hors sujet: il y a 2 f à chauffeur.

@+ Claudius

[ProgD]

Je n'est pas compris ? c'est quoi sa RDB$DATABASE

[Cl@udius]

Salut

RDB$DATABASE est une table système qui ne possède qu'un seul enregistrement, et est souvent sollicité sur des instructions select de ce genre.

C'est en fait une simple astuce.

@+ Claudius

[ProgD]

Ma May Sa marche
je vous remercie beaucoup pour votre aide précieuse Claudious
A+