Discussion :

[CreedApollo]

Salut tout le monde,
j'ai ce message d’erreur après que j'utilise le bouton du filtrage
Voici le code que j'utilise en sachant que j'utilise un RadioGroup pour filtrer ma table et un ADOQuery:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm3.sButton1Click(Sender: TObject);
 var x:string;
begin
case RadioGroup1.ItemIndex of
0: x:='Num_inscription';
1: x:='Num_identification';
2: x:='Nom';
3: x:='Prénom';
end;
ADOQuery2.Filter:=x+'='''+sEdit1.Text+'''';
ADOQuery2.Filtered:=true;
end;

[SergioMaster]

Bonjour,

je ne suis pas très porté sur les filtres (sauf peut-être pour les tables Paradox)
néanmoins quelque chose me choque vous ne désactivez pas le filtre avant de le modifier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm3.sButton1Click(Sender: TObject);
 var x:string;
begin
case RadioGroup1.ItemIndex of
0: x:='Num_inscription';
1: x:='Num_identification';
2: x:='Nom';
3: x:='Prénom';
end;
ADOQuery2.Filtered:=False;
ADOQuery2.Filter:=x+'='+QuotedStr(sEdit1.Text);
ADOQuery2.Filtered:=true;
end;

[CreedApollo]

C'est toujours la même erreur...

[SergioMaster]

Et bien n'utiliser pas de filtre et modifiez directement votre requête SQL

[CreedApollo]

j'ai mis cette Requête SQl dans le ADOQuery:

Code sql :

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

1
2
3
SELECT *
FROM table_stagiaire
WHERE code_section:=code_section

Le problème c'est quand je l'utilise pour la première fois ça marche parfaitement mais quand je veux l'utilisé une 2eme fois ça me donne le message d'erreur

[SergioMaster]

Déjà votre requête est erronée

Code SQL :

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

SELECT * FROM table_stagiaire WHERE code_section=:code_section

ensuite vous n'indiquez pas le message d'erreur mais, en supposant que vous vouliez implémenter votre "filtrage" cela donnerait quelque chose comme ceci

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 TForm3.sButton1Click(Sender: TObject);
 var x:string;
begin
case RadioGroup1.ItemIndex of
0: x:='Num_inscription = '+QuotedStr(Edit1.text);
1: x:='Num_identification= '+QuotedStr(Edit1.text);
2: x:='Nom= '+QuotedStr(Edit1.text);
3: x:='Prénom= '+QuotedStr(Edit1.text);
else x:='1=1'; // tous 
end;
ADOQuery2.Active:=False;
ADOQuery2.SQL.Text:=Format('SELECT * FROM table_stagiaire WHERE %s',[x]);
ADOQuery2.Active:=true;
end;

cela étant il y a beaucoup d'autres possibilités.
Une des choses que j'aime avec firedac c'est qu'il y a aussi les macros tout à fait adaptées à ce genre de cas

[CreedApollo]

ça marche mais le Filtrage ne marche pas.
Mais bon, je crois que j'ai résolu le problème, Merci beaucoup pour ton aide Ami..

[SergioMaster]

ça marche mais le Filtrage ne marche pas.

ça ne fonctionne pas car quand vous avez posé votre question vous n'avez pas indiqué tous les éléments.
Comment deviner que cette question faisait suite à celle-ci D'ailleurs c'est ce qui explique certainement l'erreur du début de la discussion.

Bien évidemment le SQL que j'avais proposé n'était qu'un exemple de comment construire une requête de base le fait que la requête soit plus complexe

Code SQL :

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

 SELECT * FROM STAGIAIRE WHERE "code section"=:"code section"

demande bien sûr adaptation

tout d'abord j'ajouterai une constante à vous de voir si vous préférez en faire une constante globale ou locale
const FmtSQLStagiaire='SELECT * FROM STAGIAIRE WHERE "code section"=:"code section" %s';

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
 
procedure TForm3.sButton1Click(Sender: TObject);
var x:string;
begin
case RadioGroup1.ItemIndex of
0: x:='AND Num_inscription = '+QuotedStr(Edit1.text);
1: x:='AND Num_identification= '+QuotedStr(Edit1.text);
2: x:='AND Nom= '+QuotedStr(Edit1.text);
3: x:='AND Prénom= '+QuotedStr(Edit1.text);
end;
if Edit1.Text.IsEmpty then x:='';
ADOQuery2.Active:=False;
ADOQuery2.SQL.Text:=Format(fmtSQLStagiaire,[x]);
ADOQuery2.Active:=true;
end;

et voilà vous avez ainsi l'équivalent d'une macro firedac

[oneDev]

case RadioGroup1.ItemIndex of
0: x:='AND Num_inscription = '+QuotedStr(Edit1.text);
1: x:='AND Num_identification= '+QuotedStr(Edit1.text);
2: x:='AND Nom= '+QuotedStr(Edit1.text);
3: x:='AND Prénom= '+QuotedStr(Edit1.text);
end;

Ce genre que code me fait peur
Ce n'est pas sécurisé d'exécuter des requêtes avec des données saisies par les utilisateurs.
Il serait préférable de passer par des requêtes paramétrées.

[SergioMaster]

Oui, je suis d'accord quant au risque d'injection SQL mais, avec les contraintes je ne vois pas trop (et je n'ai pas vraiment cherché) comment inclure le paramètre. il faut dire que ADO n'aide pas
Et puis, j'ai montré comment faire à CreedApollo de se débrouiller pour changer ça

[oneDev]

Sans avoir testé, j'image un code de ce genre :

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
var x:string;
begin
  case RadioGroup1.ItemIndex of
    0: x := 'AND Num_inscription = :edittext';
    1: x := 'AND Num_identification = :edittext';
    2: x := 'AND Nom = :edittext';
    3: x := 'AND Prénom = :edittext';
  end;
 
  if Edit1.Text.IsEmpty then x := '';
 
  ADOQuery2.Active := False;
  ADOQuery2.SQL.Text := Format(fmtSQLStagiaire,[x]);
 
  if (not Edit1.Text.IsEmpty) then
    ADOQuery2.Parameters.ParamByName('edittext').Value := Edit1.text;
  ADOQuery2.Active := True;
end;