Date delphi et paradox

Bonjours a tous

je développe un petit programme en delphi avec une petite base de donnée paradox.

Mon petit problème se situe au moment ou je dois faire une requête SQL sur la date dans la base de donnée et la date du jour.

Pourriez vous me dire le type que je dois utiliser en delphi pour être compatible avec la date de la base de donnée Paradox?

Code:

---

1 2 3 4 5 6

SELECT Distinct D2.Nom, D2.Prenom,D2.Adresse, D2.Email, D2.Nlecteur FROM "DB\Emprunt\emprunt.DB" D1, "DB\Lecteur\lecteur.DB" D2 WHERE (D1.Dteremeff IS NULL) AND (D2.NLecteur = D1.Nlecteur)AND ( :datehier = d1.dterem)   ParamByName('datehier').asdate := dte;

---

Je cherche donc ici a garder mon format date dans paradox et modifier juste le format de ma variable dte pour qu'elle ne me fasse plus un conflict de type.

Merci d'avance

Salut,

Citation:

---

Envoyé par matrix_ceg

pour qu'elle ne me fasse plus un conflict de type.

---

Quel conflit ?

à tout hasard, essayes as DateTime...

je ne suis pas sûr que la syntaxe

Citation:

---

Envoyé par matrix_ceg

FROM "DB\Emprunt\emprunt.DB" D1, "DB\Lecteur\lecteur.DB" D2

---

soit des plus correcte, une jointure INNER, LEFT ou RIGHT devrait être plus adaptée... mais bon si ça marche come ça...

@+

En fait je l'ai fait avec un tdate et celui ci ne me renvoie qu'une date reconnu par delphi au format par exemple 313093 tandis que paradox renvoie une valeur de type 17/12/2004.

Le fait de faire un decode date et le comparer en string ne fonctionne pas car le format de paradox est date même si la structure est la même (suppose un byte de format)c'était un essaie un peux ... "mais qui ne tente rien n'a rien".

J'ai pensé alors a utiliser un datetimepicker mais je vais me renseigner avant sur le composant.

format tester (tdate,tdatetime,string).

je suppose qu'il existe un format et que je ne suis pas le premier a tenter cela mais le tout est de connaître ce format dans delphi.

Merci quand même.

Re,

je vois un peu mieux ton problème...

tu peux utiliser un TDateTime (RxLib) propriété Date ou le composant que tu mentionnes (que je n'utilise pas et sur lequel je n'ai pas d'infos...)

ou alors, effectivement un composant de saisie standard, type TEdit ou mieux TMaskEdit, et ensuite transtyper avec EncodeDate par exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

function TransDate(Ds:string; var Ddt:TdateTime):boolean; var j,m,a:integer; begin try j:=StrToInt(copy(Ds,1,2)); m:=StrToInt(vopy(Ds,4,2)); a:=StrToInt(copy(Ds,7,4)); Ddt:=EncodeDate(a,m,j); // ou Ddt:=EncodeDate(StrToInt(copy(Ds,7,4)),StrToInt(vopy(Ds,4,2)),StrToInt(copy(Ds,1,2))); result:=true; except result:=false; end; end;

---

je ne sais si c'est ce que tu cherches ou si cela t'aidera...

@+

Problème résolut :

en fait cela ne saute pas au yeux quand on teste des date du type 11/12/2004 mais en fait quand on est le 17 comme aujourd'hui.
On remarque que la date en Paradox est non pas 17/12/2004 comme je l'ai dis précédament mais bien 12/17/2004 ce que j'ai donc résolut pas un

Code:

---

1 2 3 4 5 6 7

var dte : tdate datestr : string[10]   dte:=date; decodedate(dte,Year, Month, Day); datestr:=(inttostr(month)+'/'+ inttostr(day)+'/' +inttostr(Year));

---

Il n'y avais plus qu'a mettre dans la requete sql :

Code:

---

1 2	WHERE (D1.Dteremeff IS NULL) AND (D2.NLecteur = D1.Nlecteur)AND ( "'+datestr+'" = d1.dterem)

---

Merci Amenofis pour le coup de main