[DELPHI 7]Afficher des données à partir d'un TDateTimePicker

Version imprimable

26/10/2008, 15h58
dakodak

[DELPHI 7]Afficher des données à partir d'un TDateTimePicker

Bonjour à tous,

J'utilise un TDateTimePicker et une DBGrid, en choisissant une date dans mon TDateTimePicker j'aimerais n'afficher que les données (se trouvant dans une base SQL SERVER EXPRESS 2005) qui sont à cette date.

Exemple:Avec des produits achetés à différentes dates. En choisissant une date, seuls les produits qui ont été acheté à cette date seront affichées dans la DBGrid.

Comment pourrais-je faire ???

Salut et Bienvenue sur Developpez.com

Pour faire ce que tu souhaites, il te faut un TQuery, un TDataSource et un TDBGrid.

Tu lies le TDBGrid avec le TDataSource (propriété DataSource de la DBGrid) et tu lies le TDataSource au TQuery ( propriété DataSet tu DataSource à renseigner).

Ensuite, tu as bien évidemment un TDatePicker sur ta Form. On va travailler avec l'événement OnChange... comme ça, a chaque fois que tu changeras de date, ta DBGrid sera mise à jour automatiquement.
Logiquement, les dates sont enregistrées sous ce format (si je ne me trompe pas) : ANNEE-MOIS-JOUR.

Voici un exemple qui liste les clients inscrits à une date T :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure TForm1.DateTimePicker1Change(Sender: TObject); var RequeteSQL:String; formatDate:TFormatSettings; begin // On formate notre date pour qu'elle soit sous le même format que celle de la BDD formatDate.DateSeparator:='-'; formatDate.ShortDateFormat:='yyyy-mm-dd'; // On écrit notre requête SQL RequeteSQL:='SELECT * FROM CLIENT WHERE DateInscription ="'+ DateToStr(DateTimePicker1.DateTime,formatDate)+'"'; // On prend soin de toujours vider le TQuery avant chaque requête (sinon, soucis) Query1.SQL.Clear; // Ajout de la requête dans le TQuery Query1.SQL.Add(RequeteSQL); // Exécution de la requête Query1.Open; end;
Voilà, j'espère que ça réponds correctement à ta demande ;)
A+
Ero-Sennin

26/10/2008, 17h26
dakodak

En sélectionnant que les colonnes que j'ai besoin de ma table et donc a la place de * je mets le nom des colonnes, l'erreur ''E2056 Les chaînes ne doivent pas dépasser 255 caractères'' s'affiche..
Existe-il un moyen pour que j'écrive ma requête sur plusieurs lignes dans le code ou une autre solution ?
26/10/2008, 17h28
Cl@udius

Salut

Montre nous le code avec lequel tu as construit ton instruction SQL ?

@+ Claudius

Voici le code :

Code:

1
2
3
4
5
6
7
8
9
procedure TForm1.DateTimePicker1Change(Sender: TObject);
VAR
  RequeteSQL:String;
begin
  RequeteSQL := 'SELECT NUM_FID_CLIENT,NOM_CLIENT, PRE_CLIENT, TYP_CLIENT, NOM_PRODUIT,DAT_ACHAT_PRODUIT,LIEU_MAGASIN,DEBHEURE_OUV_MAGASIN, FINHEURE_OUV_MAGASIN FROM dbo.CLIENT, dbo.MAGASIN, dbo.PRODUITS, dbo.HORAIRE, dbo.FIDELITE WHERE NUM_FID_CLIENT = NUM_CLIENT AND NUM_PRODUIT_MAG = NUM_PRODUIT AND NUM_MAG_HOR = NUM_HORAIRE AND DAT_ACHAT_PRODUIT ="'+ DateToStr(DateTimePicker1.DateTime)+'"';
  QueryProduit.SQL.Clear;
  QueryProduit.SQL.Add(RequeteSQL);
  QueryProduit.Open;
end;

Re,

Je ne sais pas si ça peut / va régler le soucis mais essaie ceci :

Code:

Query1.SQL.Text:=RequeteSQL;

A+ :D

PS: Sinon, pour les requêtes, ce que je fais en général pour m'y retrouver dans mon code, c'est de mettre les instructions à la ligne ...
Avec ton code, ça donnerait ça :
Code:

1 2 3 4 5 6 7 8 Query1.SQL.Clear; Query1.SQL.Add('SELECT NUM_FID_CLIENT,NOM_CLIENT, PRE_CLIENT, TYP_CLIENT, NOM_PRODUIT,DAT_ACHAT_PRODUIT,LIEU_MAGASIN,DEBHEURE_OUV_MAGASIN, FINHEURE_OUV_MAGASIN'); Query1.SQL.Add('FROM dbo.CLIENT, dbo.MAGASIN, dbo.PRODUITS, dbo.HORAIRE, dbo.FIDELITE'); Query1.SQL.Add('WHERE NUM_FID_CLIENT = NUM_CLIENT'); Query1.SQL.Add('AND NUM_PRODUIT_MAG = NUM_PRODUIT'); Query1.SQL.Add('AND NUM_MAG_HOR = NUM_HORAIRE'); Query1.SQL.Add('AND DAT_ACHAT_PRODUIT ="'+ DateToStr(DateTimePicker1.DateTime)+'"'); Query1.Open;

26/10/2008, 18h38
dakodak

J'ai essayé cette solution mais le problème reste toujours cette erreur des chaînes qui ne doivent pas dépasser les 255 caractères.. A cause de la longueur de ma requête.. :cry:

Re

Construit plutôt une requête paramétrée, surtout lorsque tu travailles avec des dates (on s'affranchit ainsi de devoir formater la date selon le SGBD utilisé).

Essaye ainsi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
With Query1 do
begin
  SQL.Clear;
  SQL.Add( 'SELECT NUM_FID_CLIENT, NOM_CLIENT, PRE_CLIENT,');
  SQL.Add('TYP_CLIENT, NOM_PRODUIT, DAT_ACHAT_PRODUIT,');
  SQL.Add('LIEU_MAGASIN, DEBHEURE_OUV_MAGASIN, FINHEURE_OUV_MAGASIN');
  SQL.Add('FROM dbo.CLIENT, dbo.MAGASIN, dbo.PRODUITS, dbo.HORAIRE,'); 
  SQL.Add('dbo.FIDELITE');
  SQL.Add('WHERE NUM_FID_CLIENT = NUM_CLIENT AND');
  SQL.Add('NUM_PRODUIT_MAG = NUM_PRODUIT AND');
  SQL.Add('NUM_MAG_HOR = NUM_HORAIRE AND');
  SQL.Add('DAT_ACHAT_PRODUIT = :PARAM_DATE');
 
  ParamByName('PARAM_DATE').AsDate := DateTimePicker1.Date;
  Open;
end;

@+ Claudius

26/10/2008, 18h52
dakodak

Merciii pour votre aide ça marche correctement ! :D
Je ne pensais pas que l'on pouvait construire une requête comme ça :oops: