Recherche de doublons dans une tableRésolu

Question

Bonjour,

Avant la fonction Post dans une table Paradox je voudrais v&#233;rifier si cet enregistrement n'existe pas dans la table (saisir deux fois une facture par exemple)

j'ai essay&#233; avec une boucle mais je dois mal formuler cette boucle car le prog plante 

Si quelqu'un peut expliquer comment faire pour v&#233;rifier si un enregistrement existe je l'en remercie &#224; l'avance.

Ce n'est pas parce qu'on d&#233;bute que l'on est forcement idiot
DGPat

roud59 · Accepted Answer

Je ne pense pas que cette syntaxe SQL existe avec Pradox et voil&#224; peut-&#234;tre une autre solution :

Tu cr&#233;es un autre TTable (Table2) avec le m&#234;me TableName que ta table en edition (Table1)
Dans ton Table1.BeforePost tu fais :

  Table2.Refresh; // actualiser, les enregistrement sauf celui de Table1 qui n'est pas post&#233;
  if Table2.Locate('Mois;Region;Imputation', VarArrayOf(cbMois.text, ...),[loCaseInsensitive]) then
  raise Exception.Create('Doublon'); // par exemple

Tu peux aussi utiliser lookup. Il faut utiliser une autre table (table2) car lookup ou locate font un post sur les tables en edition.

Roud59

cs_grandvizir · Answer

Essaye la commande IF NOT EXISTS juste apr&#232;s le premier mot cl&#233; de la requ&#232;te, style :
INSERT IF NOT EXISTS INTO ...

===========
Validez les r&#233;ponses si ok...

ViewVite XP : HTML

DGPat · Answer

Merci GrandVizir de m'avoir r&#233;pondu

C'est justement l&#224; que je plante, je ne sais pas formuler correctement cette fonction

J'ai un DBEdit qui s'appele DBEdJustificatif pour un Champ du m&#234;me nom c'est justement ce champ que je veux v&#233;rifier avant de valider l'enregistrement

 J'ai Bouton "Valider" sa fonction all&#233;g&#233;e est la suivante:

DModAnaly.TAnalyt.FieldByName('Mois').Value:= CbMois.Text;
DModAnaly.TAnalyt.FieldByName('Region').Value:= CbReg.Text;
DModAnaly.TAnalyt.FieldByName('Imputation').Value:= CbImput.Text;
DModAnaly.TAnalyt.Post;
end;

Pourrais tu me donner un exemple a partire de cette fonction pour que je comprenne

Merci de ta patience

Ce n'est pas parce qu'on d&#233;bute que l'on est forcement idiot
DGPat

cs_grandvizir · Answer

Je ne suis pas pro du BDE de Delphi, car je ne g&#232;re des BDD qu'avec Php/MySql. C'est comme si je n'avais que le TQuery en somme...

Ce que je peux te dire pour l'instant (et &#231;a sera tout  d'ailleurs), c'est de regarder :
c:\program files\Borland\Common Files\BDE\localsql.hlp

Ca fait 101 ko et &#231;&#224; r&#233;sume tout bien sur le SQL... 

===========
Validez les r&#233;ponses si ok...

ViewVite XP : HTML

DGPat · Answer

Merci,
Je vais regarder

Ce n'est pas parce qu'on d&#233;bute que l'on est forcement idiot
DGPat

Recherche de doublons dans une table

5 réponses

Votre réponse

Discussions similaires