Rechrche dans DBgrid a laide d'un editRésolu

Question

salut,
j'aimerais bien connaitre comment chercher un nom dans une dbgrid a l'aide de la commande LIKE
c a d lorsque je tape la lette D tout le dbgrid affiche momentanement Dupent,Dunant ,Dora...
le faite que j'ajoute la lettre U c a d   DU le dbgrid affiche seulement Dupent et Dunant et ainsi de suite

cs_cantador · Accepted Answer

La recherche incrémentale n'existe pas dans un TdbGrid...
Il te faut le TcxGrid (non free)

Tu peux jeter un oeil sur cet article qui tente de faire un compromis dans la recherche mais qui n'a rien à voir avec la précédente :
http://delphi.about.com/od/database/l/aa121499a.htm

Si ce n'est pas pour faire de l'automatique alors tu peux toujours pour quelques extractions particulières lancer une requête SQL sur la table.

cantador

cs_eli42 · Answer

Si c'est un DBGrid, c'est forcement de la base de données faut faire comme dit Cantador, du sql sur ton TEdit onKeyup ou onKeypress, c'est le plus simple 

Bonne prog a tous (tes)

siahmedaek · Answer

merci pour l'idee

solilog · Answer

Bonjour,
Essaye çà:
Dans l'évenement OnChange de ton edit1 ... 

procedure TForm1.Edit1Change(Sender: TObject);
begin
   if edit1.Text <> ''  then
      table1.locate(['NOM'], [edit1.Text], [ loCaseInsensitive, loPartialKey
 ])
      // loCaseInsensitive ignore MAJ / min
      else
      table1.first;
end;

Salut
solilog

solilog · Answer

Mais ainsi le dbgrid pointe sur le bon rec, idem avec findnearest

siahmedaek · Answer

Probleme Resolu,Merci Solilog

procedure TForm1.Edit1Change(Sender: TObject);
begin
   if edit1.Text <> ''  then
      table1.locate(['NOM'], [edit1.Text], [ loCaseInsensitive, loPartialKey ])
      // loCaseInsensitive ignore MAJ / min
      else
      table1.first;
end;

Rechrche dans DBgrid a laide d'un edit

6 réponses

Votre réponse

Discussions similaires