Discussion :

[aliwassem]

voila le code

Code :

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

1
2
3
4
5
6
With DataModule1.TEmpAM Do
Begin
        Filtered :=  false;
        Filter := 'MSub >0 AND Nom = '+ QuotedStr(DBLookupComboBox5.Text)+ 'AND Dat >= #' +FormatDateTime('mm/dd/yyyy', DateTimePicker7.Date) + '# AND Dat <= #' +FormatDateTime('mm/dd/yyyy', DateTimePicker8.Date)+ '#' ;
        Filtered := True;
end;

Alors il marche dans mon ordinateur tres bien mais dans un autre ordinateur non, ca marche pas , je sais pas ou il est l'erreur ?

[evarisnea]

format système des dates ?
vérifie si les 2 ordinateurs ont le même format sous options régionales et linguistiques

[aliwassem]

format système des dates ?
vérifie si les 2 ordinateurs ont le même format sous options régionales et linguistiques

vous avez rison ça marche trés bien

mais est ce que je peux avec delphi changer ça directement ou non

[evarisnea]

mais est ce que je peux avec delphi changer ça directement ou non

désolé, mais je n'ai aucune idée à ce sujet.

ça fait longtemps que je n'utilise plus les filtres sur un jeu de données, mais plutôt des requêtes paramétrées où je n'ai pas ce genre de problèmes. il y a des posts sur le forum concernant ce genre de soucis.

[aliwassem]

désolé, mais je n'ai aucune idée à ce sujet.

ça fait longtemps que je n'utilise plus les filtres sur un jeu de données, mais plutôt des requêtes paramétrées où je n'ai pas ce genre de problèmes. il y a des posts sur le forum concernant ce genre de soucis.

pas qu'est ce que je veux dire, mais est ce que je peux changer les parameters des options régionales et linguistiques avec delphi...

[evarisnea]

désolé, mais je n'ai aucune idée à ce sujet.

[andreditdd]

Bonjour,
plutot que de modifier les options régionales et linguistiques ne pourriez vous pas demander à votre programme de détecter celles-ci et d'adapter vos requettes en fonction.
Cela permettra de ne pas modifier la configuration du pc de l'utilisateur.

Je dis ça mais je n'ai aucune prétention car je suis encore débutant

André

[Graffito]

Un petit bout de code adéquat, ici :

http://delphi.about.com/od/adptips20...ormatvalue.htm

[Rayek]

Ou il peut aussi tenter cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  sOldFormat : String;
begin
  With DataModule1.TEmpAM Do
  Begin
        Filtered :=  false;
        sOldFormat := ShortDateFormat; // on sauvegarde le format de date
        ShortDateFormat := 'mm/dd/yyyy'; // on modifie le format.
        Filter := 'MSub >0 AND Nom = '+ QuotedStr(DBLookupComboBox5.Text)+ 'AND Dat >= #' +FormatDateTime(ShortDateFormat , DateTimePicker7.Date) + '# AND Dat <= #' +FormatDateTime(ShortDateFormat , DateTimePicker8.Date)+ '#' ;
        Filtered := True;
        ShortDateFormat := sOldFormat; // On remet le format de date d'origine
  end;
end;

[aliwassem]

Merci beaucoup pour vous ca marche tres bien,

[evarisnea]

Ou il peut aussi tenter cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  sOldFormat : String;
begin
  With DataModule1.TEmpAM Do
  Begin
        Filtered :=  false;
        sOldFormat := ShortDateFormat; // on sauvegarde le format de date
        ShortDateFormat := 'mm/dd/yyyy'; // on modifie le format.
        Filter := 'MSub >0 AND Nom = '+ QuotedStr(DBLookupComboBox5.Text)+ 'AND Dat >= #' +FormatDateTime(ShortDateFormat , DateTimePicker7.Date) + '# AND Dat <= #' +FormatDateTime(ShortDateFormat , DateTimePicker8.Date)+ '#' ;
        Filtered := True;
        ShortDateFormat := sOldFormat; // On remet le format de date d'origine
  end;
end;

voilà encore un bout de code qui va rejoindre ma boite à idées, ce serait aussi interessant dans la FAQ non ?
@Malatar
tu es le roi de delphi+BDD