Discussion :

[Jean-François PETIT]

Bonjour,
Je cherche comment exprimer une requête SQL sur une table dbase avec la date du jour dans la clause Where.
Quelle est la fonction qui donne la date du jour?
La requête est écrite avec l'explorateur de base de données de delphi 5.
Merci de votre aide
J-F Petit

[souch]

tu peut utiliser par exemple CURRENT_DATE()

Code :

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

1
2
3
 
SELECT CURRENT_DATE();
// -> 2005-03-23

il y a d'autres fonction, parfaitement décrites ici : http://dev.mysql.com/doc/mysql/en/date-and-time-functions.html

@+

[Jean-François PETIT]

tu peut utiliser par exemple CURRENT_DATE()

Code :

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

1
2
3
 
SELECT CURRENT_DATE();
// -> 2005-03-23

il y a d'autres fonction, parfaitement décrites ici : http://dev.mysql.com/doc/mysql/en/date-and-time-functions.html

@+

Merci pour la réponse mais
Cela ne marche que pour mysql pas pour dbase et en tout cas pas avec l'explorateur de base de données de Delphi 5

A+

[souch]

ha désolé ...

[delphichem]

Essai cette fonction:

Code :

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

1
2
3
4
5
6
7
8
function Getdate(Date: TDate): string;
var c: char;
begin
 c := DateSeparator; // Sauvegarder le separateur de date
 DateSeparator := '/'; // le slash est le caractère que reconnait le separateur de date de DBase
 Result := FormatDateTime('mm/dd/yyyy', Date); // date sql est de type mois, jour, année
 DateSeparator := c; // récupère le separateur de date sauvegardé
end;

Dans ton code tu pourras d'inspirer de ceci:

Code :

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

1
2
3
4
5
6
7
8
with Query1 do
begin
  SQL.Clear;
  SQL.Add('Select *');
  SQL.Add('From TableDbase');
  SQL.Add('where TableDbase."Date" = ''' + GetDate(Now) + '''');
  Active := True;
end;

Tu pourras utiliser cette fonction avec n'importe quelle date.

[Jean-François PETIT]

Merci pour ce code Delphi, je l'avais fait autrement, mais ce n'est pas ma question.
Je voudrais écrire la requête avec l'explorateur de base de données de delphi 5 sans passer par la programmation.