delphi procedure stockée

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

Code:

---

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

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

Voilà

Code:

---

1 2 3 4

BEGIN NEW_VALUE = GEN_ID(POST_IDPOST_GEN, 1); END

---

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

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.

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

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)

NEW_VALUE renvoie toujours 0 bizzare comme même

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:

---

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:

---

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à.

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

Citation:

---

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:

---

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 ;)

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

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

Code:

---

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;

---

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:

---

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:

---

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

peut être avec un suspend :aie:

Citation:

---

Envoyé par colfire_dev

Voilà

Code:

---

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:

---

1 2 3 4

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

---

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é

Citation:

---

Envoyé par 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é

---

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, :aie: