Discussion :

[shugxg]

Bonjour à tous,

Me voilà devant un problème particulier. Je remonte des valeurs de ma base de données MYSQL depuis mon application Delphi et lorsque la valeur est négative, Delphi (ou ADO) me renvoie une valeur positive.

Définition de mon champ :
table : editionlivre
champs : nbarestocker
type : tinyint (signé)

Dans ma base, les valeurs négatives sont bien affichées avec le SELECT qui va bien.

le même SELECT depuis Delphi me remonte :
la bonne valeur si cette valeur est >= 0 (2 retourne 2)
une valeur calculée (la valeur + 256) si la valeur est <0 (-2 retourne 254)

C'est un peu comme si Delphi gérait le champ comme un unsigned.
Mon code :

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
 
                qry:=TADOQuery.Create(self);
                qry.AutoCalcFields := False;
                qry.CacheSize := 10;
                qry.CursorType := ctStatic;
                qry.LockType := ltReadOnly;
                qry.ParamCheck := true;
                qry.ExecuteOptions:=[];
                qry.Connection:=QryItem.Connection;
 
                sql := 'SELECT nbARestocker FROM editionlivre ';
                sql:=sql+'WHERE numEditionLivre = 0310311';
showmessage(sql);
                qry.SQL.Text:=sql;
                qry.open;
showmessage(qry.Fields[0].AsString);
                vendabilite:=qry.Fields[0].AsInteger;
ShowMessage(IntToStr(vendabilite));
                qry.close;
 
                qry.free;

Quelqu'un a-t-il une idée ?
merci
shug

[ShaiLeTroll]

fait un

Code :

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

showmessage(qry.Fields[0].ClassName);

le tinyint est souvent considéré comme un Boolean, en tout avec MyDAC de CoreLab c'est le cas ... en Java, aussi ...
Fait des tests avec d'autre champs déclaré un UNSIGNED et les mêmes en SIGNED, et vérifie si cela a un impact !

[shugxg]

Bonjour ShaiLeTrol,

J'ai fais le

Code :

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

1
2
 
showmessage(qry.Fields[0].ClassName);

et il me retourne

Code :

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

1
2
 
TSmallintField

Je ne sais pas ce qu'il faut en conclure.

La base de données est accédée par une application en Delphi et par un petit portail en PHP. PHP récupère bien les bonnes valeurs.

Merci

[shugxg]

J'ai changé le type de ma colonne de TINYINT vers SMALLINT et cela fonctionne.
le ClassName me répond toujours TSmallIntField mais j'ai bien mes valeurs négatives maintenant.

Ca m'embête par contre beaucoup d'aller me battre avec mon architecte de données maintenant pour faire convertir ce champ.

Donc si j'ai pas le choix, je bataillerai mais si quelqu'un a une autre solution je suis preneur

Merci encore

[ShaiLeTroll]

Si tu regarde, un TinyInt signé c'est -127 à 128, le TSmallintField c'est -32768 à 32767, il avait déjà agrandi la taille du champ, possible que le TinyInt est récupéré en Smallint au lieu de Shortint, et comme le bit de poids fort (le marquer du négatif) est en position 7, dans le Smallint cela n'a pas de signification spécifique car le bit de poids fort c'est le 15, ainsi tu récupères donc un nombre non signé ...

[Aka Guymelef]

Je concorde avec l'analyse de ShaiLeTroll, en effet déjà si tu regardes la panoplie de TxxxField qui existe il n'y a pas de TTinyIntField. Celui qui se rapproche le plus alors c'est le TSmallIntField qui s'attend à stocker un SmallInt soit deux octets.

Or comme ta valeur ne dépasse pas le premier octet, le SmallInt considère que la valeur est toujours positive, puisque son bit de poids fort (le 32e) n'est jamais mis à 1 comme le disais ShaiLeTroll.

Comme solution soit tu fais changer le champ en base de donnée, c'est la solution la moins impactante pour toi. Soit est obligé de mettre un "accesseur" supplémentaire à ton champ qui se contentera de regarder le 16e bit de ta valeur, si il est à 1 alors il faudra le passer à 0 et passer le 32e bit à 1 sinon ne rien faire par exemple (ou bien convertir le SmallInt en TinyInt directement).

[LeGEC]

Code :

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

vendabilite:=qry.Fields[0].AsInteger;

Est-ce que vendabilite est une variable locale, un champ? quel est son type?
Dans ton cas, ne suffirait-il pas de faire

Code :

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

ShortInt(qry.Fields[0].AsInteger)

ou une bête fonction de conversion?

A la création de tes articles, quelles données envoies-tu vers ta base de donnée? Peux-tu nous montrer un bout de code où tu crées un article?

[ShaiLeTroll]

En théorie, cela doit fonctionner
Si tu fais ton transtypage en ShortInt, tu vas tronquer la valeur lu au premier octet et dans notre cas, où l'on avait à la base un TinyInt, c'est tout à fait faisable, comme ensuite tu manipules un ShortInt, finalement, le bit 7 qui n'avait pas de signification dans un SmallInt ou dans un Integer, reprend sa signification de bit de signe !
C'est bien vu LeGEC ...




NB: je numérote de 0 à n ... l'habitude ...

[shugxg]

Brillant !

Merci LeGEC pour le

Code :

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

1
2
 
ShortInt(qry.Fields[0].AsInteger)

ca fonctionne impeccablement avec ça.

Merci beaucoup