Discussion :

[malone12]

Bonjour,

J'ai utilisé ce bout de code pour afficher les clients avec le nom que l'utilisateur entre dans un edit mais il ne marche pas

Code :

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

1
2
3
4
5
6
7
procedure TForm5.sBitBtn5Click(Sender: TObject);
begin
query1.sql.clear;
query1.SQL.Add('select* from ventes where NomC=');
query1.SQL.add(sedit3.text);
query1.execsql;
end;

quelqu'un pour m'aider ? Merci

[Just-Soft]

sauf erreur de ma part car pas tester voilà le code corrigé

Code :

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

1
2
3
4
5
6
7
procedure TForm5.sBitBtn5Click(Sender: TObject);
begin
query1.sql.clear;
query1.SQL.Add('select* from ventes where NomC =:var1 ');
query1.SQL.Params[0] := Edit.Text;
query1.Open;
end;

[malone12]

merci pour ta réponse mais ça marche pas ya une erreur au niveau de params

[skywaukers]

Bonjour,

quelle est l'erreur ?
Sinon dans ton code, ça doit pouvoir fonctionner si tu mets sedit3.text entre quotes :

Code :

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

query1.SQL.add( QuotedStr( sedit3.text));

@++
Dany

[archonte]

Je trouve toujours plus simple l'utilisation des paramètres. Mais as-tu fais attention à la position des ":" dans la clause SQL : "NomC = :Var1". Par ailleurs les paramètres sont affectés à la Query et non à sa propriété SQL.

Code :

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

1
2
3
4
5
6
7
procedure TForm5.sBitBtn5Click(Sender: TObject);
begin
query1.sql.clear;
query1.SQL.Add('SELECT * FROM ventes WHERE NomC = :Var1 ');
query1.Parameters.ParamByName('Var1').Value := Edit1.Text; // parametre renseigné par l'utilisateur 
query1.Open;
end;

[karinya]

Hello,

On peut utiliser le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.EditFiltreChange(Sender: TObject);
var
  Filtre : string;
begin
  Filtre := 'Nom =''' + EditFiltre.Text + '*'''; //Filtre construit avec le texte saisi dans le TEdit
  if EditFiltre.Text ='' then // Test, il n'y a rien dans le TEdit
  begin
    Query1.Filtered:=false; // Arrête le filtrage de la table
    exit; //
  end;
  Query1.FilterOptions:= Query1.FilterOptions + [foCaseInSensitive]; // ignore majuscules/minuscules
  Query1.Filter := Filtre; // Mise en place du filtre
  Query1.Filtered := true; // Activation du filtre
end;

Avantage le tri s'effectue en temps réel après chaque saisie d'une lettre dans le tedit

[alheuredudejeuner]

ou pour économiser des requêtes sur un réseau.

Mais des que la table avec les noms devient conséquente on ne peux se passer du query. (ramener de la table juste les enregistrements qui nous intéresse)

Ce qui m'intrigue c'est

quel composant est utilisé pour la requête ? Comment est utilisée ( affichée ) la réponse ?

André

[archonte]

Ce qui m'intrigue c'est quel composant est utilisé pour la requête ? Comment est utilisée ( affichée ) la réponse ?
André

ça doit être paradox d'après cet autre post !!

[redoran]

salut esaye la meme requéte sans paramétre et regarde qu'st ce qu'elle retourne comme résultat si le résulatat est + ; alors :

Code :

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

1
2
3
4
5
6
7
procedure TForm5.sBitBtn5Click(Sender: TObject);
begin
query1.sql.clear;
query1.SQL.Add('select* from ventes where NomC=');// je crois que l'erreur est la c'est à vérifier manque les :.
query1.SQL.add(sedit3.text);
query1.execsql;// on met .open ou .active au lieu de exesql .
end;

sino regarde dans le paramétrage du composant requête comme il a été cité

lien trés important : http://sql.developpez.com/

[malone12]

merci les gars pour vos réponse

[malone12]

salut esaye la meme requéte sans paramétre et regarde qu'st ce qu'elle retourne comme résultat si le résulatat est + ; alors :

Code :

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

1
2
3
4
5
6
7
procedure TForm5.sBitBtn5Click(Sender: TObject);
begin
query1.sql.clear;
query1.SQL.Add('select* from ventes where NomC=');// je crois que l'erreur est la c'est à vérifier manque les :.
query1.SQL.add(sedit3.text);
query1.execsql;// on met .open ou .active au lieu de exesql .
end;

sino regarde dans le paramétrage du composant requête comme il a été cité

lien trés important : http://sql.developpez.com/

l'erreur utilisation incorrect du mot clé Element: "le nom client"

[malone12]

Je trouve toujours plus simple l'utilisation des paramètres. Mais as-tu fais attention à la position des ":" dans la clause SQL : "NomC = :Var1". Par ailleurs les paramètres sont affectés à la Query et non à sa propriété SQL.

merci archonte c bon ça marcher,mais il fallait enlever parameters

[archonte]

l'erreur utilisation incorrect du mot clé Element: "le nom client"

En utilisant les paramètres, on évite les problèmes de formatage ! Sinon il faut utiliser QuotedStr mais ça a déjà été écrit (merci Skywaukers ) quelques messages auparavant !!

Code :

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

1
2
3
4
5
6
7
8
procedure TForm5.sBitBtn5Click(Sender: TObject);
begin
query1.close; // ou query1.active := false;
query1.SQL.text := 'SELECT * FROM ventes WHERE NomC = :Var1 ';
query1.Parameters.ParamByName('Var1').Value := Edit1.Text; // parametre renseigné par l'utilisateur 
query1.Open; // ou query1.active := true;
// ne pas utiliser ExecSql dans une procedure ou fonction qui retourne un ensemble de données (cf Aide Delphi)
end;