Discussion :

[ferhat80]

Dans mon programme DELPHI XE7 je lance la requete SQL suivante pour lister
Des livres non rendu encore dont le champ Date_Liv_Ren

Code :

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

1
2
3
4
5
6
7
8
9
10
DM.ADQ_LivreNonRen.Active;
  DM.ADQ_LivreNonRen.SQL.Clear;
  DM.ADQ_LivreNonRen.SQL.Add('Select distinct E.N_Empr, E.Nom_Empr, E.Prenom_Empr, E.Classe_Empr,');
  DM.ADQ_LivreNonRen.SQL.Add('Em.Date_Liv_Ren, L.N_Ser_Liv, L.Titre_Liv');
  DM.ADQ_LivreNonRen.SQL.Add('From Emprunteur E, Emprunte Em, Livre L');
  DM.ADQ_LivreNonRen.SQL.Add('Where (Em.N_Empr = E.N_Empr) AND (Em.N_Ser_Liv = L.N_Ser_Liv)') ;
  DM.ADQ_LivreNonRen.SQL.Add('AND (Date_Liv_Ren is Null'+ QuotedStr('')+')') ;
  DM.ADQ_LivreNonRen.ExecSQL;
  DM.ADQ_LivreNonRen.Active := True;
  frxReport1.ShowReport();

A l'execution je recois le message suivant.
Oû est l'erreur ? Et Merci a tous ceux qui nous aident .

[ferhat80]

Code :

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

1
2
3
4
5
6
7
8
9
10
DM.ADQ_LivreNonRen.Active;
  DM.ADQ_LivreNonRen.SQL.Clear;
  DM.ADQ_LivreNonRen.SQL.Add('Select distinct E.N_Empr, E.Nom_Empr, E.Prenom_Empr, E.Classe_Empr,');
  DM.ADQ_LivreNonRen.SQL.Add('Em.Date_Liv_Ren, L.N_Ser_Liv, L.Titre_Liv');
  DM.ADQ_LivreNonRen.SQL.Add('From Emprunteur E, Emprunte Em, Livre L');
  DM.ADQ_LivreNonRen.SQL.Add('Where (Em.N_Empr = E.N_Empr) AND (Em.N_Ser_Liv = L.N_Ser_Liv)') ;
  DM.ADQ_LivreNonRen.SQL.Add('AND (Date_Liv_Ren is Null)') ;
  DM.ADQ_LivreNonRen.ExecSQL;
  DM.ADQ_LivreNonRen.Active := True;
  frxReport1.ShowReport();

[SergioMaster]

Vous avez oublié de cloturer la requête avant de la modifier : ligne 1, DM.ADQ_LivreNonRen.Active:=false; ou DM.ADQ_LivreNonRen.Close;L'instruction DM.ADQ_LivreNonRen.ExecSQL; ne sert à rien, même pour ADO.Le principe est simple je fais une requête qui renvoi des données j'utilise Active:=Trueou Open dans le cas contraire (généralement* insert, update ou delete ) ExecSQL* généralement car certains SGBD permettent de renvoyer des valeurs (i.e :Firebird et RETURNING) avec ces instructions
remarque déjà écrite ici, mémorisez les bons réflexes !


PS. Utilisez les jointures normalisées, ce n'est pas comme si je ne l'avais pas écrit ici vous prenez les réponses en compte quelques-fois et le sur une question est fait pour ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  DM.ADQ_LivreNonRen.Active:=false;
  DM.ADQ_LivreNonRen.SQL.Clear;
  DM.ADQ_LivreNonRen.SQL.Add('Select distinct E.N_Empr, E.Nom_Empr, E.Prenom_Empr, E.Classe_Empr,');
  DM.ADQ_LivreNonRen.SQL.Add('Em.Date_Liv_Ren, L.N_Ser_Liv, L.Titre_Liv');
  DM.ADQ_LivreNonRen.SQL.Add('From Emprunteur E, Livre L');
  DM.ADQ_LivreNonRen.SQL.Add('JOIN  Emprunte Em ON Em.N_Empr = E.N_Empr');
  DM.ADQ_LivreNonRen.SQL.Add('JOIN Livre L ON Em.N_Ser_Liv = L.N_Ser_Liv'); 
  DM.ADQ_LivreNonRen.SQL.Add('WHERE Em.Date_Liv_Ren is Null') ;
  DM.ADQ_LivreNonRen.Active := True;  // S'il s'agit uniquement de sortir l'état avec fastreport même pas besoin de rendre active la requête 
 // pour fastreport je suggère plutôt
  frxReport1.PrepareReport; 
  frxReport1.ShowPreparedReport();

[ferhat80]

Vous avez oublié de cloturer la requête avant de la modifier : ligne 1, DM.ADQ_LivreNonRen.Active:=false; ou DM.ADQ_LivreNonRen.Close;L'instruction DM.ADQ_LivreNonRen.ExecSQL; ne sert à rien, même pour ADO.Le principe est simple je fais une requête qui renvoi des données j'utilise Active:=Trueou Open dans le cas contraire (généralement* insert, update ou delete ) ExecSQL* généralement car certains SGBD permettent de renvoyer des valeurs (i.e :Firebird et RETURNING) avec ces instructions
remarque déjà écrite ici, mémorisez les bons réflexes !


PS. Utilisez les jointures normalisées, ce n'est pas comme si je ne l'avais pas écrit ici vous prenez les réponses en compte quelques-fois et le sur une question est fait pour ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  DM.ADQ_LivreNonRen.Active:=false;
  DM.ADQ_LivreNonRen.SQL.Clear;
  DM.ADQ_LivreNonRen.SQL.Add('Select distinct E.N_Empr, E.Nom_Empr, E.Prenom_Empr, E.Classe_Empr,');
  DM.ADQ_LivreNonRen.SQL.Add('Em.Date_Liv_Ren, L.N_Ser_Liv, L.Titre_Liv');
  DM.ADQ_LivreNonRen.SQL.Add('From Emprunteur E, Livre L');
  DM.ADQ_LivreNonRen.SQL.Add('JOIN  Emprunte Em ON Em.N_Empr = E.N_Empr');
  DM.ADQ_LivreNonRen.SQL.Add('JOIN Livre L ON Em.N_Ser_Liv = L.N_Ser_Liv'); 
  DM.ADQ_LivreNonRen.SQL.Add('WHERE Em.Date_Liv_Ren is Null') ;
  DM.ADQ_LivreNonRen.Active := True;  // S'il s'agit uniquement de sortir l'état avec fastreport même pas besoin de rendre active la requête 
 // pour fastreport je suggère plutôt
  frxReport1.PrepareReport; 
  frxReport1.ShowPreparedReport();