Discussion :

[lotfi.lahcene]

Bjr à tous,
Alors Delphi 7 base de donnée paradox (je sais que bcp d'entre vous me dirons "mais pourquoi restez vous accroché à ce paradox ?!!!)
rep: l'appli à été développée ainsi et je dois m'y adapter !

je bloque sur comment récupérer la date du système (la date d'aujourd'hui) pour l'utiliser dans une requête en BDE ?!!!!

Code :

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

1
2
select dated_abm, datef_abm, dure_abm, num_ab, nom_ab, prenom_ab, photo_ab, (datef_abm-{c'est ici ou je doit placer la date du systeme}currentDATE) as reste from abonnement, abonne
where abonne.num_ab=abonnement.num_ab and validite_abm='true'

en realité c'est pour calculer le nombre de jours qui restent dans chaque abonnement...

pour ceux qui me diront il faut passer à autre chose....
oui je suis passé à MySQL et SQL Server
mais sur cette application le mal a été fait !!!
donc help me please !

[Fxg]

En utilisant la function : Now : TDateTime;

[lotfi.lahcene]

j'ai déja essayé avec Now ça ne veut pas marcher !!!
j'ai meme essayer

Code :

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

1
2
 
strtodate(formatdatetime('dd/mm/yyyy',now)

rien aussi
meme en essayant

Code :

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

1
2
 
strtodate(formatdatetime('dd/mm/yyyy',date))

[SergioMaster]

Bonjour,

A ma connaissance Paradox ou plutôt le local SQL de BDE n'a pas accès aux dates systèmes.
Pour vous en sortir utilisez une requête paramétrée

Code SQL :

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

1
2
3
4
5
 
SELECT dated_abm, datef_abm, dure_abm, num_ab, nom_ab, prenom_ab, photo_ab, 
(datef_abm-:CURRENTDATE) as reste 
FROM abonnement JOIN  abonne ON abonne.num_ab=abonnement.num_ab 
WHERE  abonnement.validite_abm='true'

Code :

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

1
2
3
4
5
Query.Close;
Query.ParamByName('CURRENTDATE').asString:=FormatDateTime('mm/dd/yyyy',date);   // attention le format de la date est important
ou 
//Query.ParamByName('CURRENTDATE').asDateTime:=now;
Query.Open;

[solilog]

Bonjour,
Oui il faut utiliser un param, la soluton c'est ce que dit SergioMaster sauf un détail: la fonction date au lieu de now pour éviter les prob d'heure qui pourraient fausser ta requete

Code :

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

Query.ParamByName('CURRENTDATE').asDateTime:=date;

- Evite de reconstruire ta date avec des formatdatetime(...) on est jamais sûr de l'ordre des jours, qui peut dépendre de ton windows, de Paradox, ...
- pense à mettre ftDate dans la propriété DataType de ton paramètre
et prend SQL proposé par Sergio.
solilog

[lotfi.lahcene]

j'ai eu une errur

Code :

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

Access violation at adress 4C5F2D6F in module 'idsql32.DLL'. Read of adress 0000000D.

[solilog]

J'ai fait le test ci-dessous pour initialiser un paramètre avec un tDateTimePicker

Code :

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

1
2
3
4
5
6
7
8
 procedure TForm1.Button1Click(Sender: TObject);
begin
  qySQL.Close;                 
  qySQL.SQL.Text := 'select * from OPE where OPDATE > :PKDATE';
  qySQL.Params[0].DataType := ftDate;
  qySQL.Params[0].AsDate := pkdat.date;    // pkDat : tDateTimePicker
  qySQL.Open();
end;

Ca fonctionne bien.
solilog