Probleme ensemble de données n'est pas en mode edition ou insertion

Question

Bonjour à tous 
en premier lieu  je vous remercie tous pour tous les efforts que vous faites pour aider les autres.

voilà  j'ai  un problème dans mon programme assez bizarre à chaque que j'ajoute un code  pour vérifier quelque chose  il me met un message d'erreur " l'ensemble des données n'est pas en mode édition ou insertion " j'ai cherche par tout les moyen de comprendre pour quoi mais sans succés

beckerich · Answer

bonjour,

sans code, comment peut-on aider ?

Luc.

CHAFID · Answer

begin
table1.insert;
table1.Edit;
Emp:=DBEdit1.text;
table1.first;
for i:=1 to table1.recordcount do
if table1.fieldValues['Matricule_Employé']=Emp then
begin
messagedlg('Ce numéro est déjà attribué,veuillez introduire un autre numéro',mtinformation,[mbok],0);
// DBEdit1.Text:='';
exit;
end;

table1.fieldbyname('Matricule_Employé').asstring:=DBEdit1.text;
table1.fieldbyname('Nom_Employé').asstring:=edit2.text;
table1.fieldbyname('Prenom_Employé').asstring:=edit3.text;
table1.fieldbyname('Adresse_Employé').asstring:=edit4.text;
table1.fieldbyname('Telephone_Employé').asstring:=(MaskEdit1.text);
table1.fieldbyname('Fonction_Employé').asstring:=edit5.text;
table1.Edit;
table1.post;
showmessage ('Opération d''Enregistrement effectuée avec succés!!');

cs_MAURICIO · Answer

Bonjour, 

la réponse est tellement simple que l' on voit tout de suite que tu n' as pas le niveau pour créer une appli avec gestion de base de données! 
De plus, d' après ton code, on voit tout de suite que tu sais pas ce que tu fais ...

Aller, je vais être sympa: met en commentaire la ligne suivante: table1.first; 

A+

cs_cantador · Answer

@CHAFID :

utilises les balises de code !

cantador

solilog · Answer

begin
   // verif si Emp n'existe pas déjà
   table1.first;
   while not table1.eof do
   begin
      if table1.fieldValues['Matricule_Employé']=Emp then
      begin
      messagedlg('Ce numéro est déjà attribué,veuillez introduire un autre numéro',
                  mtinformation,[mbok],0);
      esit1.setfocus;
      exit;
   end;
   // n'existe pas on peut insérer
   table1.insert;
   table1.fieldbyname('Matricule_Employé').asstring:=DBEdit1.text;
   table1.fieldbyname('Nom_Employé').asstring:=edit2.text;
   table1.fieldbyname('Prenom_Employé').asstring:=edit3.text;
   table1.fieldbyname('Adresse_Employé').asstring:=edit4.text;
   table1.fieldbyname('Telephone_Employé').asstring:=(MaskEdit1.text);
   table1.fieldbyname('Fonction_Employé').asstring:=edit5.text;
   table1.post;
   showmessage ('Opération d''Enregistrement effectuée avec succés!!');
end;

salahdelphi79 · Answer

c'est très simple 
on peut vérifier la table grâce a la fonction FINDKEY..!
bien sur dans le cas au la table a un index (clé)
exemple :
if table1.FindKey([edit1.text]then 
showmessage('ce matricule existe deja, veuillez retaper un autre SVP')
else
begin
table1.append;
table1.edit;
table1.fieldbyname('Matricule_Employé').asstring:=DBEdit1.text;
table1.fieldbyname('Nom_Employé').asstring:=edit2.text;
table1.fieldbyname('Prenom_Employé').asstring:=edit3.text;
table1.fieldbyname('Adresse_Employé').asstring:=edit4.text;
table1.fieldbyname('Telephone_Employé').asstring:=(MaskEdit1.text);
table1.fieldbyname('Fonction_Employé').asstring:=edit5.text;
table1.post; 
showmeassge('Enregistrement effectuer ');
end

Caribensila · Answer

Y'arienàcapterdansvot'amphigouri!Nomdidioudenomdidiou!BandedefainéantsUtilisezlesbalisesdecodel'indentationetlaponctuationNomdidioudenomdidiou!

Probleme ensemble de données n'est pas en mode edition ou insertion

7 réponses

Votre réponse

Discussions similaires