Discussion :

[21247692]

bonjour

j'au une table matériel (code_mat, nom_mat,dat_mat,.........etc)

je veux saisie un code dans un edit et je test s'il est existe ou non
voila ma procédur mais ne fonctionne pas et elle m'affiche rein:

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
procedure TForm1.Button1Click(Sender: TObject);
var
  x,i:integer;
begin
  x:=strtoint(edit1.Text);
  table.First;
  while table.Eof do 
  begin
    if(table.FieldByName('code_mat').AsInteger<>x) then
      caption:='non';
    else
      caption:='oui'
    table.Next;
  end;
end;

[Franck SORIANO]

He bien tel que ton code est écrit, en réalité tu teste si la valeur saisie correspond au dernier enregistrement de la table.

Pour savoir si la valeur existe dans la table, il faut soit faire une requête, soit faire un Locate (ou lookup), soit faire un FindKey.

La solution a utiliser dépend de ton cas de figure.

Par exemple avec un locate, ça donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
var
  x : integer;
begin
  x := strtoint(edit1.Text);
 
  if table.Locate('code_mat', x, [])
  then caption := 'oui'
  else caption := 'non';
 
end;

[21247692]

BONJOUR

il m'affiche toujour une erreur et apés caption:='Non'

Remarque ma table est (ADOconnection)

[Franck SORIANO]

Et quelle est cette erreur ?

[21247692]

voila:

[IMG]C:\Documents and Settings\YACINE\Bureau\sans titre.btmap[/IMG]

[Franck SORIANO]

Désolé mais l'image n'est pas passée. Il faut l'insérer en pièce jointe.

[21247692]

voila l'erreur:

le projet projet1.exe a provoqué une classe d'eception EDdatabaseeorror avec le mesage 'table'champ(code_mat)' non trouvé

merci

[Franck SORIANO]

Dans ce cas, ça signifie que ton champ ne doit pas s'appeler 'code_mat' dans la table...

Autre possibilité, tu as utilisé un composant TADOTable pour accéder à la table. En design dans l'IDE, tu as fait créer les composants TField de certains champs de la table, mais pas celui du champ 'code_mat'. Si c'est le cas, le composant TADOTable ne voit pas le champ 'code_mat'.

Dans tous les cas, tu aurais déjà dû avoir le problème avec ton FieldByName du départ !

[21247692]

je vous remerci boko

l'erreur est bête,
car j'ai déclaré table name est agent et j'ai utilisé le champ de matériel, c'est ça le probléme

merci pour votre aide