utilisation de FindKey

Version imprimable

Bonjour,
je veux faire une recherche selon le numero (clé primaire)
Voici le bout de code
Code:

1 2 3 4 5 6 7 8 9 Procedure TForm1.Button2Click (Sender : TObject) ; Var Rech : integer ; Begin Rech := strtoint ( Inputbox (‘Recherche’,’Entrez le numéro de l’’Employé’’,’1’)) ; If not Table1.FindKey ([rech]) then Messagedlg(‘Le Numéro De l’’Employé que vous avez saisis n’’existe pas’, mtInformation,[mbok],0) ; End ;
Quand je lance l'execution il me dit que l'identifiant Findkey non declaré.
J'utilise Delphi7.
Merci de m'aider à corriger le code!

13/07/2010, 09h18
redoran

salut, est ce que vous avais indexé le champs N° employer.
apparemment votre code est correcte.

[edit]
j'ai relit votre message , avec une clé primaire ca devrait marché revoit votre table si le N° employé est bien la clé primaire, sinon ajoute mot DB dans les uses de la form " normalement c'est pour la recherche par lopartialkey...."
13/07/2010, 13h11
Franck SORIANO

Citation:

Envoyé par Abou Zar

Quand je lance l'execution il me dit que l'identifiant Findkey non declaré.

Quel est le type du composant Table1 ?

FindKey est une méthode du composant TTable. De plus, tu dois avoir cette erreur à la compilation (Ctrl+F9) plutôt qu'à l'exécution.
13/07/2010, 19h43
Abou Zar

mon composant est de type IBTable.
coment gerer mon problème avec ce type?

Salut: excuse pour le retard voila deux solutions que j'utilise sous ADO pour la recherche est c'est a vous de les adapter a ton composant.
Recherche avec filtre dans l'évènement onchange :

Code:

1
2
3
4
5
6
7
8
9
10
11
procedure TFregistre.Edit2Change(Sender: TObject);
begin
if edit2.Text<>'' then
begin
DM1.table1.Filtered:=false;
DM1.table1.Filter:='nreg = '+ QuotedStr(edit2.Text);
DM1.table1.Filtered:=true;
end
else
dm1.table1.Filtered:=false;
end;

ou une autre méthode findkey
button recherche:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TFmConsulEqp.BitRechClick(Sender: TObject);
var
   rech:string;
begin
rech:= ' ';
rech:=InputBox('Recherche d''équipement','Veuillez saisir le N° de Série S.V.P','');
if rech <> ' ' then
             	 begin
 			  DM.TblEqp.IndexFieldNames:= 'N_S_Eqp';
   			TriNSerie.Checked:=true;
          			 if  not DM.TblEqp.FindKey([rech]) then
                 		 begin
             		Beep();
            		 ShowMessage('Désolé on ne peut donner suite à votre requête ,'+#13+
             		' N° de série introuvable');
                  end;
              end;
end;

.

ca marche très bien chez moi. :ccool:

15/07/2010, 00h01
Jeankiki

Salut,
Sur un IBTable, tu peux faire un Locate(Nom du champ, Valeur, Options), biensûr la recherche est plus rapide si le ou les champs sont indexés.
15/07/2010, 00h36
liazidf

salut,
pourquoi ne pas utiliser IBQuery , et ecrire votre requete directement.?