Discussion :

[matrix_ceg]

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 :

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

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

[Amenofis]

Salut,

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

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...

@+

[matrix_ceg]

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.

[Amenofis]

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 :

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

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...

@+

[matrix_ceg]

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 :

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

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 :

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

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

Merci Amenofis pour le coup de main