Discussion :

[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 :

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

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 :

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

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 ?