Discussion :

[dleu]

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 :

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

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.

[JustMe]

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

[bidochon]

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

Code :

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

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 :

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

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

[dleu]

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 :

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

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.

[Giovanny Temgoua]

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 :

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

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;

[bidochon]

Salut,

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.

Code :

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

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 :

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

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

[dleu]

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.

[dleu]

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.

[Francis]

Bonjour,

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

[mika]

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