Discussion :

[colfire_dev]

j'ai une erreur E2171 la variable self est inaccessible ici du fait de l'optimisation, voila mon code :

Code :

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

1
2
3
4
5
6
 
if qPost.State = dsInsert then
    begin
      proc1.ExecProc;
      qPost.FieldByName('idpost').AsInteger := proc1.FieldByName('NEW_VALUE').AsInteger;
    end;

Dans ma base interbase idpost est declaré comme integer autoinc

[chaplin]

Ta procédure stockée renvoie comment les données ?

[colfire_dev]

Voilà

Code :

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

1
2
3
4
 
BEGIN
  NEW_VALUE = GEN_ID(POST_IDPOST_GEN, 1);
END

[tourlourou]

n'est-ce pas étrange d'affecter une valeur à un champ (idpost) autoincrémenté ?
mais les BDD ne sont pas mon domaine !

[Andnotor]

Cette erreur est une erreur du debuger et n'a rien à voir avec le code.
Tu as mis un point d'arrêt et tu essayes de connaître la valeur d'une variable qui n'est plus considérée comme "vivante" (le point d'arrêt est placé après la dernière utilisation de cette variable).

Soit tu remontes ton point d'arrêt de plusieurs lignes, soit tu édites les options du projet et tu décoches Optimisation dans la section Compilateur.

[colfire_dev]

là j'ai enlevé le point d'arrêt j'ai ce messsage d'erreur :
violation of PRIMARY or UNIQUE KEY constraint "INTEG_30" on Table "Post"

j'essayais de cherher d'où venait l'erreur c'est pour cela que j'ai mis le point d'arrêt.
j'essaye de créer un autoinc avec interbase comme il ne le gere pas j'ai du passer par cette procedure

[Andnotor]

Il te manque peut-être alors simplement un +1.

Le message te dit que tu essayes d'insérer une nouvelle ligne avec une valeur qui est déjà utilisée dans la colonne idpost. (champ qui doit être unique à travers toute la base de données)

[colfire_dev]

NEW_VALUE renvoie toujours 0 bizzare comme même

[Andry]

Sous Interbase, les champs AutoInc comme ceux de Paradox ou Access n'existe pas vraiment.
Pour en avoir un, il faut recourir à l'utilisation d'un generator et un Trigger before Insert sur la table en question.
Donc normalement, il y a 2 solution :
1° soit tu laisse la base gerer l'autoincrement . Ceci dans le cas ou tu n'as pas besoin de la valeur du champs autoinc.

Code :

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

1
2
3
4
5
6
7
CREATE TRIGGER POST_BI FOR POST
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.IDPOST IS NULL) THEN
    NEW.IDPOSTE = GEN_ID(POST_IDPOST_GEN, 1);
END

2° Soit tu as besoin de la valeur du champs autoinc. Dans ce cas je te conseil de créer une procédure Stocké sous IB et d'appeler cette procédure pour récupérer la valeur du champs autoinc.

Code :

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

1
2
3
4
5
6
7
 
CREATE PROCEDURE GET_POST_IDPOST
RETURNS ( ID INTEGER)
AS
BEGIN
  ID = GEN_ID(POST_IDPOST_GEN, 1);
END

Voilà.

[SergioMaster]

pour obtenir le numéro pas besoin de procédure stockée , un sql doit suffire

select gen_id(POST_IDPOST_GEN,1) from RDB$DATABASE

attention , ceci incrémente le compteur

d'autre part il me semble, mais je n'ai pas vérifié, que execproc est un peu comme execsql l'instruction ne renvoie pas de résultat donc pour obtenir le résultat via un procédure stockée cela devrait être quelque chose du genre :

Code :

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

SELECT * FROM GET_POST_IDPOST

avec un open et non un execsql

ce qui revient à ce qui a été indiqué plus haut avec un vavnatage pour la première , pas besoin de PS

[colfire_dev]

j'ai toujours cette erreur malgré tout
violation of PRIMARY or UNIQUE KEY constraint "INTEG_30" on Table "Post"

[colfire_dev]

il y a quelque chose qui va pas ds ma procédure

Code :

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

1
2
3
4
5
6
7
8
procedure Tdm.qPostBeforePost(DataSet: TDataSet);
begin
  if qPost.State = dsInsert then
    begin
      proc1.ExecProc;
      qPost.FieldByName('idpost').AsInteger := proc1.FieldByName('ID').AsInteger;
    end;
end;

[SergioMaster]

reprenons depuis le début.

soit tu as fait comme indiqué par Andry partie 1 auquel cas tu n'as aucun besoin d'appeler de procédure stockée . Si tu obtiens toujours l'erreur c'est que le compteur n'est pas bon . A toi alors de vérifier, via ton client IB préféré les valeurs qui doivent être identiques

Code :

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

1
2
3
4
 
SELECT MAX(IDPOST) FROM POST_BI
et
SELECT GEN_ID(POST_IDPOST_GEN,0) from RDB$DATABASE

il faut , pour le moins que la valeur retournée par le SQL1 soit < au SQL2
Toujours dans cette hypothèse ton code ne sert à rien

Soit tu veux gérer toi même l'incrément
dans ce cas ce n'est toujours pas execproc qu'il faut utiliser mais comme je l'ai déjà dit un SQL .

Code :

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

1
2
3
4
5
6
7
8
9
procedure Tdm.qPostBeforePost(DataSet: TDataSet);
begin
  if qPost.State = dsInsert then
    begin
      Query1.SQL.Clear;
      Query1.SQL.Add('SELECT GEN_ID(POST_IDPOST_GEN,1) from RDB$DATABASE'); // notes bien qu'ici je fais l'incrément de 1
      Query1.open;
      qPost.FieldByName('idpost').AsInteger:=Query1.Fields[0].asInteger;      end;
end;

ceci dit cela revient au même que la solution d'Andry de loin préférable. A un différence près cependant , on obtient la valeur du champ idpost si l'on voulait faire un affichage de cette dernière

[edam]

peut être avec un suspend

Voilà

Code :

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

1
2
3
4
5
 
BEGIN
  NEW_VALUE = GEN_ID(POST_IDPOST_GEN, 1);
  suspend; 
END

pour ma part je ne préfére pas utilisé TIBProc, et pour le incrémént, 3 possibilité
1-tu laisse le composant IBQuery le géré (Generatorfield)
2-utilisation de trigger
3-dans le TIBquery directrement dans la propriété insertquery t'as par example

Code :

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

1
2
3
4
insert into VILLES
  (CODE, VILLE)
values
  (GEN_ID(POST_IDPOST_GEN, 1), :VILLE)

[colfire_dev]

oh! merci Edam avec la requête insert ça marche impeccable .
Pour ma curiosité j'aimerais savoir si ces différentes manières de gérer l'autoinc différent en performance ou en faisabilité

[edam]

oh! merci Edam avec la requête insert ça marche impeccable .
Pour ma curiosité j'aimerais savoir si ces différentes manières de gérer l'autoinc différent en performance ou en faisabilité

Attention avec la 2éme et 3éme méthode , si tu doit utilisé ce champs directement aprés insert je crois que tu doit réouvrir ton TIBQuery,