Discussion :

[ludogim]

bonjour je suis étudiant et je suis occupé de faire mon tfe
mais j'ai un problème que je n'arrive pas a résoudre

dans mes bases de données j'ai un champ CDLOCAL (int)
quand je veux enregistrer la donnée dedans

je fait un format('values(%s)')
mais il met une erreur pk?

[iguanevif]

Tu pourrais nous donner plus d'indication ?

[ludogim]

l'erreur qu'il me met


et voici 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
begin
if (eCodeDebiteur.Text ='') or (eNom.Text ='')
    then
    Messagedlg('Manque des données opération annuler',mtWarning,[mbyes],0)
    else
 
        begin
          with DataModule1.IBQDebiteur do begin
          SQL.Clear;
          SQL.Add('INSERT INTO TDEBITEUR ');
          SQL.Add('(CODECLIENT,NOM,PRENOM,ADRESSE,CDLOCAL,TEL,GSM) ');
          SQL.Add(format('values (''%s'', ''%s'', ''%s'', ''%s'', %s, ''%s'', ''%s'')',
           [eCodeDebiteur.text,eNom.Text,ePrenom.Text,eAdresse.text,StrtoInt(eCDLOCAL.text),eTel,eGSM]));
          execSQL;
          end;
        end;
 
     DataModule1.IBTransDebiteur.CommitRetaining;
     MessageDlg('Le débiteur a bien été enregistrée. Merci!!!',mtConfirmation,[mbOk],0);
     BRefresh.Click;
end;