Discussion :

[byakuichi]

Bonjour,
J'ai un problème avec une combo box qui doit être remplie de date au format : mois année (Juillet 2010) mais lors de son remplissage mes dates sont toujours fausses et il m'affichent :
Juillet 1905 peu importe le mois de départ c'est toujousr juillet 1905 qui apparait...

Voici mon code :
Code Delphi :

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
ComboBoxCaisse.Items.Clear;
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'SELECT DISTINCT MONTH(Djourn) AS mois, YEAR(Djourn) AS annee FROM caisse';
  ADOQuery1.Open;
  ADOQuery1.First;
 
  while not ADOQuery1.Eof do
  begin
    dte := ADOQuery1.Fields.Fields[0].AsInteger + ADOQuery1.Fields.Fields[1].AsInteger;
    Showmessage(DateToStr(dte));
    Showmessage(ADOQuery1.Fields.Fields[0].AsString + '/' + ADOQuery1.Fields.Fields[1].AsString);
    ComboBoxCaisse.Items.Add(FormatDateTime('mmmm yyyy',dte);
    ADOQuery1.Next;
  end;
  ADOQuery1.Close;

Je peux pas mettre .AsDateTime au lieu de .AsInteger car il me sort l'erreur suivant : "cannot acces to the field 'mois' AsDateTime"

Si vous avez une autre méthode je suis preneur, sachant que dans ma base de donnée le champ Djourn est de la forme :
jj/mm/yyyy
et qu'il peut y avoir des doublons de journée du genre :
30/07/2010
30/07/2010
et que dans ma comboBox seul le mois et l'année doivent être affichée de facon unique pour chaque combinaison.

Ma combobox me permet de mettre a jour une grid en n'affichant que les journée correspondant au mois et à l'année sélectionnés dans ma combobox.

En espérant avoir été clair :/

Si quelqu'un pouvait éclairer ma lanterre sur le pourquoi du comment de l'erreur de calcul de ma date ou d'affichage :/

Merci.

[Rayek]

Oula, plein d'erreur dans ton 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
26
27
28
 
var
  sTmp : String;
begin
ComboBoxCaisse.Items.Clear;
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'SELECT DISTINCT MONTH(Djourn) AS mois, YEAR(Djourn) AS annee FROM caisse';
  ADOQuery1.Open;
  ADOQuery1.First;
 
  while not ADOQuery1.Eof do
  begin
  // Inutile deplus si tu fais l'addition tu ajoutes le mois et l'année
   // dte := ADOQuery1.Fields.Fields[0].AsInteger + ADOQuery1.Fields.Fields[1].AsInteger;
//    Showmessage(DateToStr(dte));
//    Showmessage(ADOQuery1.Fields.Fields[0].AsString + '/' + ADOQuery1.Fields.Fields[1].AsString);
// Le format datetime ne te sert à rien la, deplus comme ta données est fausse
//    ComboBoxCaisse.Items.Add(FormatDateTime('mmmm yyyy',dte);
// Ca serait mieux comme çà
sTmp := ADOQuery1.FieldByName('mois').AsString + '/' + ADOQuery1.FieldByName('annee').AsString;
// Si la date n'existe pas déjà alors on va l'ajouter
if ComboBoxCaisse.Items.IndexOf(sTmp) = -1 then
  ComboBoxCaisse.Items.Add(sTmp);
 
    ADOQuery1.Next;
  end;
  ADOQuery1.Close;
end;

Pour les doublons j'ai fait une méthode simple mais tu peux faire un Group By dans la requête et tu n'auras pas besoin de faire le teste d'existence


Il y a peut être des erreurs mais l'idée est la

[byakuichi]

Etant au travail je ne peux pas trop me pencher dessus.
Mais j'avais penser a un encodedate() En lieu et place de tout mon bazar.

Pourquoi n'ais-je pas pensé à l'addition, je me suis borné sur le faites que cela faisait une concaténation des 2 valeurs (va savoir pourquoi -_-)

Mais j'avoue que ta réponse est vraiment bien également

[Rayek]

Mais j'avais penser a un encodedate() En lieu et place de tout mon bazar.

Pourquoi rajouter une couche ?
Si tu encodes le mois et l'année, va falloir que tu le convertisses encore après la date, alors que tu as directement avec ta requête le mois et l'année

[byakuichi]

c'était avant ta proposition et à 2h30 du matin donc je commençais à plus trop avoir les idées claires ^^"

Je me complique souvent la vie alors que certaines choses peuvent être résolues de façon fort simple !