IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

utilisation de FindKey


Sujet :

Langage Delphi

  1. #1
    Membre éclairé
    Inscrit en
    Août 2009
    Messages
    308
    Détails du profil
    Informations forums :
    Inscription : Août 2009
    Messages : 308
    Par défaut utilisation de FindKey
    Bonjour,
    je veux faire une recherche selon le numero (clé primaire)
    Voici le bout de code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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!

  2. #2
    Membre éprouvé Avatar de redoran
    Homme Profil pro
    Développeur-Amateur
    Inscrit en
    Juin 2010
    Messages
    1 346
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur-Amateur
    Secteur : Santé

    Informations forums :
    Inscription : Juin 2010
    Messages : 1 346
    Par défaut
    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...."

  3. #3
    Membre Expert

    Profil pro
    Leader Technique
    Inscrit en
    Juin 2005
    Messages
    1 756
    Détails du profil
    Informations personnelles :
    Âge : 47
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Leader Technique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juin 2005
    Messages : 1 756
    Par défaut
    Citation Envoyé par Abou Zar Voir le message
    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.

  4. #4
    Membre éclairé
    Inscrit en
    Août 2009
    Messages
    308
    Détails du profil
    Informations forums :
    Inscription : Août 2009
    Messages : 308
    Par défaut
    mon composant est de type IBTable.
    coment gerer mon problème avec ce type?

  5. #5
    Membre éprouvé Avatar de redoran
    Homme Profil pro
    Développeur-Amateur
    Inscrit en
    Juin 2010
    Messages
    1 346
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur-Amateur
    Secteur : Santé

    Informations forums :
    Inscription : Juin 2010
    Messages : 1 346
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

  6. #6
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    119
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2003
    Messages : 119
    Par défaut
    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.

  7. #7
    Membre éclairé Avatar de liazidf
    Homme Profil pro
    Inscrit en
    Mai 2002
    Messages
    281
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations forums :
    Inscription : Mai 2002
    Messages : 281
    Par défaut
    salut,
    pourquoi ne pas utiliser IBQuery , et ecrire votre requete directement.?

Discussions similaires

  1. utiliser les tag [MFC] [Win32] [.NET] [C++/CLI]
    Par hiko-seijuro dans le forum Visual C++
    Réponses: 8
    Dernier message: 08/06/2005, 15h57
  2. Réponses: 4
    Dernier message: 05/06/2002, 14h35
  3. utilisation du meta type ANY
    Par Anonymous dans le forum CORBA
    Réponses: 1
    Dernier message: 15/04/2002, 12h36
  4. [BCB5] Utilisation des Ressources (.res)
    Par Vince78 dans le forum C++Builder
    Réponses: 2
    Dernier message: 04/04/2002, 16h01
  5. Réponses: 2
    Dernier message: 20/03/2002, 23h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo