Existe-t'il une validation à demander apres INSERT ? [Résolu]

[colorid]

Bonjour,

Je débute avec IB, tout se passe cependant relativement bien mais j'ai un problème que je ne comprend pas :

Je crée un nouvel enregistrement dans une table avec la procédure SQL INSERT sous Delphi 2007 à l'aide d'une IBQUERY. Nota : Comme il n'existe pas le type COUNTER comme dans ACCESS j'utilise précédemment une IBTABLE et sa fonction last pour connaître le N° du dernier enregistrement que j'incrémente pour l'affecter à ma PRIMARY KEY déclarée INTEGER

ExecSQL s'effectue sans problème. Si je ferme mon logiciel, aucun problème l'enregistrement est créé je peux le lire dans IBConsole.

Mais si dans la foulée je crée un nouvel enregistrement sans quitter le logiciel et que veux appliquer une nouvelle fois la procédure INSERT pour effectuer ce second enregistrement l'enregistrement précédent n'est pas créé ! et naturellment IB m'adresse une erreur sur PRIMARY KEY car IBTABLE Last n'a pas comptabilisé le précédent enregistrement

Ais-je oublié d'appliquer une procédure SQL qui valide le premier enregistrement dans la table ? Si Oui laquelle ?

[Cl@udius]

Salut

Pourquoi tu n'utilises pas un générateur ? Ils sont spécifiquement dédié à fournir une valeur pour ta PK.

@+ Claudius.

[colorid]

Je viens d'ACCESS et de la bureautique !
C'est déja pas mal que j'ai pu créer uen base IB, mais les générateurs connais pas !

Voici un exemple d'une table de ma base :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 //WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW Création de la TABLE BATCH
  IbQuery1.Close;
  req := 'CREATE TABLE BATCH ('+
         ' BATCH_NO INTEGER NOT NULL, '+       // Clé primaire
         ' BATCH_PRODUCT INTEGER NOT NULL, '+    // Pointeur sur Product
         ' BATCH_CREATOR INTEGER NOT NULL, '+ // Pointeur sur Operator
         ' BATCH_QUANTITY INTEGER NOT NULL, '+ // Quantité en unité de production
         ' BATCH_CREATED TIMESTAMP DEFAULT CURRENT_TIMESTAMP, '+// Date de création
         ' BATCH_NAME VARCHAR(32) NOT NULL, '+ // Nom de série du lot
         ' BATCH_USED BOOLEAN DEFAULT TRUE, '+      // booléen de supression logique
         ' CONSTRAINT PK_BATCH PRIMARY KEY(BATCH_NO) '+
         ')';
  IbQuery1.SQL.Clear;
  IbQuery1.SQL.ADD(req);
  IbQuery1.ExecSQL;

Peux-Tu me donner en exemple le code source pour créer ce génératerur ?

[Cl@udius]

Re,

Envoyé par colorid

Peux-Tu me donner en exemple le code source pour créer ce génératerur ?

Je te conseille pour commencer de consulter ce chapitre de la FAQ IB/FB.

Je pense que y verra plus clair après.

@+ Claudius

[colorid]

Merci c'est assez clair. Je vais m'en occuper de suite

[jupierre]

j'ajoute que l'outil ibexpert (gratuit) te fera ton generateur en 3 coup de clic
et tellement d'autre manip aussi,

franchement IB sans IBexpert c'est comme aller à Dièpe sans voir la mer.

bonne soirée
julien

[colorid]

Je n'ai que 12 tables et elles disposent toute d'un générateur grâce au forum.

Il n'empâche que je vais regarder d'un peu plus près l'outil ibexpert

Merci à tous

[TryExceptEnd]

Envoyé par colorid

Bonjour,

Je débute avec IB, tout se passe cependant relativement bien mais j'ai un problème que je ne comprend pas :

Je crée un nouvel enregistrement dans une table avec la procédure SQL INSERT sous Delphi 2007 à l'aide d'une IBQUERY. Nota : Comme il n'existe pas le type COUNTER comme dans ACCESS j'utilise précédemment une IBTABLE et sa fonction last pour connaître le N° du dernier enregistrement que j'incrémente pour l'affecter à ma PRIMARY KEY déclarée INTEGER

ExecSQL s'effectue sans problème. Si je ferme mon logiciel, aucun problème l'enregistrement est créé je peux le lire dans IBConsole.

Mais si dans la foulée je crée un nouvel enregistrement sans quitter le logiciel et que veux appliquer une nouvelle fois la procédure INSERT pour effectuer ce second enregistrement l'enregistrement précédent n'est pas créé ! et naturellment IB m'adresse une erreur sur PRIMARY KEY car IBTABLE Last n'a pas comptabilisé le précédent enregistrement

Ais-je oublié d'appliquer une procédure SQL qui valide le premier enregistrement dans la table ? Si Oui laquelle ?

Je crois bien qu'il vous manque un COMMIT pour valider par le serveur IB l'insertion que vous faite.
Ceci dit, votre méthode est potentiellement créatrice de conflits, le mieux est bien de créer pour chaque table un champ auto-incrémenté.