Discussion :

[tarmo57]

SAlut tous un petit renseignement.Je voudrais faire un petit moteur de recherche et en alimenté un DBGid.
Je fais une recherche a l'aide de 3 Edit.text (nom.text, prenom.text, age.text)

Code :

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

1
2
3
4
5
6
7
8
 
DataModule1.Query1.Close;
DataModule1.Query1.SQL.Clear;
DataModule1.Query1.SQL.Add('SELECT * FROM matable.DB where '
    +'(Nom ='+quotedstr(nom.text)
    +'or Prenom=' +quotedstr(prenom.text)+')'
    +'or ( Age='+quotedstr(age.text))'
DataModule1.Query1.open;

mais je voudrais si possible que la recherche fonctionne même si un champ ou deux sont vides
ex: recherche par prenom et age ou juste age etc...
comment faire pour ne pas avoir d’erreur .merci d'avance

[popo]

Il te manque un point virgule et tu recommence une chaine sans la terminer. Il faut remplacer ton dernier quote par un point virgule. Ensuite, il vaut mieux passer par des paramètres. C'est moins hasardeux

Je l'ai également modifié pour que ta requete renvoi des resultat meme si un ou plusieurs champs sont vides.

Ecrit vite fait en sans Delphi donc vérifier si ça compile mais le principe est là

Code Pascal :

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
 
StSelect := 'SELECT * FROM matable.DB where ';
StWhere := '';
if (nom.text <> '')  then StWhere := 'Nom=:UnNom';
if (StWhere <> '') then StWhere  := StWhere + ' or ';
if (prenom.text <> '') then StWhere := StWhere + 'Prenom=:UnPrenom';
if (StWhere <> '') then StWhere  := StWhere + ' or ';
if (age.text <> '') then StWhere := StWhere + 'Age=:UnAge';
 
DataModule1.Query1.Close;
DataModule1.Query1.SQL.Clear;
DataModule1.Query1.SQL.Add(StSelect + StWhere);
ParamCheck := True;
DataModule1.Query1.Parameters.ParamByName('UnNom').Value := nom.text;
DataModule1.Query1.Parameters.ParamByName('UnPrenom').Value := prenom.text;
DataModule1.Query1.Parameters.ParamByName('UnAge').Value := StrToInt(age.text);
DataModule1.Query1.open;

[BuzzLeclaire]

Popo
Attention... ta proposition beuguera si jamais les trois ne sont pas rempli puisque tu ne test pas les parameter en conséquence.

Salut,

Tu t'es trompé de forum, je pense qu'un modérateur va le placer au bonne endroit. Bref.

1) Pour les requetes il est préférable d'utiliser les parameters
2) Pour ton problème de champs vide tu pourrais le faire avec des conditions par exemple (parmis d'autre prossibilité) mais ainsi tu comprends mieux l'utilisation.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
With DataModule.Query1 do
begin
 
  SQL.Clear;
  SQL.Add('SELECT * FROM matable.DB where ');
  if nom.text <> '' then
  begin
    if prenom.text <> '' then
    begin
      if age.text <> '' then
      begin // Les trois sont remplis
        SQL.Add('Nom = :xNom ');
        SQL.Add('Or Prenom = :xPrenom ');
        SQL.Add('Or Age = :xAge ');
        Parameters.Parambyname('xNom').Value = Nom.Text;
        Parameters.Parambyname('xPrenom').Value = Prenom.Text;
        Parameters.Parambyname('xAge').Value = Age.Text;
      end
      else
      begin // Nom et prenom sont remplis
        SQL.Add('Nom = :xNom ');
        SQL.Add('Or Prenom = :xPrenom ');
        Parameters.Parambyname('xNom').Value = Nom.Text;
        Parameters.Parambyname('xPrenom').Value = Prenom.Text;
      end;
    end
    else
    begin
      if age.text <> '' Then
      begin // Nom et age sont remplis
        SQL.Add('Nom = :xNom ');
        SQL.Add('Or Age = :xAge ');
        Parameters.Parambyname('xNom').Value = Nom.Text;
        Parameters.Parambyname('xAge').Value = Age.Text;
      end
      else
      begin // Nom uniquement rempli
        SQL.Add('Nom = :xNom');
        Parameters.Parambyname('xNom').Value = Nom.Text;
      end;
    end;
  end
  else
  begin
    if Prenom.text <> '' then
    begin
      if age.text <> '' then
      begin // Prenom et age sont remplis
        SQL.Add('Prenom = :xPrenom ');
        SQL.Add('Or Age = :xAge ');
        Parameters.Parambyname('xPrenom').Value = Prenom.Text;
        Parameters.Parambyname('xAge').Value = Age.Text;
      end
      else
      begin // Prenom uniquement est rempli
        SQL.Add('Prenom = :xPrenom ');
        Parameters.Parambyname('xPrenom').Value = Prenom.Text;
      end;
    end
    else
    begin
     if age.text <> '' then
     begin // Age uniquement est rempli
        SQL.Add('Age = :xAge ');
        Parameters.Parambyname('xAge').Value = Age.Text;
     end
     else // tout est vide !!!
     begin
	// A toi de voir ce que tu dois faire
     end;
   end;
  end;
  Try
    Try
      Open;
    Except
      // ici à toi de gérer les messages d'erreurs éventuels
    end;
  Finally
    Close;
  end;
end;

Bon c'est un peu tiré par les cheveux, mais ce matin je suis pas requete... lol

C'est une solution basic qui te permet d'utiliser ADO différement.


a+

[BuzzLeclaire]

Re

Pour faire plus simple, normalement ça aussi devrait fonctionner puisque tu utilise des OR

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
19
With DataModule.Query1 do
begin
 
  SQL.Clear;
  SQL.Add('SELECT * FROM matable.DB where ');
  SQL.Add('(Nom = :xNom) Or (Prenom = :xPrenom) Or (Age = :xAge)');
  Parameters.Parambyname('xNom').Value = Nom.Text;
  Parameters.Parambyname('xPrenom').Value = Prenom.Text;
  Parameters.Parambyname('xAge').Value = Age.Text;
  Try
    Try
      Open;
    Except
      // ici à toi de gérer les messages d'erreurs éventuels
    end;
  Finally
    Close;
  end;
end;

A toi de choisir par rapport à ma proposition ci-dessous.

[tarmo57]

Excusez moi du retard.
Grand merci parfait exactement le code qu'il me fallait