Transtypage variant integer

Bonjour à toutes et à tous.
J'ai encore besoin de vous, et ce ne sera pas la dernière fois!

Code:

---

1 2 3 4 5 6 7 8 9

Requete_Coupon.SQL.Text := 'INSERT INTO s_ent.t_j_coupon_cpn (cpt_id, act_id, cpn_nombre, cpn_montant, cpn_date, cpn_unique) '; Requete_Coupon.SQL.Add('VALUES (:COMPTE, :VALEUR, :NOMBRE, :MONTANT, :DATE, :UNIQUE);'); Requete_Coupon.Params.ParamByName('COMPTE').AsInteger := Fiche_Accueil.Compte; Requete_Coupon.Params.ParamByName('VALEUR').AsInteger := DBLCB_Valeur.KeyValue; Requete_Coupon.Params.ParamByName('NOMBRE').AsInteger := StrToInt(Edition_Nombre.Text); Requete_Coupon.Params.ParamByName('MONTANT').AsFloat := StrToFloat(Edition_Montant.Text); Requete_Coupon.Params.ParamByName('DATE').AsDate := StrToDate(Edition_Date.Text); Requete_Coupon.Params.ParamByName('UNIQUE').AsBoolean := CB_Unique.Checked;

---

Après la pose d'un point d'arrêt sur la ligne 1, c'est la ligne numéro 5 qui renvoie une erreur.

Code:

---

Requete_Coupon.Params.ParamByName('VALEUR').AsInteger := DBLCB_Valeur.KeyValue;

---

DBLCB_Valeur.KeyValue renvoie un variant que je n'arrive pas à transtyper en un integer ne connaissant pas l'unité renfermant la commande VarToInt. Est-ce que son utilisation résoudra mon problème?
Merci d'avance pour votre aide, Michel.

hello,

Citation:

---

Envoyé par Miflon

Après la pose d'un point d'arrêt sur la ligne 1, c'est la ligne numéro 5 qui renvoie une erreur.

Code:

---

Requete_Coupon.Params.ParamByName('VALEUR').AsInteger := DBLCB_Valeur.KeyValue;

---

DBLCB_Valeur.KeyValue renvoie un variant que je n'arrive pas à transtyper en un integer ne connaissant pas l'unité renfermant la commande VarToInt. Est-ce que son utilisation résoudra mon problème?
Merci d'avance pour votre aide, Michel.

---

Quel est le message d'erreur parce que moi avec le code suivant je n'ai pas d'erreur :

Code:

---

1 2 3 4 5 6 7

var leVariant: Variant; var lEntier: Integer; begin leVariant := 2021; lEntier := leVariant; end;

---

Sinon on peut faire :

Code:

---

lEntier := Integer(leVariant);

---

Ami calmant, J.P

Merci de ta réponse l'ami.
Voici le message d'erreur :

Citation:

---

Could not convert variant of type (NULL) into type (Int64)
Press OK to ignore and risk data corruption
Press abort to kill the program

---

L'utilisation de :

Citation:

---

integer(DBLCB_Valeur.KeyValue)

---

provoque la même erreur.
En codant en dur tous les paramètres de la requête

Citation:

---

Requete_Coupon.Params.ParamByName('SSSSS').AsInteger := N;

---

l'insertion se fait correctement.
Michel.

Bonsoir,

Il faut peut-être alors tester le cas null pour lui attribuer une valeur par défaut :

Code:

---

1 2 3 4

if VarIsNull(DBLCB_Valeur) then Requete_Coupon.Params.ParamByName('VALEUR').AsInteger := Valeur_Entiere_par_defaut else Requete_Coupon.Params.ParamByName('VALEUR').AsInteger := DBLCB_Valeur.KeyValue;

---

Merci tourlourou pour ta réponse.
J'ai fait précéder la requête par les instructions suivantes :

Code:

---

1 2 3 4 5 6 7 8

boxstyle := MB_OK; Application.MessageBox(PChar(IntToStr(Fiche_Accueil.Compte)), 'Numéro compte', boxstyle); Application.MessageBox(PChar(IntToStr(DBLCB_Valeur.KeyValue)), 'ID Valeur', boxstyle); Application.MessageBox(PChar(Edition_Nombre.Text), 'Nombre', boxstyle); Application.MessageBox(PChar(Edition_Montant.Text), 'Montant', boxstyle); Application.MessageBox(PChar(Edition_Date.Text), 'Date', boxstyle); if CB_Unique.Checked then Application.MessageBox(PChar('Oui'), 'Unique', boxstyle) else Application.MessageBox(PChar('Non'), 'Unique', boxstyle);

---

Toutes les données s'affichent correctement et notamment

Citation:

---

DBLCB_Valeur.KeyValue

---

Donc la requête est bien alimentée par des paramètres non 'null', provenant du TDBLookupComboBox, des 3 TEdit et du TCheckBox .
Je continue d'investiguer, Michel.

Bon dimanche à toutes et à tous.
Comme suggéré par J.P., je suis passé par une variable intermédiaire :

Code:

---

1 2 3 4

var VV : Variant; V : integer; VV := DBLCB_Valeur.KeyValue; V := VV;

---

puis :

Code:

---

Requete_Coupon.Params.ParamByName('VALEUR').AsInteger := V;

---

et cela fonctionne!
Je pensais que le transtypage fonctionnait directement. Les voies du Pascal sont-elles impénétrables? Enfin, pour moi seulement?
Merci à toutes et à tous pour votre aide omniprésente. Protégez-vous bien, masque, gel, vaccination et rappels.
Michel.