Discussion :

[thered]

bonjour,
je cherche a réaliser un bouton de recherche par ID ou NOM ....
j'utilise ado
prière j'ai besoin d'aide

[ero-sennin]

Salut,

Le bouton rechercher n'est ni plus ni moins qu'un simple bouton qui va exécuter une requête SQL ...
Tu auras donc surement un TEdit qui contiendra la valeur recherché :

La requête SQL sera quand à elle, de cette façon :

Code sql :

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

1
2
3
4
SELECT *
FROM MaTable
WHERE JOINTURE
AND NomTable LIKE '%ValeurDuTEdit%'

Si tu veux un peu plus d'infos, il nous faudra avoir un peu plus de détail sur ce que tu souhaite faire

[thered]

bein
j'ai une petite application, ou je vais insérer des données ( nom, prenom, adresse ....);
j'ai creer
-edit
-bouton de recherche

je veux faire une recherche dans une table nomée Contact par ID

[Cl@udius]

Salut

Avec un Locate sur le OnClick du bouton Recherche:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFormMain.ButtonRechercheClick(Sender: TObject);
begin
  if EditRechID.Text <> '' then
  begin
    if not ADOTblContact.Locate('ID', EditRechID.Text, []) then
      ShowMessage('ID: ' + EditRechID.Text + ' non trouvé.');
  end
  else
    ShowMessage('Veuillez saisir l''ID du contact.');
end;

A noter que si ta table est en cours de modification (dsInsert ou dsEdit) un Post sera effectué avant le Locate.

@+ Claudius

[ero-sennin]

La requête devrait être celle-ci :

Code sql :

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

1
2
3
SELECT *
FROM Contact
WHERE ID := IDAChercher;

Le code delphi pour l'ID à chercher :

Code :

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

AdoQuery1.FieldByName('IDAChercher').AsInteger := 1;

Ici, j'ai fait une recherche stricte. Si tu veux plus de souplesse, utilises le mot clé LIKE dans le requête ... Après tout dépend de ton besoin

A+

PS :
Ou utiliser la méthode de Cl@audius

[rec82]

salut
supposant votre table s'apple table1:
donc:

table1.locate('filedname',search value,option)

fieldname :nom de champ;
searche : la valeur rechercher
option:
Option = [loCaseInsensitive ] :ne pas faire destingtion entre le majiscule et miniscule.
Option = [ loPartiaKey ] la recherche dans un partie de mot.
Option = [ loCaseInsensitive , loPartiaKey ]: concatination entre premiere et deuxieme option.
Option = [ ] :on veut pas travailer avec les options au dessus.

pour la recherche avec pusieur champs:

Locate ( 'FieldName1; FieldName2; FieldName3',VarArrayOf ( [SearchValue1,
SearchValue2, SearchValue3]),Option ) ;

exemple:

table1.Locate('pname;Nationalty',vararrayof([ edit1.Text,Edit2.text]) , [
locaseinsensitive , lopartialkey ] )

vararrayof : une matrice de de variant.
cordialement rec82.

[Kaféine]

Salut,

Je ferais comme ero-sennin à savoir une requête paramètrée.

Code SQL :

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

1
2
3
4
 
SELECT *
FROM Contact
WHERE ID = :IDAChercher;

sans affectation Delphi

Le locate de cl@udius implique que la table soit ouverte. Et je suis pas fan mais bon les goûts et les couleurs.....

[Cl@udius]

Le locate de cl@udius implique que la table soit ouverte. Et je suis pas fan mais bon les goûts et les couleurs.....

Non moi non plus je ne suis pas fan. Mais j'imagine que c'est le contexte d'utilisation de thered suite cette question:

je veux faire une recherche dans une table nomée Contact
par ID

@+

[Hamza]

Bonjour,

Dans le code Delphi j'ai taper ceci :

Code :

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

1
2
3
4
5
sqlbdd.SQL.Clear;
sqlbdd.SQL.Add( 'Select * From Draw_doc');
sqlbdd.SQL.Add ('WHERE titre like %'+ quotedstr(titre.Text)+'%');
sqlbdd.Active;
sqlbdd.ExecSQL

malheureusement quand j’exécute sa m'affiche le code erreur ci-dessous, je ne comprend pas !!




Merci

[gbegreg]

Bonsoir,

En SQL, la syntaxe LIKE doit être :
WHERE titre like '%laChaine%'
Les % sont entre simple quote.

En Delphi ça donne :

Code :

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

1
2
3
4
5
6
 
sqlbdd.SQL.Clear;
sqlbdd.SQL.Add( 'Select * From Draw_doc');
sqlbdd.SQL.Add ('WHERE titre like '+ quotedstr('%'+titre.Text+'%'));
sqlbdd.Active;
sqlbdd.ExecSQL

[Hamza]

Merciiiii sa marche très bien