[ComboBox] récuperer Item-1

Version imprimable

18/06/2007, 14h12
Imad_ing

[ComboBox] récuperer Item-1

Salut tout le monde.
Bon voila mon problème. Mon application contient 1 ComboBox; contenant les jours d'un mois precis (rempli d'une table), et des commentaires dans une autre table (Chaque jour a un commentaire préci à lui).
ce que je veux est pouvoir choisir un jour, et retourner le commentaire du jour-1.
Par exemple si je choisi mardi , le retour doit contenir le commentaire du lundi.
J'ai réalisé une requette de selection retournant le jour, et la deuxième requette retourne le commentaire associé au jour -1.
Ca marche pas.

Que dois-je faire ?

F1 SVP !!

Imas_ing
18/06/2007, 14h22
Cl@udius

Salut

Citation:

Envoyé par Imad_ing

J'ai réalisé une requette de selection retournant le jour, et la deuxième requette retourne le commentaire associé au jour -1.

Si tu nous montrais tes requêtes :mrgreen:

Citation:

Envoyé par Imad_ing

Ca marche pas.

As-tu un message d'erreur ? Si oui lequel ?

@+ Claudius
18/06/2007, 14h35
Imad_ing

Mes requettes sont les suivantes :

1: 'Select Jour From JourSemaine Where annee = '+IntToStr(anneeExp) +'and mois = '+ intToStr(moisExp);

2: 'Select Commentaire From SuiviHebdo Where id ='+IntToStr(IdPdv)+ ' and mois = '+intToStr(MoisExp)+' and annee = '+intToStr(annee)+ 'and jour = '+intToStr(NumJour -1);

Merci de m'aider.
18/06/2007, 14h53
Cl@udius

Comment détermines-tu la valeur de NumJour lors de la sélection dans le ComboBox ?

Avec un pas-à-pas, as-tu vérifier que la valeur était correcte ?

@+
18/06/2007, 16h11
Imad_ing

Désolé pour ce petit retard.
Oui quand ca n'a pas marché la première fois, j'ai fais une execution pas a pas, et j'avais remarqué que l'execution s'arrete au niveau de la deuxième procedure.
J'ai même executé la première requet separement et elle fonctionne bien.

Merci pour ton aide
18/06/2007, 16h16
Imad_ing

En ce qui concerne NumJour, c'est la variable Jour utilisé dans la première requette.
Faute de frappe de ma part. désolé
18/06/2007, 16h31
Rayek

Il serait mieux que l'on voit ton code complet qui permet l'appel des deux requetes.
18/06/2007, 16h32
Cl@udius

Citation:

Envoyé par Malatar

Il serait mieux que l'on voit ton code complet qui permet l'appel des deux requetes.

Tu me l'as ôter de la bouche !:mrgreen:

Mon code est si-dessous:

Code:

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
function TfrmSaisieComment.recuperationCommentaire( NumSem, MoisExp :Integer  ):string;
var
  Q1 : TADOQuery;
  Requete1 : String;
  Q2 : TADOQuery;
  Requete2 : String;
begin
  Result:=0;
  Requete1 := 'SELECT NumJour  FROM MOIS_SEMAINE ' +
             'WHERE TPS_ANNEE = ' + IntToStr(AnneeExp) +
             ' AND TPS_MOIS = ' + IntToStr(MoisExp) ;
  try
    Q1 := TADOQuery.Create(Self);
    try
      Q1.Connection := frmDATA_MAIN.BaseConnexion;
      Q1.SQL.Add(Requete);
      Q1.Open;
      Q1.First;
      if not Q1.Eof then
      begin
        Result :=  StrToInt(VarToStr(Q.FieldValues['TPS_SEMAINE']));
      end;
    finally
      Q1.Free;
    end;
  except
    TraiterErreur(' ');
  end;
 
  try
    Requete2 := 'SELECT SIM_COMMENTAIRE ' +
               'FROM SUI_IM_HEBDO ' +
               'WHERE PDV_ID = ' + IntToStr(IdPdv) +
               ' AND TPS_ANNEE = ' + IntToStr(AnneeExp) +
               ' AND TPS_MOIS = ' + IntToStr(MoisExp) +
               ' AND TPS_SEMAINE = ' + IntToStr(NumSem);
    Q2 := TADOQuery.Create(Self);
        try
          Q2.Connection := frmDATA_MAIN.BaseConnexion;
          Q2.SQL.Add(Requete);
          Q2.Open;
          if not Q.Eof then
          Result:=Trim(VarToStr(Q.FieldValues['SIM_COMMENTAIRE']))
        finally
          Q2.Free;
        end;
  except
    TraiterErreur(' ');
  end;
end;

18/06/2007, 16h55
Cl@udius

Oula !!

Il ne passe pas la compilation de code ? Si ?

Et où est l'interaction avec le ComboBox ?

Citation:

Envoyé par Imad_ing

Mon code est si-dessous:

Code:

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
function TfrmSaisieComment.recuperationCommentaire( NumSem, MoisExp :Integer  ):string;
var
  Q1 : TADOQuery;
  Requete1 : String;
  Q2 : TADOQuery;
  Requete2 : String;
begin
  Result:=0;
  Requete1 := 'SELECT NumJour  FROM MOIS_SEMAINE ' +
             'WHERE TPS_ANNEE = ' + IntToStr(AnneeExp) +
             ' AND TPS_MOIS = ' + IntToStr(MoisExp) ;
  try
    Q1 := TADOQuery.Create(Self);
    try
      Q1.Connection := frmDATA_MAIN.BaseConnexion;
      Q1.SQL.Add(Requete);
      Q1.Open;
      Q1.First;
      if not Q1.Eof then
      begin
        Result :=  StrToInt(VarToStr(Q.FieldValues['TPS_SEMAINE']));
      end;
    finally
      Q1.Free;
    end;
  except
    TraiterErreur(' ');
  end;
 
  try
    Requete2 := 'SELECT SIM_COMMENTAIRE ' +
               'FROM SUI_IM_HEBDO ' +
               'WHERE PDV_ID = ' + IntToStr(IdPdv) +
               ' AND TPS_ANNEE = ' + IntToStr(AnneeExp) +
               ' AND TPS_MOIS = ' + IntToStr(MoisExp) +
               ' AND TPS_SEMAINE = ' + IntToStr(NumSem);
    Q2 := TADOQuery.Create(Self);
        try
          Q2.Connection := frmDATA_MAIN.BaseConnexion;
          Q2.SQL.Add(Requete);
          Q2.Open;
          if not Q.Eof then
          Result:=Trim(VarToStr(Q.FieldValues['SIM_COMMENTAIRE']))
        finally
          Q2.Free;
        end;
  except
    TraiterErreur(' ');
  end;
end;

Déjà, rempace çà

Code:

1
2
3
 
 Result :=  StrToInt(VarToStr(Q.FieldValues['TPS_SEMAINE']));
      end;

par cela :

Code:

1
2
 
Result := Q.FieldByName('TPS_SEMAINE').asString;

Il sort d'où ce Q ? (Choisi d'autre nom ... car la ... hein ... bon ... :aie: )

Je pense qu'il y a un serieux problème dans ton code, le result qui est appellé 1 fois dans la première requete et 1 fois dasn la deuxieme (quel resultat veux tu retourner ?)
Le Q qui sort de je ne sais où.
etc ...

18/06/2007, 17h13
Imad_ing

Oui, une autre faute de frappe de ma part :p {un peu stressé}
Le Q est le Q2.
Moi je pense qu'il faut diviser le travail en deux parti, comme ca je pourrai bien voir, et vous avec moi, ou se situe l'erreur.
Bon voila ce que je propose:
1°parti: va contenir une fonction que je vais appeler getJour.
2°parti: va utiliser le result de cette première fonction pour bien determiner et differer entre les deux results.
Je vais essayer ca tout de suite et je vous tiens au courants.
Encore merci bcp chèrs developpeurs.

Je vais travailler sur les semaines et apres je passe aux jours.
18/06/2007, 20h15
archonte

Bonjour !

Citation:

Envoyé par Imad_ing

Mes requettes sont les suivantes :

1: 'Select Jour From JourSemaine Where annee = '+IntToStr(anneeExp) +'and mois = '+ intToStr(moisExp);

2: 'Select Commentaire From SuiviHebdo Where id ='+IntToStr(IdPdv)+ ' and mois = '+intToStr(MoisExp)+' and annee = '+intToStr(annee)+ 'and jour = '+intToStr(NumJour -1);

Merci de m'aider.

As-tu verifié que NumJour-1 était valide ? avec changement de mois (et d'année) si NumJour vaut 1 (et MoisExp 1, et ...) ? :bug:
18/06/2007, 20h17
Cl@udius

Citation:

Envoyé par archonte

As-tu verifié que NumJour-1 était valide ?

+1 :ccool: Remarque judicieuse :mrgreen:
19/06/2007, 10h49
Imad_ing

En fait ca m'est sorti de la tête !! :oops:
J'y avais pas pensé.
C'est la première des choses a faire mnt.
Désolé si je repond pas vite mais c'est que j'ai pas de connexion chez moi.
19/06/2007, 12h53
Imad_ing

Citation:

As-tu verifié que NumJour-1 était valide ?

Maintenant oui. Ca marche.
J'ai fait un test concernant la semaine 1 dans le mois 1, et je recupère depuis la première requette le resultat et je l'affecte a la variable NumJour.
Au niveau de la dexième requette, j'ai remplacé le NumJour-1 par NumJour tout court, puisque le test si ce dernier est valide se fait dans la première requette.

je vous remercie beaucoup pour vos réponses et observations.

je vous tiens au courant de mes progressions.

Le problème persiste toujours

:help:

Code:

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
Procedure TfrmSaisieComment.RecuperationCommentaire(Numsem, MoisExp : Integer);
Var Q1,Q2 : TADOQuery;
    Req1, req2 : String;
    result : string;
    res : Integer;
Begin
  Result := '';
  Req1 := 'Select TPS_SEMAINE From MOIS_SEMAINE Where TPS_ANNEE = '+ IntToStr(AnneeExp) +
          ' and TPS_MOIS = '+IntToStr(MoisExp);
  Try
    Q1 := TADOQuery.Create(Self);
    Try
      with Q1 do
        Begin
          Connection := frmDATA_MAIN.BaseConnexion;
          SQL.Add(Req1);
          open;
          first;
        end;
      If not Q1.Eof
        Then  if (MoisExp = 1) and (Numsem = 1) then
          Begin
            Res := Q.FieldByName('TPS_SEMAINE').asString;
          end
        Else Res := StrToInt(VarToStr(Q1.FieldValues['TPS_SEMAINE']))-1;
    finally
      Q1.Free;
    end;
  Except
    TraiterErreur('RecuperationCommentaire', MODULE_NAME, 'Erreur lors de la récupération de la semaine' );
  end;
    NumSem := Res;
  Try
    Req2 := 'SELECT SIM_COMMENTAIRE FROM SUI_IM_HEBDO WHERE PDV_ID = ' + IntToStr(IdPdv) +
            ' AND TPS_ANNEE = ' + IntToStr(AnneeExp) + ' AND TPS_MOIS = ' + IntToStr(MoisExp) +
            ' AND TPS_SEMAINE = ' + IntToStr(NumSem);
    Q2:=TADOQuery.Create(Self);
    Try
      With Q2 do
        Begin
          Connection := frmDATA_MAIN.BaseConnexion;
          SQL.Add(req2);
          Open;
        end;
          if not Q2.Eof then result := Trim(VarToStr(Q2.FieldValues['SIM_COMMENTAIRE']));
    finally
      Q2.Free;
    end
  Except
    Traitererreur('RecuperationCommentaire', MODULE_NAME, 'Erreur lors de la récupération du commentaire');
  end;
end;

Qand je choisi dans le combo un numero de semaine, je veux qu'il me retourne aussi le commentaire de la semaine d'avant.
Si-dessus ma procedure de recuperation des commentaire, mais elle retourne absolument rien.
Même quand je rempli à la main sur la base de donnée des commentaire, (Donc je suis sûr qu'ils existent) ca ne retourne pas ce que je veux :cry:

25/06/2007, 10h50
Imad_ing

Alors personne n'a rien trouvé ???