Discussion :

[Zizou7]

Bonjour,
J'ai un problème d'insertion avec ma base de données.
Sur la fiche

Paiement

, j'ai les champs suivants:

Editnumpaie,Editrefsinistre,Editdatepaie,Editmontant,Editnumpiece et Editlibelle.

Et derrière le bouton

valider

j'ai écrit les codes suivants qui me permettent d'inserer dans la table

Paiement

les elements ci_dessus,voici le code:

base.tpaiement.FieldByName('Num_paiement').Value:=strtoint(Editnumpaie.Text);
base.tpaiement.FieldByName('Ref_Sinistre').Value:=Editrefsinistre.Text;
base.tpaiement.FieldByName('Date_Paye').Value:=strtoDateTime(Editdatepaie.Text);
base.tpaiement.FieldByName('Montant').Value:=strtoint(EditMontant.Text);
base.tpaiement.FieldByName('Numero_Pièce').Value:=Editnumpiece.Text;
base.tpaiement.FieldByName('Libelle').Value:=Editlibelle.Text;
base.tpaiement.Append;

.
Mais quand j'exécute voici le message qu'il me donne:Violation de clé.
Un index ou une clé principale ne peut pas contenir une valeur null.
Etant donné que

'Num_paiement'

est la clé principale et l'insert après la dernière valeur de

Num_Paiement

sans confusion de valeur.
Mais si je met un

DBEdit

au niveau de

'Num_paiement'

les Edits chez les autres ils ne s'affiche pas sur la même ligne que

'Num_paiement'

et j'aimerais les faire tous comme des

Edits

.
Qui a une idée pour me donner?
Je suis vraiment dans cette difficulté, aidez moi pour me permetre de passer à cette étape.
Merci par avance.
Par Zizou7.

[Just-Soft]

Salut;

l'erreur est claire tu as une clé en double. pour contourner le problème faut travailler avec BeforeInsert ou OnNewRecord, c'est ici que ton Num_Paiement doit recevoir sa valeur.

[Zizou7]

Meerci pour votre reponse.
Pouvez-Vous me donner un exemple d'utilisation de

OnNewRecord?

Par Zizou7

[Just-Soft]

Re;

onNewRecord est une méthode. son utilisation est assez facile, genre :

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
 
var
  Num_P : Integer;// en supposant que le type est integer sinon à toi de le changer
....
Table1BeforePost(Sender : TObject);
begin
  Num_Paiement := Num_P;
end;
 
Table1NewRecord(Sender : TObject)
begin
  // se positionner le le dernier enregistrement
  Table1.Last;
  // on récupère la dernière clé
  Num_P := Table1.FieldByName('Num_Paiement').Value;
  // on l'incrémente
  inc(Num_P);
end;

attention le code n'est pas testé mais l'idée c'est ça. on résumé, on récupère la dernière clé sur un nouvelle enregistrement (OnNewRecord) puis avant validation des données on affecte la valeur de la clé.

[Andry]

Just Soft, ton système risque de créer des erreurs en mode multi-utilisateurs.
Zizou, est ce que tu peux en dire plus sur la base de donnée et le composant d'accès utilisés.
Sinon, j'ai remarque une petite erreur dans ton code. Généralement, on fait Append avant les affectations et Post pour valider.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
WIth base.tpaiement do
try
    Append;
    FieldByName('Num_paiement').Value:=strtoint(Editnumpaie.Text);
    FieldByName('Ref_Sinistre').Value:=Editrefsinistre.Text;
    FieldByName('Date_Paye').Value:=strtoDateTime(Editdatepaie.Text);
    FieldByName('Montant').Value:=strtoint(EditMontant.Text);
    FieldByName('Numero_Pièce').Value:=Editnumpiece.Text;
    FieldByName('Libelle').Value:=Editlibelle.Text;
    Post;
except
    //Ici traitement des erreurs.
end;

A+

[Just-Soft]

@ Andry bien vu pour Append et Post.
Absolument le code que j'ai proposé fonctionne en mode mono-poste.