Discussion :

[halimelio]

Bonjour,

bon voilà, j'ai une BD oracle, et je voudrais faire un prg avec delphi qui va me permettre de faire une consultation sur une table (clients) en activant un filtre sur la table désque je commence à taper le nom (par ordre alphabetique)

ce que j'ai pu faire :
1. la connexion à la BD
2. affichage de la table sur un DBGRID (tous les enregistrements)

ce que je n'ai pas pu faire :
désque je commence à taper sur le champ de recherche , rien ne se passe , et si je tape sur la touche ENTREE , l'affichage disparait et je ne peux plus avoir le contrenu de la table , jusqu'à ce que je quitte la fenetre (CTRL+ALT+SUPP)
je suis un débutant avec DELPHI
j'ai pu faire ce que j'ai envie de faire avec une table en DBF (dbase).

merci

[Just-Soft]

Salut

tu as un problème au niveau du code donc vaut mieux le coller comme ça chacun pourra contribuer en améliorant ton code le cas échéant le laisser de coté.

pour ce type de recherche tu peux utiliser la fonction FINDNEAREST mais qui, si je me rappel bien, à besoin d'un champ indexé comme argument.

[halimelio]

re,

j'ai pas le code avec moi pour le moment, mais je crois que le problème réside au niveau de l'index.
la question est comment intégrer l'index ? à partir de l'inspecteur d'objet ? ou bien à partir du code ?
un autre détail : la connexion à la BD s'est effectuée avec ADO

merci

[Just-Soft]

Salut;

tu peux faire ça en SQL dans l'évènement en OnKeyPressed de ton Edit, à chaque frappe de touche le code s'exécute.

Code :

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

1
2
3
4
5
6
 
Query1.Clear;
Query1.SQL := 'Select * From taTable';
Query1.SQL := Query1.SQL + ' Where tonChamp =: var' + '%';
Query1.ParamByName('var') := Edit1.Text; 
Query1.ExecSQL

à toi de tester.

[halimelio]

salut ,

bon voilà , je vais coller mon code et àvous de me le corriger !
c pas vraiment fameux mais il faut un début à tout

Code :

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

1
2
3
adotable1.Filtered := False ;
adoTable1.Filter:= 'Nom ='+QuotedStr(Edit1.Text);
adoTable1.Filtered := True;

ciao

[Just-Soft]

salut ,

bon voilà , je vais coller mon code et àvous de me le corriger !
c pas vraiment fameux mais il faut un début à tout

adotable1.Filtered := False ;
adoTable1.Filter:= 'Nom ='+QuotedStr(Edit1.Text);
adoTable1.Filtered := True;


ciao

s'il donne le résultat escompté c'est qu'il est bon.