Discussion :

[alves1993]

salut a tous

je sais pas comment m'y prendre pour pouvoir incrémenté de manière automatique une id d'une table.

en effet j'ai essayé ce moyen là mais suis pas arrivé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
procedure TForm1.incrementationID(Sender: TObject);
var
  incClient : integer ;
begin
 
   qrySelect.Close();
   qrySelect.Open();
   incClient := qrySelect.FieldByName('id').Value;
   if incClient = 0 then
      edtID.Text := '1'
   else
    edtID.Text := intTostr(incClient + 1);
 
end;

en faite il récupère la première valeur de mon id donc se qui m'arrange surtout pas.
on m'a parlé des triggers mais je m'y connais pas trop donc sa sera pas mauvais de m'en parlé un peu

NB : suis sur embacadero XE5 j'utilise comme SGBD fireBird a l'aide FireDac et IBexpert

[ShaiLeTroll]

fireBird , pour le TRIGGER et la SEQUENCE (GENERATOR est le nom Firebird), il suffit de lire la How to create an autoincrement column?

TRIGGER c'est un évènement qui se produit lors d'action sur une table, donc ton cas lors du INSERT
GENERATOR est un objet de la DB qui s'incrémente à chaque fois que l'on l'invoque


Sinon ton code en local pourrait fonctionner (a bannir dans un programme profesionnel et surtout en cas d'accès concurrentiel c'est à dire plusieurs utilisateurs en même temps par le réseau)

Code :

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

1
2
3
qrySelect.Open();
qrySelect.Last(); // Juste ça mais c'est horrible de charger toutes la table pour en trouver la suite du compteur, autant utiliser directement un TFDTable !
   incClient := qrySelect.FieldByName('id').Value;

ou alors un SELECT MAX(...) FROM LaTable

[alves1993]

je sais mais je reçois une erreur : qrySelect paramètre 'id' non trouvé

n'est il pas possible d’accéder a la valeur du dernier id avec cette syntaxe

Code :

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

incClient := qrySelectID.value;

à vrai dire je sais si mon erreur viens de mon code SQL ou de mon code delphi

Sinon ton code en local pourrait fonctionner (a bannir dans un programme profesionnel et surtout en cas d'accès concurrentiel c'est à dire plusieurs utilisateurs en même temps par le réseau)

oui mon application est en locale. quel dégât ou quel problème peut engendrer mon bout de code en réseau ??

[SergioMaster]

Bonjour

je sais mais je reçois une erreur : qrySelect paramètre 'id' non trouvé
n'est il pas possible d’accéder a la valeur du dernier id avec cette syntaxe

Comme on n'a pas le texte de la query , difficile de dire que oui

Code :

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

incClient := qrySelectID.value;

pour accéder comme cela il faut que les champs soit déclarés , sinon il faut utiliser

Code :

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

incClient := qrySelect.FieldByName('ID').value;

autre solution que le COUNT ,

Code SQL :

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

SELECT FIRST 1 ID FROM TABLE ORDER BY ID DESC

récupérera uniquement la dernière ID

oui mon application est en locale. quel dégât ou quel problème peut engendrer mon bout de code en réseau ??

une possibilité (minime mais possible) d'identifiant en double

la meilleure solution reste quand même un Générateur et un Trigger , surtout en réseau car l'incrémentation du générateur se fait dans une transaction séparé

[alves1993]

Comme on n'a pas le texte de la query , difficile de dire que oui

Code :

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

incClient := qrySelectID.value;

oui en effet c'est possible je devait en faite ajouter des champs de ma table dans le field de la query

la meilleure solution reste quand même un Générateur et un Trigger , surtout en réseau car l'incrémentation du générateur se fait dans une transaction séparé

oui je crois que je vais opté pour cette solution

merci quand même pour m'avoir éclairé