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)

[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,