pb avec les paramettres d'un requette [Résolu]

[youcef_b_dz]

bonjour tous le monde,
j'essai de faire une petite application base de donnée avec delphi7 et interbase 7
j'ai ecrit ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
   DATA.IBQBank1.close;
   DATA.IBQBank1.SQL.Clear;
    DATA.IBQbank1.Params.CreateParam(ftString,'P_idbank',ptInputOutput);
    DATA.IBQbank1.Params.CreateParam(ftString,'P_nombankfr',ptInputOutput);
    DATA.IBQbank1.Params.CreateParam(ftString,'P_nombankar',ptInputOutput);
   DATA.IBQBank1.ParamByName('P_nombankfr').AsString:=e_libbank.text;
   DATA.IBQBank1.ParamByName('P_nombankar').AsString:=e_libbankar.text;
   DATA.IBQbank1.ParamByName('P_idbank').AsString:=E_cdbank.Text;
   DATA.IBQBank1.SQL.ADD('INSERT INTO bank');
   DATA.IBQBank1.SQL.ADD('(cd_bank, nom_bank_fr, nom_bank_ar)');
   DATA.IBQBank1.SQL.ADD('VALUES');
   DATA.IBQBank1.SQL.ADD('(: P_idbank,: P_nombankfr,: P_nombankar)');
   DATA.IBQBank1.active:=true;

la compilation passe bien mais a l'execution du code j'obtien ce message d'erreur, poutant le champs d'edition contient une information, (composant (E_cdbank.text)

Le projet MIZANIYA.exe a provoqué une classe d'exception EIBInterBaseError avec le message 'validation error for column CD_BANK, value "*** null ***"'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.

je ne sais pas d'ouvient le pb, mais elle me casse la tete
help plaise

[makowski]

c'est plutôt un pb Delphi ça
mais en faisant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
DATA.IBQBank1.close;
 DATA.IBQBank1.SQL.Clear;
 DATA.IBQbank1.Params.CreateParam(ftString,'P_idbank',ptInputOutput);
 DATA.IBQbank1.Params.CreateParam(ftString,'P_nombankfr',ptInputOutput);
 DATA.IBQbank1.Params.CreateParam(ftString,'P_nombankar',ptInputOutput);
 DATA.IBQBank1.SQL.ADD('INSERT INTO bank');
 DATA.IBQBank1.SQL.ADD('(cd_bank, nom_bank_fr, nom_bank_ar)');
 DATA.IBQBank1.SQL.ADD('VALUES');
 DATA.IBQBank1.SQL.ADD('(: P_idbank,: P_nombankfr,: P_nombankar)');
 DATA.IBQBank1.ParamByName('P_nombankfr').AsString:=e_libbank.text;
 DATA.IBQBank1.ParamByName('P_nombankar').AsString:=e_libbankar.text;
 DATA.IBQbank1.ParamByName('P_idbank').AsString:=E_cdbank.Text;
 DATA.IBQBank1.execsql;

c'est pas mieux ?