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