Discussion :

[sapin]

Bonjour,
Je souhaite utilisé des composant TDBEdit. Ces champs ce remplissent avec la basse de donnée correctement.
Mon probleme est que lorsque je modifie une valeur dans TDBEdit, la basse de donnée est directement modifiée.
Comment faire pour interdire au TDBEdit d'ecrire dans la Base de donnée. (Si je met le composant en lecture seule, je ne peut plus ecrire dans mon edit, ce qui est génant)
Merci.

[edam]

Code :

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

      DataSource1.AutoEdit:=false;

[sapin]

j'ai le même problème qu'avec lecture seule.
C'est maintenant impossible d'écrire dans la fenêtre.

[edam]

pour modifier, ajouter 4 button

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
procedure TForm1.Button1Click;
begin
      dataset.insert;// pour ajouter une nouvel enregistrement
end;
procedure TForm1.Button2Click;
begin
      dataset.Edit;// pour modier
end;
procedure TForm1.Button3Click;
begin
      dataset.delete;// pour supprimer
end;
procedure TForm1.Button2Click;
begin
      dataset.cancel;// pour annuler les modification
end;

[sapin]

J'ai un peu de mal a comprendre ce que tu veut faire.
Je modifie le champs dataset du composant DataSource1 ?
et ceci influencera les TDBEdit ?
Merci de ton aide

Edit :
Je viens de tester le premier bouton, cette solution a peut etre me convenir. Merci beaucoup.

[sapin]

J'ai encore un soucis hélas.
Avec cette méthode, ma colonne "Date Mise a jour" ne se remplit plus seule.
Alors que quand je passer par

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
var
  Mycommand: TMyCommand;
begin
  Mycommand := TMyCommand.Create(self);
  try
    with Mycommand do
    begin
      Connection := Formpp.MySQLC;
      with SQL do
      begin
        Clear;
        Add('insert into environnement.spe'+
            '(id_sheet,id_acquisition,)'+
            'values(:IdSheet, :IdAcq);');
      end;
      Params[0].Value := MyQuery1.Params[0].Value;
      Params[1].Value := EdAcqu.Text;
      Execute;
    end;
  finally
    Mycommand.Free;
  end;

la colonne est automatiquement mise à jour.
Est-ce encore possible en utilisant

Code :

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

DataSet.insert;

Merci

[edam]

je crois que oui, car c'est la base qui rempli ce champ par une default valeur si il est vide

[sapin]

ok, je vais me renseigner.
Merci