Discussion :

[amtdev]

Bonjour à tous,
Je vous présente mon morceau de programme pascal objet:

Code :

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

1
2
3
4
5
6
7
8
 
     procedure TForm1.FormActivate(Sender: TObject);
            var ref:Tdate;
     begin
            ref:=IncMonth(date,-11);
            dm.Query.ParamByName('ddc').AsDate:=ref;
            dm.Query.Open;
     end;

et dans le Query j'ai :

Code SQL :

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

1
2
3
4
5
 
     select codecl, max(datecom) as date_com
     from commander
     group by codecl
     having max(datecom) <=:ddc

Le problème c'est qu'à l'exécution il m'affiche le message suivant:

"Format de date invalide (null)" je ne comprend pas pourquoi.
Je vous remercie de m'éclairer sur cette erreur.

[rsc]

Es-tu certain que c'est bien à l'exécution de FormActivate que se produit l'erreur ? Est-ce que ton Query n'est pas ouvert en conception, ce qui provoquerait ' exécution de la requête lors de sa création, avant que dcc soit renseigné ?
Sinon, autre piste, essaie de définir explicitement dcc dans la propriété Params de Query, en spécifiant bien son type.

Sinon, il serait peut-être utile que tu précises ton sgbd

[amtdev]

Merci pour l'intérêt que vous portez à mon problème. Pour le SGBD, j'utilise l'Access. Et pour votre proposition çà ne fonctionne toujours pas. Toujours le même message d'erreur.

[ALWEBER]

fait un :

Code :

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

dm.Query.SaveToFile('toto.txt')

pour voir le texte généré. Souvent il s'agit d'une inversion entre le mois et le jour qui provoque cette erreur

[amtdev]

Je n'ai pas la fonction Query.SaveToFile dans ma version de Delphi5. Et si c'est le cas (inversion du mois avec le jour) que dois-je faire pour remédier à cela?

[SergioMaster]

suggestion

en mode debug ,un point d'arret sur le Query.open, essaies de voir Query.SQL.text ???

[amtdev]

ça ne marche toujours pas. Je vous donne la totalité du message d'erreur que je reçois : "Erreur SQL générale [Microsoft] [Pilote ODBC Microsoft Access] Format de date invalide (null)".

[ero-sennin]

Salut,

fait un :

Code :

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

dm.Query.SaveToFile('toto.txt')

pour voir le texte généré. Souvent il s'agit d'une inversion entre le mois et le jour qui provoque cette erreur

C'est plutôt faire un dm.Query.SQL.SaveToFile('MonFichier.txt') qu'il faut faire.

Une fois que c'est fait, il faudrait le poster afin de voir ce qui pose problème ...
A+

[Rayek]

Essaie Comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 procedure TForm1.FormActivate(Sender: TObject);
            var ref:Tdate;
     begin
            dm.Query.Close;
            ref:=IncMonth(date,-11);
            dm.Query.ParamCheck := True;
            dm.Query.ParamByName('ddc').Value:=ref;
            dm.Query.Open;
     end;

Salut,



C'est plutôt faire un dm.Query.SQL.SaveToFile('MonFichier.txt') qu'il faut faire.

Une fois que c'est fait, il faudrait le poster afin de voir ce qui pose problème ...
A+

Inutile, les paramètres ne sont pas enregistrés quand on fait un SaveToFile.

[amtdev]

Toujours le même message d'erreur.

[amtdev]

J'ai trouvé la solution, il fallait écrire ça:

Code :

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

1
2
3
4
5
6
7
procedure TForm1.FormActivate(Sender: TObject);
            var ref:TDateTime;
     begin
            ref:=IncMonth(date,-11);
            dm.Query.ParamByName('ddc').AsDateTime:=ref;
            dm.Query.Open;
     end;

Je vous remercie comme même.