Discussion :

[djouahra.karim1]

Bonjour TLM

je veux afficher dans un DBGrid des données mais qu'après que je met des contraintes (je rempli les Edits texts), donc l'affichage sera conditionné, je peut utiliser une requête SQL mais mois je veux pas faire ça, je veux que la teste de la condition sera sur ma table ligne pas ligne. Puisque j'utilise la boucle While.

Pourquoi : parce que j'ai plusieurs Edit text, et ils ne seront pas rempli forcement , donc j'evite le teste chauqe qu'un edit text sera rempli, et je fait une seul programme.

En résumé : comment faire un test ligne par ligne est faire un affichage (après le teste de la table) puique je ne peut pas faire ma requête dans la boucle While !
PS: si vous n'avez pas compris mon problème demander pour que j'explique mieux

[bidochon]

Salut,

Si vous n'avez pas compris mon problème demander pour que j'explique mieux

Si tu veux que l'on t'aide, je pense que ce serait mieux, parce que je n'ai rien compris. Sois synthétique et explicite et donne nous eventuellement un bout de code, merci.
bon dev
@plus

[Nono40]

Je pense avoir compris ton problème...

Quelle BDD et quels composants utilises-tu ?
Dans certains composant il y a des évènements OnFilterRecord permettant le filtre des lignes retournées par l'ensemble de données.

Mais le mieux est la requète SQL. Je ne comprend pas pourquoi tu ne veux pas t'en servir...

[djouahra.karim1]

je vais mieux expliquer :

j'ai plusieurs edit text, je rempli mes edit text, je clique sur mon bouton pour avoir l'afichage dans mon DBGrid (mais tout depand des condition que j'ai mis dans les edits text et a l'aide d'une requete sql)

mais les edit text ne seront pas remplis forcement, on peut avoit des edits texte vide et les autres sont remplis (donc on prend pas on consideration ceux qui sont vide). mais le problème et pour sql qui est dans la boucle, on aurra l'affichage que sur la condition du dernier teste, essayé de voir le code

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
 
datd := datetostr(Edit1.DateTime);
datf := datetostr(Edit2.DateTime);
 
While (not datamodule2.TMAJponcetchargmt.Eof) Do
   Begin
   If (Edit3.Text = '') Then vorig := Datamodule2.TMAJponcetchargmtEXORIG.value Else vorig := Edit3.Text;
   If (Edit4.Text = '') Then vdest := Datamodule2.TMAJponcetchargmtEXDEST.value Else vdest := Edit4.Text;
   If (Edit5.Text = '') Then vrso := Datamodule2.TMAJponcetchargmtEXRSO.value Else vrso := Edit5.Text;
   If (Edit6.Text = '') Then vrsd := Datamodule2.TMAJponcetchargmtEXRSD.value Else vrsd := Edit6.Text;
               query1.Close  ;
               query1.sql.clear;
               query1.Sql.add ('Select *');
               query1.Sql.add ('from Expl');
               query1.Sql.add ('Where EXDAT>=(:date_d) and EXDAT<=(:date_f) and EXORIG=:x and EXDEST=:y and EXRSO=:z and EXRSD=:t and EXNV Like "AH%" ');
               query1.ParamByName('date_d').AsDateTime := strtodate(datd);
               query1.ParamByName('date_f').AsDateTime := strtodate(datf);
               query1.ParamByName('x').AsString := vorig;
               query1.ParamByName('y').AsString := vdest;
               query1.ParamByName('z').AsString := vrso;
               query1.ParamByName('t').AsString := vrsd;
               query1.Open;
 
    Datamodule2.TMAJponcetchargmt.Next;
    End;

le problème est dans le sql qui est dans la boucle, y'a t' il une autre solution

[djouahra.karim1]

vorid vdest vrso et vrsd ce sont des variables String

[Nono40]

Ta requète dans la boucle ne sert à rien...

Que veux-tu faire au final, car j'ai l'impression que tu es sur une mauvaise route...

Je pense que pour chaque ligne de TMAJponcetchargmt tu veux afficher les lignes correspondantes de la table Expl ?
Précise bien ce que tu veux faire, car la méthode employée n'est pas bonne pour le moment.

[djouahra.karim1]

je veux afficher les données de la table EXPL sur les condition du contenu des 4 edit text (edit3, 4, 5, 6) mais ses 4 edit text soit il prend une valeur saisi par l'utilisateur, soit n'importe quel valeur de la table (si pour ça que j'ai mis les 4 instructions de IF pour contôler les 4 edit texts avant d'entrée dans le While.

donc si vous remarquez le contenu des 4 edit text change si un des edit texts est vide (donc on garde les condition où les edits texts sont remplis et peut importe pour les edits texts vide, cela demande de faire une boucle est de parcourir la table EXPL enregistrement par enregistrement

je sais que le sql est faux dans la boucle

[Nono40]

Est-ce que ceci correspond à ce que tu veux :

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
vorig := Edit3.Text; 
vdest := Edit4.Text; 
vrso := Edit5.Text; 
vrsd := Edit6.Text; 
query1.Close  ; 
query1.sql.clear; 
query1.Sql.add ('Select * from Expl'); 
query1.Sql.add ('Where EXDAT>=(:date_d) and EXDAT<=(:date_f) and EXNV Like "AH%"');
if vorig<>'' Then query1.sql.add(' and EXORIG=:x');
if vdest<>'' Then query1.sql.add(' and EXDEST=:y');
if vrso<>'' Then query1.sql.add(' and EXRSO=:z');
if vrsd<>'' Then query1.sql.add(' and EXRSD=:t');'); 
query1.ParamByName('date_d').AsDateTime := Edit1.DateTime; 
query1.ParamByName('date_f').AsDateTime := Edit2.DateTime; 
query1.ParamByName('x').AsString := vorig; 
query1.ParamByName('y').AsString := vdest; 
query1.ParamByName('z').AsString := vrso; 
query1.ParamByName('t').AsString := vrsd; 
query1.Open;

Ceci va fonctionner si dans la table Expl il n'y a pas de lignes dont les valeurs ne sont pas dans la table TMAJponcetchargmt.

Si ce n'est pas le cas il faut faire une jointure conditionnelle entre les deux tables pour afficher le résultat que tu veux. Mais dans ce cas on a besoin de connaitre le SGBD utilisé.

[edit] Et bien sur tu vires ta boucle while... [/edit]

[djouahra.karim1]

je crois que ça marche (je vais essayé de testé)

j'utilise BD Paradox, delphi 6

[djouahra.karim1]

quand je laisse un des edit text vide, il me dit (après exécution) comme erreur (paramètre non trouvé (pour t ou z ou x ou y )

[Nono40]

Exact, petite erreur dans le code. Il ne faut mettre à jour les paramètres que s'ils existent :

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
vorig := Edit3.Text; 
vdest := Edit4.Text; 
vrso := Edit5.Text; 
vrsd := Edit6.Text; 
query1.Close  ; 
query1.sql.clear; 
query1.Sql.add ('Select * from Expl'); 
query1.Sql.add ('Where EXDAT>=(:date_d) and EXDAT<=(:date_f) and EXNV Like "AH%"'); 
if vorig<>'' Then query1.sql.add(' and EXORIG=:x'); 
if vdest<>'' Then query1.sql.add(' and EXDEST=:y'); 
if vrso<>'' Then query1.sql.add(' and EXRSO=:z'); 
if vrsd<>'' Then query1.sql.add(' and EXRSD=:t');'); 
query1.ParamByName('date_d').AsDateTime := Edit1.DateTime; 
query1.ParamByName('date_f').AsDateTime := Edit2.DateTime; 
if vorig<>'' Then query1.ParamByName('x').AsString := vorig; 
if vdest<>'' Then query1.ParamByName('y').AsString := vdest; 
if vrso<>'' Then query1.ParamByName('z').AsString := vrso; 
if vrsd<>'' Then query1.ParamByName('t').AsString := vrsd; 
query1.Open;

[JustMe]

Tu peux utiliser OnFilterRecord de ta table
Comme :

Code :

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

1
2
3
4
5
6
if Edit1.Text <> '' then
Accept := TableNomChamp1.asstring = Edit1.Text;
if Edit2.Text <> '' then
Accept := accept and (TableNomChamp2.asstring = Edit2.Text);
if Edit3.Text <> '' then
Accept := accept and (TableNomChamp3.asstring = Edit3.Text);

et ainsi de suite