Discussion :

[Miflon]

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

Code :

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

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 :

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

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.

[jurassic pork]

hello,

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 :

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

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 :

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

1
2
3
4
5
6
7
 
var leVariant: Variant;
var lEntier: Integer;
begin
leVariant := 2021;
lEntier :=  leVariant;
end;

Sinon on peut faire :

Code :

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

lEntier :=  Integer(leVariant);

Ami calmant, J.P

[Miflon]

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

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 :

integer(DBLCB_Valeur.KeyValue)

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

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

l'insertion se fait correctement.
Michel.

[tourlourou]

Bonsoir,

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

Code :

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

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;

[Miflon]

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

Code :

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

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

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.

[Miflon]

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

Code :

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

1
2
3
4
  var VV : Variant;
  V : integer;
VV := DBLCB_Valeur.KeyValue;
  V := VV;

puis :

Code :

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

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.