Bonjour à vous tous.

Bon déjà je suis nouvelle sur ce forum et dans la programmation aussi, je viens juste de débuter et je suis arrivée à une étape où je n'arrive pas à trouver où ce situe le problème.
En bref, j'ai envie de créer une petite base de donnée pour insérer les livres voici le script:


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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 
implementation
uses Pbiblio;
 
{$R *.dfm}
var choix:string[1];
 
   procedure initialiser;
 
 begin
     with FLivre DO
                begin
            emd.Clear;
            Enom_liv.Clear;
            enom_aut.Clear;
            eprenom_aut.Clear;
            eref_liv.Clear;
            eded.Clear;
            enom_liv.SetFocus;
                end;
 
 end;
 
 procedure ecrireoui;
    begin
       with Flivre do
                   begin
            emd.ReadOnly:=false;
            Enom_liv.ReadOnly:=false;
            enom_aut.ReadOnly:=false;
            eprenom_aut.ReadOnly:=false;
            eref_liv.ReadOnly:=false;
            eded.ReadOnly:=false;
 
                   end;
    end;
   procedure ecrirenon;
    begin
       with Flivre do
                 begin
 
            emd.ReadOnly:=true;
            Enom_liv.ReadOnly:=true;
            enom_aut.ReadOnly:=true;
            eprenom_aut.ReadOnly:=true;
            eref_liv.ReadOnly:=true;
            eded.ReadOnly:=true;
                 end;
    end;
 
 
procedure TFlivre.BAjouterClick(Sender: TObject);
begin
 
 if choix = 'n' then
      begin
 
  with dm.PAjout_livre do
  begin
     parameters.ParamByName('@Libelle_Liv').Value:=Enom_liv.Text;
     parameters.ParamByName('@Ref_Liv').Value:=ERef_Liv.Text;
     parameters.ParamByName('@Nom_Aut').Value:=Enom_Aut.Text;
     parameters.ParamByName('@Prenom_Aut').Value:=EPrenom_Aut.Text;
     parameters.ParamByName('@nom_MED').Value:=emd.Text;
     parameters.ParamByName('@Date_ED').Value:=EDED.Text;
     execproc;
     showmessage('Le livre vient d''être ajouter avec succès') ;
     end;
end;
dm.ADOLivre.close;
dm.ADOLivre.Open;
 ecrirenon;
 initialiser;
 
 
 
 
 
end;
Le soucis est que le livre s’enregistre et juste après je reçois ce message "ADOLivre ensemble de données non en mode insertion ou édition"

Comme je fais mes premiers pas en programmation je ne sais pas comment régler le problème.


Un éclaircissement serai le bienvenue. Merci