Variable "date" dans une requête paramétrée

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

Code:

---

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:

---

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.

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 :lol:

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.

fait un :

Code:

---

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

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?

suggestion

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

ç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)".

Salut,

Citation:

---

Envoyé par ALWEBER

fait un :

Code:

---

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+

Essaie Comme ça

Code:

---

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;

---

Citation:

---

Envoyé par ero-sennin

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.

Toujours le même message d'erreur.

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

Code:

---

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.