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