Message d’erreur persistant
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:
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