Discussion :

[Aranella]

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

[SergioMaster]

Bonjour et bienvenue,

je pars sur une hypothèse : FLivre est une ADOTable ou ADOQuery
la procédure initialiser est en trop ou mal placée difficile de l'indiquer avec certitude puisque le code est tronqué ou alors il lui manque deux ou trois instructions (à minima)

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
 procedure initialiser;
 begin
     with FLivre DO
                begin
            Insert;
            emd.Clear;
            Enom_liv.Clear;
            enom_aut.Clear;
            eprenom_aut.Clear;
            eref_liv.Clear;
            eded.Clear;
            enom_liv.SetFocus;
            Post;        
     end;
   EcrireOui;
 end;

Hypothése non fondée si FLivre est une Forme ce que tendrait à indiquer le code procedure TFlivre.BAjouterClick(Sender: TObject);Cela dépend beaucoup du sql que vous utilisez pour dm.PAjout_livre un INSERT ou un UPDATE ?

comme vous le constatez il n'est pas simple de répondre sans toutes les informations

Quelle version de Delphi, quel SGBD ? [mode troll] pitié pas ADO+Access [fin troll]

[Aranella]

J'ai utilisé le sql server 2008, et j'ai utilisé une procédure stockée pour insert into, j'ai relié le tout avec le composant adoconnection de Delphi XE, j'ai relié la table avec un ADOTable et la procédure stockée avec un ADOStoredProc. Le "FLivre" fait référence à la fiche c'est pour me repérer et dans le bouton AJOUTER je fais appel à la PROCÉDURE STOCKÉE, le problème c'est que le livre s'ajoute mais juste après je reçois cette boite de dialogue du coup je dois refermer l'application et la réouvrir pour pouvoir ajouter un autre livre j'ai tt essayé (enfin je crois) mais là je comprends pas pourquoi ça ne marche pas