Discussion :

[CoyotteDundee]

Bonjour à toutes et tous...
Nouveau sous Lazarus, j'ai un petit problème à vous soumettre :
J'ai une table dont la clef primaire est de type INTEGER auto-incrémenté.
Je souhaite récupérer la valeur de la clef primaire après insertion d'un nouvel enregistrement.
Voici mon code SQL :

Code :

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

1
2
3
4
5
6
 
insert into topics 
(id, code, label, parent_topic, description)
values
(DEFAULT, :pcode, :plabel, :pparent_topic, :pdescription)
returning id

Et le code Pascal :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
with zqAddTopic do
     begin
       paramByName('pcode').asString := Code;
       paramByName('plabel').asString := Lbl;
       paramByName('pparent_topic').asInteger := ParentTopic;
       paramByName('pdescription').asString := Description;
       ExecSQL;
       result := fieldByname('id').asInteger;
     end;

Ce code fonctionne mais... id vaut toujours 0 alors que les lignes sont bien créées et que le compteur est bien incrémenté...
J'ai également tenté un

Code :

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

returning id into pid

voire même

Code :

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

returning id into :pid

en tentant de récupérer la valeur du paramètre...
Sans succès...
Quelqu'un a-t-il une piste à suggérer ?

versions: Lazarus v 0.9.31 et Zeos Lib 6.51

Merci d'avance,

Michel

[tintinux]

Bonjour

Avec Zeos cela ne marche effectivement pas, et tu en apprendras plus avec cette discussion en anglais. C'est un problème indépendant de Lazarus.

Il parait qu'on peut utiliser les séquences PostgreSql mais la syntaxe varie selon les versions et elle est différente d'autres SGBD. J'y ai renconcé pour rester plus portable.

Sinon il suffit de rechercher la valeur max du champ autoincrémenté juste après l'insertion, à l'intérieur d'une transaction bien entendu.

PS : essaie de passer en Zeos 6.6.6 qui est stable depuis plus d'un an.

[pomalo]

bonjour

effectivement ça ne marche pas avec une requete. La solution que j'ai trouvé qq part sur le net

Code :

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

1
2
3
4
5
6
matable.Insert
//mise à jour des champs
matable.FieldByName('code').AsInteger = code;
matable.FieldByName('label').AsString = label;
matable.Post
lastInsrtId = matable.FieldByName('id').AsInteger;

lastInserId contient le dernier id ajouté
cordialement
Claude

[CoyotteDundee]

Tintinux, Pomalo

L'utilisation d'un ZTable me semble tout-à-fait appropriée dans le cas présent.
Et pour d'autre cas plus complexes, j'utiliserai la transaction.

Merci pour votre aide active,

Michel

[chris37]

Hello

Pour récupérer le dernier identifiant d'un Insert , la réponse se trouve ici dans la doc de PostGreSql.

Il faut lire le résultat de la requete Insert en lui précisant le nom de la rubrique à renvoyer. (Utiliser RETURNING)

INSERT INTO distributors (did, dname) VALUES (DEFAULT, 'XYZ Widgets')
RETURNING did;

Cordialement,
Chris

[Invité]

Bonjour Chris,

Mais est-il envisageable de récupérer cette valeur avec le Zquery.ExecSQL nécessaire à l'exécution de la requête SQL d'insertion ? Je me suis longtemps enquiquiné avec ce problème... Je pensais qu'avec un ExecSQL, on ne pouvait "récupérer" autre chose qu'un try..except..end;. Si tel n'est pas le cas, hum....

Cordialement. Gilles

[tintinux]

Pour récupérer le dernier identifiant d'un Insert , [...] Il faut lire le résultat de la requete Insert.

Ce serait certainement plus efficace mais, comme Selzig, je n'ai jamais réussi à récupérer le paramètre en retour d'une telle requête.

Comment fais-tu exactement ?

[chris37]

Hum, je n'ai pas de serveur PostgreSql sous la main et je viens de relire le fil de discussion et effectivement, c'est curieux...

Que dit le code de zeos lors du execsql, Affecte t'il les variables ?

[tintinux]

je n'ai pas de serveur PostgreSql sous la main

Moi non plus, mais à la prochaine occasion j'essaierai à nouveau.