Rechercher dans un DBGrid

Question

Bonjour,

J'aimerais savoir si il existe une facon plus efficace de faire une recherche de texte dans un DBGrid que "LOCATE".

Mon code marche bien mais j'aimerais avoir la possibilit&#233; de faire par la suite un bouton suivant au cas ou il y aura un autre mot similaire.

Mon code est le suivant : DataSource.DataSet.Locate('colonne',VarArrayOf(['mot &#224; rechrcher']),[loCaseInsensitive, loPartialKey]);

colonne=Fra
mot &#224; rechercher=cool

Merci pour vos r&#233;ponses.

cs_sim51 · Answer

Salut,

Si mes souvenir sont bons, ils existe la fonction locatenext qui te permet de passer au suivant.

Voil&#224;, bon courage.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e si la r&#233;ponse vous convient !!!

hysteria74 · Answer

Elle existe bien mais comment y avoir l'acc&#232;s ca ne marche pas sous delphi7:

DataSource.DataSet.LocateNext('colonne',VarArrayOf(['mot &#224; rechrcher']),[loCaseInsensitive, loPartialKey]);

Il trouve que Locate!!!

cs_yaghmouracen · Answer

YaghmouracenPossible a l'aide du filtre de la Table paradoxe 

{* Edit1.Text:='Mot Inconnue dans la Table'
 Le Mot 'Moh'na Aucune signification dans        votre Table*}
procedure TFrmCyDBAdvGrid.cySpeedButton45Click(Sender: TObject);
Var S:String;
Begin
S:='Designation';//Champ Text de la Table
    Table1.Filter:=S+'<>'''+'Moh'+'''';
    Table1.Filtered:=True;
End; 

Avec OnFilterRecord
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;var Accept: Boolean);
  Var S:String;
      K:Integer;
begin     
     S:=Edit1.Text;
     K:=Pos (S,Table1Désignation.AsString);
     Accept := (K>0);
End;

cs_sim51 · Answer

Et j'espère qu'il n'a pas attendu la réponse ... 
Sinon cela fait 7 ans d'attente :D

Rechercher dans un DBGrid

4 réponses

Votre réponse

Discussions similaires