Discussion :

[f5jcg_Lulu]

Bonjour à tous,
Me revoilà avec un autre problème. Je cherche le nombre d'enregistrements d'une table entre 2 dates. Le code ci-dessous fonctionne très bien avec Delphi 10.2 mais pas avec Lazarus 2.0.2. Ma BDD est sous SQlite avec les composants ZEOSLib. Tout fonctionne bien sauf cette partie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var d1,d2 : String;
begin
with Dm.ZQuery1 do
  begin
    SQL.Clear;
    d1:=FormatDateTime('mm/dd/yyyy', DatePicker1.Date);
    d2:=FormatDateTime('mm/dd/yyyy', DatePicker2.Date);
    SQL.Add ('SELECT * FROM tblContacts WHERE Jour between #' + d1 + '# AND #' + d2 + '#');
    SQL.Add ('ORDER BY Numero ASC');
    Open;
    NbContacts.Caption := Format('%d', [Dm.ZQuery1.RecordCount]);
  end;

J'ai le message suivant :



Merci beaucoup pour votre aide éclairée.
Merci et bon WE à tous.

[Jon Shannow]

Bonjour,

Je ne sais pas si ça peut venir de là, mais tu es encore dans le With dm.zquery1 quand tu fais ton affectation au contrôle en utilisant dm.zquery1.recordcount.
Soit tu mets uniquement recordcount, soit tu places l'instruction en dehors du With.

Selon moi

JS

[f5jcg_Lulu]

Non, j'ai tout essayé, j'ai mis la ligne RecordCount après le with, je l'ai même mise en commentaire, même problème. J'ai l'intuition que ce sont les 2 DatePicker qui ne sont pas compatibles avec ceux de Delphi. Et je ne vois pas d'autre composant dans la palette Lazarus.
En tout cas merci de vous être intéressé à ce cas.
Et j'ai aussi ailleurs dans le code un problème de non-reconnaissance du type de variable TBookMark, reconnu par Delphi.
A suivre donc...
BD

[f5jcg_Lulu]

Pour info, le problème de TbookMark est résolu : il suffisait de déclarer Db dans les uses de l'unité. Pour le reste, status quo...
Bon WE à tous.
BD

[tourlourou]

N'y aurait-il pas une différence dans la façon de traiter le format date entre les 2 univers ?
SQLite ne possède pas de format spécifique de stockage des dates : le type de colonne choisi ne pourrait-il pas jouer ?
Ceci expliquerait pê le message d'erreur logique dans la requête.

[f5jcg_Lulu]

Bonjour Tourlourou,
Votre remarque est très intéressante. Je viens de regarder la structure de ma BDD Sqlite. Le champ Jour est en VARCHAR(10) (c-à-d DD/MM/AAAA), car effectivement le type DATE n'est pas proposé. Je précise que j'utilise le composant TDateTimePicker. J'ai essayé aussi le TMaskEdit. Rien à faire. Mais tout cela ne m'avance pas car je ne suis pas assez calé (si tant est que je le sois un peu !) pour trouver la solution. Si vous en avez une, je suis bien sûr preneur.
Bon WE.
BD

[acaumes]

Bonjour,

Bonjour Tourlourou,
Je viens de regarder la structure de ma BDD Sqlite. Le champ Jour est en VARCHAR(10) (c-à-d DD/MM/AAAA), car effectivement le type DATE n'est pas proposé.

Non, il n'est pas proposé par défaut (pas plus que varchar d'ailleurs) puisque les colonnes n'ont pas de type dans SQLITE (bien que l'on puisse leur assigner des affinités).
Cependant SQLITE propose des fonctions de traitement des dates https://www.sqlite.org/lang_datefunc.html qui travaillent en mode ISO et permettent des traitements d'intervalles (betwwen datemin and datemax).
Le format utilisé (DD/MM/AAAA) ne devrait pas l'être car avec lui impossible de tester les intervalles de dates ou de faire des calculs.

Cordialement

[thewolf]

Bonjour.

J'ai des programmes utilisant des bdd sqlite avec des dates mais uniquement comme information et je n'avais jusqu'à aujourd'hui jamais fait de sélection ni de calcul avec ces dates ...

J'ai donc fait des tests et je n'ai pas réussi à utiliser des conditions dans le select sur ces dates (quelle que soit la syntaxe). Divers tests m'ont permis de constater que la "référence dates" de sqlite est 31/12/1899 = Jour 1.

Si je mets dans la clause sql select * from matable where madate= 43471, j'obtiens tous les enregistrements du 06/01/2019.

avec sql : select * from matable where madate between 43471 and 43480, ceux entre les 6 et 15/1/19.

pour obtenir la date à partir d'un datetimepicker : DaysBetween(DateTimePicker1.Date, StrToDate('30/12/1899')) .

Christian

[f5jcg_Lulu]

Bonjour,
Votre piste thewolf est intéressante et je vais l'exploiter pour voir où elle me mène.
De toute façon, j'ai constaté d'autres dysfonctionnements et ce projet sous Lazarus n'est pas encore mûr mais il le sera bientôt. J'avance pas-à-pas en essayant d'éliminer les erreurs les unes après les autres. Pour le moment le projet sous Delphi ADO+Access tourne sans aucune faille. Donc à voir.
Je vous remercie tous pour votre aide. Je reviendrai probablement. En attendant je mets la discussion en résolu.
Cordialement

[SergioMaster]

Bonjour,

votre erreur vient surtout du fait que vous n'utilisez pas des requêtes paramétrées (très utile pour les dates)

essayez

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
begin
with Dm.ZQuery1 do
  begin
    SQL.Clear;
    SQL.Add ('SELECT * FROM tblContacts WHERE Jour between :d1 AND :d2');
    SQL.Add ('ORDER BY Numero ASC');
    SQL.ParamByName('d1').asDateTime:=DatePicker1.Date;
    SQL.ParamByName('d2').asDateTime:=DatePicker2.Date;
    Open;
    NbContacts.Caption := Format('%d', [Dm.ZQuery1.RecordCount]);
  end;

[f5jcg_Lulu]

Ce code est-il spécifique à Lazarus ? parce que je l'ai essayé sous Delphi et les ParamByName et AsDateTime sont inconnus (soulignés en rouge, mauvais signe !).
Dernière info : même erreur sous Lazarus, à part asDateTime reconnu.
A suivre. Merci.

[SergioMaster]

Oh, pardon, je me suis trompé en codant un peu trop vite et à la volée du coup j'avais mis des SQL. inutiles

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
begin
with Dm.ZQuery1 do
  begin
    Close; // nécessaire
    SQL.Clear;
    SQL.Add ('SELECT * FROM tblContacts WHERE Jour between :d1 AND :d2');
    SQL.Add ('ORDER BY Numero ASC');
    ParamByName('d1').asDateTime:=DatePicker1.Date;
    ParamByName('d2').asDateTime:=DatePicker2.Date;
    Open;
    NbContacts.Caption := Format('%d', [Dm.ZQuery1.RecordCount]);
  end;

Ce code est-il spécifique à Lazarus ?

absolument pas, d'ailleurs ce n'est même pas spécifique à ZEOSDBO, seul les composants ADO n'ont pas cette syntaxe.

Je m'étonne m^me que dans les réponses précédentes personne n'ai proposé les requêtes paramétrées comme solution

[f5jcg_Lulu]

Oui, j'avais remarqué complètement par hasard qu'en supprimant les SQL les erreurs disparaissaient. Pour info, j'utilise les composants ZEOSDBO. Mais nouveau problème, aucun enregistrement n'est trouvé entre 2 dates, sans autre errreur. J'emploie des TDateTimePicker. Faut-il employer un autre composant de date ? Il ne reste plus qu'à résoudre ce problème pour m'affranchir définitivement de Access. Pas trop tôt !
Encore merci.

[SergioMaster]

Pour info, j'utilise les composants ZEOSDBO.

je l'ai vu rien qu'en lisant le code ZQuery1

Mais nouveau problème, aucun enregistrement n'est trouvé entre 2 dates, sans autre errreur. J'emploie des TDateTimePicker. Faut-il employer un autre composant de date ?

non cela devrait fonctionner maintenant chaque SGBD a ses spécificités

Code SQL :

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

1
2
3
4
5
6
 
-- SQLite
SELECT * FROM employees WHERE hire_date BETWEEN '2014-01-01' AND '2014-12-31'; 
-- ACCESS
SELECT * FROM logs 
WHERE DateValue(date_added) BETWEEN  #01/10/2018#  AND  #4/10/2018#

il faudrait que je teste le passage de paramètres dans ces cas pour en être sûr, en tout cas j'ai toujours fait ainsi avec une Base Firebird (que ce soit avec ZEOSDBO ou Firedac)

[SergioMaster]

Bien, j'ai pu faire un test sur une version 10.2 Starter sur laquelle j'avais installé ZEOSDBO.
Cela fonctionne parfaitement, toutefois il y a une petite astuce il faut correctement définir les paramètres (propriété params de la requête) et définir leur Datatype à ftDate

bien sûr cela peut aussi se faire par code mais ce n'est peut-être pas la peine que je montre comment si ?

[f5jcg_Lulu]

J'ai paramétré à ftDate la propriété Params du ZQuery1 mais nenni, ça ne veut pas le faire. Peut-être y-a-t-il d'autres paramètres à régler ? Voici le code actuel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
begin
  with Dm.ZQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add ('SELECT * FROM tblContacts WHERE Jour between :d1 AND :d2');
    SQL.Add ('ORDER BY Numero ASC');
    ParamByName('d1').asDateTime:=DatePicker1.Date;
    ParamByName('d2').asDateTime:=DatePicker2.Date;
    Open;
    //NbContacts.Caption := Format('%d', [Dm.ZQuery1.RecordCount]);
  end;
end;

Quand je remplace :d1 et :d2 par des dates, j'ai des erreurs de syntaxe.
Bon, je crois que la version Access a encore quelques jours de sursis devant elle, hélas ! J'ai beau réfléchir mais je tourne en rond.
Merci encore de passer un peu de votre temps sur mon bazar.
Cordialement

[SergioMaster]

À moins que cela soit un problème de données ! Si tu peux mettre la base dans un zip et joindre ce dernier à ta réponse je me ferais un plaisir de vérifier ça

NB. même s'il s'agit de celle que j'ai déjà traitée, peut être y a-t-il des erreurs de structure


[Edit]
je viens de retrouver ça en relisant avec attention

Le champ Jour est en VARCHAR(10) (c-à-d DD/MM/AAAA), car effectivement le type DATE n'est pas proposé.

date non, mais datetime oui, stocker une date sous cette forme dans une BDD est totalement contre productif
Faire une recherche entre deux dates quand la date est sous la forme chaine dd/mm/yyyy ne pourra pas fonctionner en passant des paramètres date, il faudrait passer des chaines et encore le résultat serait faux !


Il faut donc transformer une date "chaine" sous forme dd/mm/aaaa en une chaine compatible SQLite soit soius la forme "aaaa-mm-dd"
le code serait donc le suivant

Code SQL :

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

SELECT * FROM tblContacts WHERE  date(substr(jour)||'-'||SubStr(jour)||'-'||substr(jour,1,2))   between :d1 AND :d2')

Je suggère de créer une colonne de type datetime nommée par exemple toto
de faire ensuite un UPDATE de la table

Code SQL :

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

UPDATE tblcontacts set toto=date(substr(jour)||'-'||SubStr(jour)||'-'||substr(jour,1,2))

de supprimer la colonne jour puis de renommer la colonne toto en jour

[Jon Shannow]

En relisant le post initial, j'ai vu que c'était une base SQLite qui était utilisée.
Alors la doc de SQLITE dit ceci

2.2. Date and Time Datatype

SQLite does not have a storage class set aside for storing dates and/or times. Instead, the built-in Date And Time Functions of SQLite are capable of storing dates and times as TEXT, REAL, or INTEGER values:

TEXT as ISO8601 strings ("YYYY-MM-DD HH:MM:SS.SSS").
REAL as Julian day numbers, the number of days since noon in Greenwich on November 24, 4714 B.C. according to the proleptic Gregorian calendar.
INTEGER as Unix Time, the number of seconds since 1970-01-01 00:00:00 UTC.

Applications can chose to store dates and times in any of these formats and freely convert between formats using the built-in date and time functions.

Donc, à voir, comment sont stockées les dates dans la base de données, pour adapter le code d'affection des valeurs paramètres.

JS

[f5jcg_Lulu]

Ok, SergioMaster, je joins la BDD Sqlite contacts.db dans un ZIP. Effectivement, je cherche à traiter les dates sous Sqlite comme je les traite sous Access et forcément je me plante.
Bonne chance et merci.
contacts.zip

[Jon Shannow]

Tes dates sont stockées sous forme de chaine de caractères au format JJ/MM/AAAA autant dire que c'est pas le bon format pour faire des filtres sur intervalle de date.