Discussion :

[sondo]

Salut,

Après avoir remplacer les combobox par des DateTimePicker, je recnontre des problèmes avec la base de donnée.
Erreur : Invalid relational operator.

Code :

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

1
2
3
4
5
6
7
Abonnement.Query_Abo.sql.Clear;
     Abonnement.Query_Abo.sql.Add('Select Nom, Prenom, Section, Parcelle, Ilot, Rang, Numpol, Clepol, dateateabo, Tar,DateSite from Abo');
     Abonnement.Query_Abo.sql.Add('Where Dateabo between' + DateToStr(DateTimePicker2.Date)));
     Abonnement.Query_Abo.sql.Add('And ' + DateToStr(DateTimePicker3.Date)));
     Abonnement.Query_Abo.sql.Add('And expl = ' + QuotedStr(ExplEdit.text));
     Abonnement.Query_Abo.sql.Add('order by dateabo');
     Abonnement.Query_Abo.Open;

[qi130]

Essaies en mettant la condition relative à la date entre parenthèses.

[mahe01]

il faut mettre année puis mois puis jours : comme ca :
Abonnement.Query_Abo.sql.Add('And '
+ formatdatetime('yyyy-mm-dd',DateTimePicker3.Date));

[bds2006]

Bonjour,

Je mettrai la date plutôt comme ça :

Code :

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

1
2
 
FormatDateTime('mm/dd/yyyy',DateTimePicker3.Date))

Cordialement,
Mathieu

[Rayek]

Passe par les paramètres ca regle beaucoup de problème avec les dates et pas besoin de connaitre sont format

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
With Abonnement.Query_Abo do
begin
  sql.Clear;
  sql.Add('Select Nom, Prenom, Section, Parcelle, Ilot, Rang, Numpol, Clepol, dateateabo, Tar,DateSite from Abo');
  sql.Add('Where (Dateabo between :DDEBUT And :DFIN)');
  sql.Add('And expl = :EXPL');
  sql.Add('order by dateabo');
  paramcheck := true;
  parambyname('DDEBUT').Value := DateTimePicker2.Date;
  parambyname('DFIN').Value := DateTimePicker3.Date;
  parambyname('EXPL').value := ExplEdit.text;
  Open;
end;

[sondo]

Salut à tous,

Merci pour vos interventions.
Toutes les excuses pour le silence un peu longt independant de ma volonté.
J'ai éssayé

Code :

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

FormatDateTime('mm/dd/yyyy',DateTimePicker3.Date))

et

Code :

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

formatdatetime('yyyy-mm-dd',DateTimePicker3.Date));

qui ne marche pas.
Enfin j'au utilisé

Code :

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

1
2
3
4
5
6
7
8
9
10
Abonnement.Query_Abo.sql.Clear;
     Abonnement.Query_Abo.sql.Add('Select Abobt_Nom, Abobt_Prenom, Abobt_Section, Abobt_Parcelle, Abobt_Ilot, Abobt_Rang, Abobt_Numpol#, Abobt_Clepol#, Abobt_Dateabo, Abobt_Tar, Abobt_DateSit from Gc.gc_Abonne');
     Abonnement.Query_Abo.sql.Add('Where (Abobt_Dateabo between :DDEBUT And :DFIN)');
     Abonnement.Query_Abo.sql.Add('And abobt_expl# = :EXPL');
     Abonnement.Query_Abo.sql.Add('order by abobt_dateabo');
     Abonnement.Query_Abo.ParamCheck := true;
     Abonnement.Query_Abo.parambyname('DDEBUT').Value := DateTimePicker2.Date;
     Abonnement.Query_Abo.parambyname('DFIN').Value := DateTimePicker3.Date;
     Abonnement.Query_Abo.parambyname('EXPL').value := ExplEdit.text;
     Abonnement.Query_Abo.Open;

Voici ce que oracle ramène comme erreur : 'inconsistent datatypyes'.

[cmen76]

Salut,

Une alternative pourrait s'avérer efficace bien que moins portable (spécifique Oracle) :

Code :

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

1
2
3
4
5
 
Abonnement.Query_Abo.sql.Add('Where Dateabo between to_date(' +
QuotedStr(FormatDateTime(DateTimePicker2.Date, 'dd/mm/yyyy')) + ', ' +
QuotedStr('dd/mm/yyyy') + ')';
...

[sondo]

C'est un peu plus fort que moi. Mais j'essaie de m'adapter.

Code :

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

1
2
3
4
5
Abonnement.Query_Abo.sql.Add('Select Abobt_Nom, Abobt_Prenom, Abobt_Section, Abobt_Parcelle, Abobt_Ilot, Abobt_Rang, Abobt_Numpol#, Abobt_Clepol#, Abobt_Dateabo, Abobt_Tar, Abobt_DateSit from Gc.gc_Abonne');
     Abonnement.Query_Abo.sql.Add('Where abobt_expl# = ' + QuotedStr(ExplEdit.text));
     Abonnement.Query_Abo.sql.Add('And Abobt_Dateabo between to_date('+ QuotedStr(FormatDateTime('mm/dd/yyyy', DateTimePicker2.Date)));
     Abonnement.Query_Abo.sql.Add('And to_date('+ QuotedStr(FormatDateTime('dd/mm/yyyy', DateTimePicker3.Date)));
     Abonnement.Query_Abo.sql.Add('order by abobt_dateabo');

L'erreur est : 'missing right parenthesis'.
Avec un peu d'aide je vais y arriver.

[Rayek]

Le texte est pourtant simple, il te manque une parenthèse ) , vérifies ta requete

[cmen76]

ça devrait donner qqch comme ça

Code :

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

1
2
3
4
5
6
7
 
Abonnement.Query_Abo.sql.Add('Where (Abobt_Dateabo between ');
Abonnement.Query_Abo.sql.Add('to_date('+Quotedstr(formatdatetime('dd/mm/yyyy', now))+','+QuotedStr('dd/mm/yyyy')+')');
Abonnement.Query_Abo.sql.Add(' and ');
Abonnement.Query_Abo.sql.Add('to_date('+Quotedstr(formatdatetime('dd/mm/yyyy', now))+','+QuotedStr('dd/mm/yyyy')+')');
Abonnement.Query_Abo.sql.Add(')');
Abonnement.Query_Abo.sql.Add('And abobt_expl# = '+...

en remplaçant now par tes datetimepicker.date

[sondo]

Merci de m'avoir emmené à l'école. C'est très instructif.
Merci encore à vous tous et à très bientôt.