Boucle For dans un TDBGrid

oui en effet j'ai une erreur sur la parti du code source avec le champ date il me donne une message d'érreur :

Code:

---

1 2 3 4

Le projet sdiapp.ese a provoqué une classe d'exception EDBEngineError avec le message 'utilisation incorrecte du mot-clé. Element: Date Numéro de ligne :5'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.

---

Donc alors si j'ai bien comprit il me faut changer le nom de ma colonne "Date" en autre chose c ca ??

Merci bcp pour votre aide je débute et j'ai un pe de mal

Date est un nom-clé du SQL donc interdit dans les noms de champs (et je crois même de tables).
Si tu veux des infos sur le SQL, regardes ce tuto.

En fait j'ai changer mes base de données et les seule modification que j'ai apporter c'est de changer le nom de la colonne "Date" par "Jour" mais kan je fais les modifications dans mon code source et que je compile il me donne un message d'erreur

Code:

---

Différence de type dans une expression

---

Donc si je ne me trompe pas c'est le problème dons vous parlez au dessus la date qui n'est pas au bon format alors faut'il que je change le format de la date que je met dans ma base de données ou alors est-ce qu'il y a un moyen de changer le format de la date avec laquel je compare ma date de ma base de données ? ? ?

Tu l'as où précisement cette erreur???
C'est dans le code ou à l'exécution???
Si c'est dans le code, c'est à quelle ligne (donnes la ligne au passage) et si c'est à l'exécution, donnes nous la ligne qui plante...

Mon code source modifier est :

Code:

---

1 2 3 4 5 6 7 8 9

Query->Close(); Query->SQL->Clear(); Query->SQL->Add("SELECT DISTINCT T1.TypeEntre AS Type, T1.TypeBillet AS Billets, COUNT(T1.TypeBillet) AS NombreEntreeParType, SUM(T1.Quantite) AS NombreBilletsParType, SUM(T1.Total) AS TotalVenteParType"); Query->SQL->Add("FROM 'Vente.db' T1"); Query->SQL->Add("WHERE T1.TypeEntre <> ''"); Query->SQL->Add("AND T1.TypeBillet <> ''"); Query->SQL->Add("AND T1.Jour = " + Date()); Query->SQL->Add("GROUP BY T1.TypeEntre, T1.TypeBillet"); Query->Open();

---

L'erreur est a l'exécution et elle plante a la ligne :

Code:

---

Query->SQL->Add("AND T1.Jour = " + Date());

---

Essayes avec ça:

Code:

---

1 2	Query->SQL->Add("AND T1.Jour = " + QuotedStr(Date().DateString()));

---

mais je ne promets rien.

j'ai essailer cette ligne elle compile bien et s'execute bien mais le problème c'est quel ne fais rien elle me met une ligne dans mon tableau mais ne me fais pas la rechercher des lignes a mettre

C'est peut-être le format.
Dans ce cas, regardes du côté de FormatDateTime dans l'aide.

Citation:

---

Envoyé par Aide de Builder

Formate un objet TDateTime.

extern PACKAGE AnsiString __fastcall FormatDateTime(const AnsiString Format, System::TDateTime DateTime);

Description

FormatDateTime formate l'objet TDateTime spécifié par DateTime en utilisant la chaîne de formatage Format. Pour plus d'informations, voir Chaînes de format date/heure.

Si la chaîne spécifiée par le paramètre Format est vide, l'objet TDateTime est implicitement formaté avec le spécificateur de format 'c'.

---

J'ai regarder mais sa ne marche pas alors j'ai essailer de mettre cette ligne pour changer la date

Code:

---

Query->SQL->Add("AND T1.Jour = " + QuotedStr(FormatDateTime("yy/mm/dd", Now() + 0)));

---

et sa marche donc merci bcp pour toute l'aide que vous m'avez apporter