Discussion :

[GoustiFruit]

Bonjour,

J'ai une BDD SQLite3 sur laquelle je fais une requête qui doit me retourner une valeur réelle (champ "Rating2" dans les ex. ci-dessous).

Si je fais une requête comme ça, tout va bien:

Code :

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

1
2
3
4
5
6
7
with qry do begin
  SQL.Text := 'SELECT Rating2 FROM Matchs WHERE (Date < ''1912-04-01'') AND (Team1 = 9740 OR Team2 = 9740) ORDER BY DATE DESC LIMIT 1';
  Open;
 
  f := Fields[0].AsFloat;
  AddToLog(Format('Rating: %g, [f]));
end;

Résultat ok, affiché:

Rating: 950,640991210938

Mais si je fais comme ça...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
with qry do begin
  SQL.Clear;
  SQL.Add('SELECT CASE');
  SQL.Add(' WHEN Team1 = 9740 THEN Rating1');
  SQL.Add(' WHEN Team2 = 9740 THEN Rating2');
  SQL.Add('END');
  SQL.Add('FROM Matchs WHERE (Date < ''1912-04-01'') AND (Team1 = 9740 OR Team2 = 9740)');
  SQL.Add('ORDER BY Date DESC LIMIT 1;');
  Open;
 
  f := Fields[0].AsFloat;
  AddToLog(Format('Rating: %g', [f]));
end;

...j'ai une exception:

Exception class EConvertError with message ''950.640991210938' is not a valid floating point value'.

!?!?

Dans les deux cas, c'est la même valeur de la même ligne qui est recherchée (950.64...), pourquoi est-ce que ça provoque une exception dans le second ? J'ai également essayé avec:

Code :

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

f := StrToFloat(Fields[0].AsString);

Pareil

[Paul TOTH]

à mon avis

Rating1 = 950,640991210938
Rating2 = 950.640991210938

SQLite3 ne se préoccupant du type des colonnes, tu as du stocker une chaîne contenant une virgule à un moment donné.

[GoustiFruit]

Justement non !?
- D'une part mes valeurs sont bien stockées en "AsFloat" dans la table (ce sont des Single à l'origine sous Delphi).
- Et d'autre part les deux requêtes présentées ci-dessus retournent exactement le même champ de la même ligne !
Par contre j'ai l'impression que la deuxième requête retourne une chaîne peut-être parce que le "SELECT CASE" introduit une ambiguïté quant au type de données retournées ? (le champ retourné pouvant varier d'une requête à l'autre)
Une autre preuve que ce n'est pas un problème de virgule/point, c'est que si je fais:

Code :

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

f := StrToFloat(Fields[0].AsString);

Ça plante !
Mais si je fais:

Code :

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

f := StrToFloat(Copy(Fields[0].AsString, Length(Fields[0].AsString) - 2));

Ça marche !

Je vais partir sur la supposition que l'ambiguïté force le retour d'un champ de type STRING et que la conversion ne passe pas parce que la chaîne est trop longue !? Et je vais limiter mes valeurs à 2-3 chiffres après la virgule parce que de toutes façon je n'ai pas besoin de plus.

Mais si quelqu'un avait une explication, peut-être que je mourrai moins idiot...

[SergioMaster]

je ne connais pas cette BDD mais ? si tu forçais avec un CAST la valeur de retour ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
SELECT 
 CAST(CASE 
          WHEN Team1 = 9740 THEN Rating1
          WHEN Team2 = 9740 THEN Rating2
         END 
       AS FLOAT) AS RATING;
.....
ou 
CASE 
  WHEN TEAM1=9740 THEN CAST(rating1 AS FLOAT)
  WHEN TEAM2=9740 THEN CAST(rating2 AS FLOAT)
END

bien sur a tester et si le CASTING existe

[GoustiFruit]

CAST existe, les deux formes de la requête fonctionnent (même si je pense que le deuxième reste ambiguë), mais ça plante toujours au moment de la récupération dans Delphi (f := Fields[0].AsFloat). J'ai aussi essayé avec CAST (x AS REAL)

Ceci ne fonctionne pas non plus:

Code :

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

1
2
3
4
5
6
SELECT CASE
WHEN Team1 = 9740 THEN Rating1
WHEN Team2 = 9740 THEN Rating2
END * 1.0
FROM Matchs WHERE (Date < '1912-04-01') AND (Team1 = 9740 OR Team2 = 9740)
ORDER BY Date DESC LIMIT 1;

Ni la variante combinée CAST et * 1.0

J'ai aussi essayé avec ROUND(X, Y) sans plus de succès. Et puis... j'ai réalisé que mon Copy(...) était foireux, j'ai oublié un paramètre, résultat il me coupait le '.' et non la fin de la chaîne comme je le croyait ! Du coup... je m'excuse Paul Toth !!! mais c'est bien toi qui avais raison Et désolé aussi SergioMaster pour t'avoir fait perdre du temps pour rien (enfin j'aurais quand même appris quelque chose avec le CAST).
Un petit DecimalSeparator := '.' et c'est réglé.
Problème résolu.

[GoustiFruit]

Cela dit en passant... ça règle le problème de conversion string -> float, mais ça n'explique pas pourquoi dans un cas SQLite me renvoie une valeur de type float et dans l'autre une valeur de type string. Même quand j'essaye de forcer le type.

[Paul TOTH]

A mon humble avis, vu que Delphi te remonte une erreur de conversion avec une virgule, ta base doit contenir cette virgule.

Et de toute façon, si tu fais select cast('3.14' as float), cast('3,14' as float) tu obtiens 3.14 et 3.0

[GoustiFruit]

Non, encore une fois les deux requêtes récupèrent exactement la même valeur, dans la même BDD, dans la même table, la même ligne, la même colonne ! Avec la première requête, pas de problème, je récupère la valeur en AsFloat, quelque soit la valeur de DecimalSeparator. La deuxième provoque une exception.
D'ailleurs l'exception le montre bien:

Exception class EConvertError with message ''950.640991210938' is not a valid floating point value'.

De même quand je fais un CAST avec la deuxième requête, ça plante, alors que ça passe avec la première !
D'ailleurs quand je visualise mes données avec un outil externe (SQLiteSpy, Navicat), ils m'affichent bien des valeurs avec des points, pas de virgule.
Enfin dans mon code, je n'ai qu'une procédure qui touche à ces colonnes (Rating1 et Rating2), et je passe bien mes paramètres comme des réels, le code en question:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
  with qry do begin
    SQL.Clear;
    SQL.Add('UPDATE Matchs SET');
    SQL.Add('Rating1 = CASE WHEN Team1 = :p0 THEN :p1 ELSE Rating1 END,');
    SQL.Add('Rating2 = CASE WHEN Team2 = :p2 THEN :p3 ELSE Rating2 END');
    SQL.Add('WHERE ID IN (');
    SQL.Add(' SELECT ID');
    SQL.Add(' FROM Matchs');
    SQL.Add(' WHERE (Date <= :p4) AND (Team1 = :p5 OR Team2 = :p6)');
    SQL.Add(' ORDER BY Date DESC LIMIT 1');
    SQL.Add(');');
    StartTransaction;
    for Team in Teams do begin
      Params[0].AsInteger := Team.Id;
      Params[1].AsFloat := Team.Rating;
      Params[2].AsInteger := Team.Id;
      Params[3].AsFloat := Team.Rating;
      Params[4].AsDate := EndDate;
      Params[5].AsInteger := Team.Id;
      Params[6].AsInteger := Team.Id;
      ExecSQL;
    end;
    Commit;
  end;

[Paul TOTH]

oui remarque je me basais sur la , de ton premier résultat alors qu'elle provient de la fonction Format() de Delphi

et que donne un Fields[0].AsString dans chaque cas ?

ensuite c'est peut-être un problème au niveau du composant, SQLite propose la fonction sqlite3_column_double() qui est peut-être utilisée dans le premier cas alors que c'est Delphi qui s'occupe de la conversion dans le second cas.

[GoustiFruit]

et que donne un Fields[0].AsString dans chaque cas ?

Comme tu l'as dit, SQLite ne se préoccupe pas du type de données, en interne en fait tout est sous forme de texte, donc AsString fonctionne dans tous les cas, quelque soit le type "déclaré" de la colonne.

ensuite c'est peut-être un problème au niveau du composant, SQLite propose la fonction sqlite3_column_double() qui est peut-être utilisée dans le premier cas alors que c'est Delphi qui s'occupe de la conversion dans le second cas.

Là franchement je ne sais pas. J'utilise les composants Aducom, je vais poser la question sur leur forum.
Ce qui est ballot finalement c'est que le "bon" programmeur, celui qui pensera à déclarer le DecimalSeparator et les autres paramètres spécifiques à la localisation, ne se rendra pas compte du bug

[edam]

et avec round

Code :

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

1
2
3
4
5
6
SELECT 
CASE 
          WHEN Team1 = 9740 THEN round(Rating1)
          WHEN Team2 = 9740 THEN round(Rating2)
         END 
        AS RATING;

simplement pour tester

[GoustiFruit]

Déjà essayé.

Que ce soit...

Code :

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

1
2
3
4
5
6
7
SQL.Clear;
SQL.Add('SELECT Round(CASE');
SQL.Add(' WHEN Team1 = 9740 THEN Rating1');
SQL.Add(' WHEN Team2 = 9740 THEN Rating2');
SQL.Add('END)');
SQL.Add('FROM Matchs WHERE (Date < ''1912-04-01'') AND (Team1 = 9740 OR Team2 = 9740)');
SQL.Add('ORDER BY Date DESC LIMIT 1;');

ou...

Code :

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

1
2
3
4
5
6
7
SQL.Clear;
SQL.Add('SELECT CASE');
SQL.Add(' WHEN Team1 = 9740 THEN Round(Rating1)');
SQL.Add(' WHEN Team2 = 9740 THEN Round(Rating2)');
SQL.Add('END');
SQL.Add('FROM Matchs WHERE (Date < ''1912-04-01'') AND (Team1 = 9740 OR Team2 = 9740)');
SQL.Add('ORDER BY Date DESC LIMIT 1;');

-> Exception sur "Fields[0].AsFloat" !

[Paul TOTH]

d'où la question, que retourne FieldS[0].AsString dans les deux cas, avec un point ou une virgule ?

et que retourne Fields[0].ClassName ? tu verras bien si tu as un TFloadField d'un côté et un TStringField de l'autre.

[GoustiFruit]

Fields[0].AsString retourne une chaîne avec un point dans les deux cas (la valeur a changé depuis le lancement du sujet, mais le problème reste le même).

AddToLog(Fields[0].AsString) -> 938.568237304688

Fields[0].ClassName retourne un TFloatField dans le premier cas, un TStringField dans le deuxième cas, quelque soit la "transformation" faite sur le SELECT (CAST, ROUND, *1.0).

[Paul TOTH]

Fields[0].AsString retourne une chaîne avec un point dans les deux cas (la valeur a changé depuis le lancement du sujet, mais le problème reste le même).


Fields[0].ClassName retourne un TFloatField dans le premier cas, un TStringField dans le deuxième cas, quelque soit la "transformation" faite sur le SELECT (CAST, ROUND, *1.0).

et bien tu sais maintenant pourquoi ça plante dans le second cas, TStringField fait un StrToFloat qui utilise le DecimalSeparator alors que TFloatField récupère directement la valeur retournée par SQLite.

reste à savoir pourquoi dans le second cas le champ est détecté comme un String...et j'ai la réponse

The sqlite3_column_type() routine returns the datatype code for the initial data type of the result column. The returned value is one of SQLITE_INTEGER, SQLITE_FLOAT, SQLITE_TEXT, SQLITE_BLOB, or SQLITE_NULL. The value returned by sqlite3_column_type() is only meaningful if no type conversions have occurred as described below. After a type conversion, the value returned by sqlite3_column_type() is undefined. Future versions of SQLite may change the behavior of sqlite3_column_type() following a type conversion.

ça veux dire que SQLite ne donne aucune information sur le type de données retournée, et Delphi se contente du type String.

[GoustiFruit]

et bien tu sais maintenant pourquoi ça plante dans le second cas, TStringField fait un StrToFloat qui utilise le DecimalSeparator alors que TFloatField récupère directement la valeur retournée par SQLite.

Ça je l'avais déjà bien compris, restait à comprendre pourquoi dans un cas et pas dans l'autre...

reste à savoir pourquoi dans le second cas le champ est détecté comme un String...et j'ai la réponse

Il reste une part d'inexpliqué, puisque quand je ne fais aucune conversion (aucune fonction additionnelle sur le SELECT, uniquement utilisation du "CASE") ça me retourne quand même un type undefined. Ça me paraît aller à l'encontre de ça:

The sqlite3_column_type() routine returns the datatype code for the initial data type of the result column.

[Paul TOTH]

vu que le case peut retourner différentes colonnes de différents type, il y a potentiellement une conversion...ça ne me choque pas que le "undefined" se présente également dans ce cas.

[GoustiFruit]

Allez, résolu définitivement.