Test d'existence d'une valeur dans une table

Bonjour et joyeux Noël.

Je voudrais savoir comment je peux faire pour tester si une valeur contenue dans un Edit existe déjà dans ma table.

Code:

---

1 2	if (Edit1.Text=AdoQuery1.FieldByName('Table').AsString) then .....

---

Ce code ne marche pas. Et je ne vois pas comment faire.

Merci de m'aider.

Ta syntaxe est juste le raisonnement aussi mais je ne sais pas si Table est un nom de champs.
Explique un peu plus.

Salut,
je vois deux solutions possibles :
faire une boucle sur les enregistrements de la table (c'est long ):

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Var b : boolean;   Matable.first; b:=false; While not Matable.Eof do Begin If Matable.fieldByName('MonChamp').asString=Edit1.Text then b:=true; Matable.Next; End; If b then showmessage('Valeur de MonChamp existante') Else showmessage('Valeur de MonChamp non trouvée');

---

Sinon il faut passer par une requete SQL (c'est tres rapide)

Code:

---

1 2 3 4 5

AdoQuery.Clear; Adoquery.SQL.Text := 'SELECT count(MonChamp) FROM Matable WHERE MonChamp='+QuotedStr(Edit1.text); AdoQuery.Open; if AdoQuery.FieldCount>0 then showmessage('Valeur de MonChamp existante') Else showmessage('Valeur de MonChamp non trouvée');

---

@ plus et joyeux noel

Merci pour vos réponses.

A JustMe : Ce code est placé dans l'évènement OnExit de l'Edit1. En mode Append (insert), il teste si ce qui est tapé dans l'Edit1 existe déjà dans la table. Bien évidemment, dans mon prog, Table s'appelle en réalité Titre et le code réel est :

Code:

---

1 2	if (DBEditTitre.Text=AdoQuery1.FieldByName('Titre').AsString) then ShowMessage ('Risque de doublons !!! A vérifier. ');

---

Quelque soit ce que je tape dans l'EditTitre, il me dit toujours qu'il existe déjà dans ma table. Et je ne comprends pas pourquoi.

Citation:

---

Envoyé par dleu

Je voudrais savoir comment je peux faire pour tester si une valeur contenue dans un Edit existe déjà dans ma table.

---

quelque chose comme :

Code:

---

1 2 3 4 5 6 7 8

var Resultat : Variant; begin Resultat := ADOTable1.LookUp('Titre',DBEditTitre.Text); if VarIsNull(Resultat) then begin //pas de résultat ShowMessage('Doublons!'); DBEditTitre.SetFocus; end; end;

---

Salut,

Citation:

---

Envoyé par dleu

En mode Append (insert), il teste si ce qui est tapé dans l'Edit1 existe déjà dans la table.

---

C'est bizarre, en mode insertion tu testes si la valeur est dans la table ou pas -> je pense qu'il serait plus judicieux de tester avant de passer en mode insertion.

Citation:

---

Envoyé par dleu

Code:

---

1 2	if (DBEditTitre.Text=AdoQuery1.FieldByName('Titre').AsString) then ShowMessage ('Risque de doublons !!! A vérifier. ');

---

Quelque soit ce que je tape dans l'EditTitre, il me dit toujours qu'il existe déjà dans ma table. Et je ne comprends pas pourquoi

---

Est ce un TEdit ou un TDBEdit ?
Le TDBEdit est relié à ta table et contient le champ de l'enregistrement actif, si tu executes le code ci-dessus tu compares le champ de l'enregistrement actif avec lui meme !
Pour tester sur la totalité des enregistrements de ta table :

Code:

---

1 2 3

if ADOTable1.Locate('Titre',Edit1.Text,[]) then ShowMessage('Existe dans la table') Else ShowMessage('pas dans la table');

---

Regarde dans l'aide les options du locate (loCaseInsensitive ou loPartialKey) selon ce que tu veux faire.
@ plus

Locate te positionne sur l'enregistrement trouvé (s'il existe) et je ne veux pas ça.

Ce que je veux : lors de l'encodage de la fiche, le prog teste si le titre existe déjà. Puisque j'encode, je suis évidemment en mode insertion. Et ce test n'a pas pour but d'interdire les doublons (il y a d'autres moyens pour cela) mais juste de signaler qu'il y a un risque de créer un doublon. Comme je suis en mode insertion quand je tape le titre, je voudrais être toujours en mode insertion après le test.

Et je crois que la solution de King est correcte. Je la teste actuellement.

Bon, aucune de ces méthodes ne me donnent satisfaction parce que, soit elles ne fonctionnent pas, soit elles me sortent du mode d'insertion.

Je continue donc à chercher.

Merci encore pour votre aide.

Bonjour,

Le problème n'est-t-il pas dû au fait que tu utulises un DbEdit. Fais un essai avec un Edit.

Dans ton onexit, tu fais une requete qui va te permmet de voir si le titre existe déja

Select * from tatable
where titre = :titre

et en paramètres tu met titre := dbedit.text