Discussion :

[Comete2006]

Bonjour à toutes et à tous,

Je débute dans Delphi (version 10.4)

J'arrive à supprimer une ligne dans mon DBGrid mais je galère pour la supprimer aussi dans mon DataSourceXML
Si je ferme l'application que je développe, la ligne en question est toujours présente

Voici mon code :

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
procedure TFrmTableauIncident.BtnCloturerIncidentClick(Sender: TObject);
Begin
    FrmIncident.DateTimePicker1.Date:=StrToDate(ClientDataset1.Fields[0].AsString);
    FrmIncident.DateTimePicker3.Time:=StrToTime(ClientDataset1.Fields[1].AsString);
    FrmIncident.ComBoBoxSite.Text := ClientDataset1.Fields[2].AsString;
    FrmIncident.ComboBoxService.text := ClientDataset1.Fields[3].AsString;
    FrmIncident.ComboBoxApplications.Text := ClientDataset1.Fields[4].AsString;
    FrmIncident.EditAutre.text := ClientDataset1.Fields[5].AsString;
    FrmIncident.EditIntervenantNom.text := ClientDataset1.Fields[6].AsString;
    FrmIncident.EditIntervenantPrenom.text := ClientDataset1.Fields[7].AsString;
    FrmIncident.EditTrigramme.text := ClientDataset1.Fields[8].AsString;
    FrmIncident.EditAutreIntervenant.text := ClientDataset1.Fields[9].AsString;
    FrmIncident.MemoEntreeCalendrier.text := ClientDataset1.Fields[10].AsString;
    FrmIncident.ShowModal;
 end;
 
procedure TFrmTableauIncident.BtnSupprimerClick(Sender: TObject);
begin
  if DbGrid1.Datasource.Dataset.RecNo >= 0 then
    if MessageDlg('Voulez-vous vraiment supprimer cet incident ?',
                       MtConfirmation, MbOkCancel, 0) = mrOk then
      DbGrid1.Datasource.DataSet.Delete;
      ClientDataSet1.Delete;
end;

Quelqu'un peut-il m'aider ? Un grand merci par avance ;-)

[ShaiLeTroll]

Le DBGrid n'est qu'une vue du DataSet, supprimer dans le DataSet est l'unique approche, cela sera refléter dans la grille

Vous n'oubliez pas un SaveToFile pour changer le XML du TClientDataSet ?
A vous de voir si le SaveToFile est à chaque transaction ou uniquement à la fermeture de l'application


Attention qu'affiche ceci ShowMessage(BoolToStr( DbGrid1.Datasource.DataSet = ClientDataSet1, True)); ?

votre code dans l'état, fait deux suppressions et l'imbrication des if sans begin end, c'est foireux !




L'utilisation de TDBEdit ... serait aussi a privilégié, car là avec le code que vous montrez, il vous faudra actualiser manuellement tous les edit, peut-être dans un AfterScroll par exemple

[Comete2006]

J'ai testé avec :

Code :

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

1
2
3
4
5
procedure TFrmTableauIncident.BtnSupprimerClick(Sender: TObject);
begin
  if DbGrid1.Datasource.Dataset.RecNo >= 0 then
          ClientDataSet1.Delete;
end;

mais j'ai le meme souci
Ma ligne se supprime mais à la réouverture de l'appli elle est toujours présente

Je dois faire un SaveToFile juste apres pour enregistrer les changement du XML du TClientDataSet ?

[SergioMaster]

A mon avis seul ClientDataSet1.Delete; suffit

Je dois faire un SaveToFile juste apres pour enregistrer les changement du XML du TClientDataSet ?

pas forcément après, mais avant la fermeture de la forme ou du programme OUI.
Cette mésaventure m'est déjà arrivé, à lire quelque part sur le forum

[ShaiLeTroll]

Soyez cohérent dans votre code même si DbGrid1.Datasource.Dataset et ClientDataSet1 sont surement le même objet, autant manipuler tout l'un ou l'autre

Code :

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

1
2
3
if DbGrid1.Datasource.Dataset.RecNo >= 0 then
  if MessageDlg('Voulez-vous vraiment supprimer cet incident ?', mtConfirmation, MbOkCancel, 0) = mrOk then
    DbGrid1.Datasource.Datase.Delete;

Code :

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

1
2
3
if ClientDataSet1.RecNo >= 0 then
  if MessageDlg('Voulez-vous vraiment supprimer cet incident ?', mtConfirmation, MbOkCancel, 0) = mrOk then
    ClientDataSet1.Delete;

De plus le test à RecNo ne semble pas le plus opportun, IsEmpty serait plus logique

Code :

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

1
2
3
if not ClientDataSet1.IsEmpty then
  if MessageDlg('Voulez-vous vraiment supprimer cet incident ?', mtConfirmation, MbOkCancel, 0) = mrOk then
    ClientDataSet1.Delete;

Si vous avez utilisé un LoadFromFile
Le SaveToFile doit être fait, à vous de choisir le meilleur moment, comme je l'ai écrit soit à chaque transaction (delete, update, insert) soit à la fermeture
La première approche est plus fiable mais plus lourde si le fichier XML est gros.

Si vous avez utilisé la propriété FileName, normalement, le Close devrait mettre à jour le fichier automatiquement.

Si vous n'utilisez le XML que pour le stockage et non plus une mise à jour ultérieure d'une base déconnecté, passer LogChanges à False pour réduire la taille du fichier.

[edam]

XMl+cliendataset, un peut compliquer si tu veux ajouter une colone

[Comete2006]

J ai tenté de suivre vos conseils mais sans succès :

Code :

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

1
2
3
4
5
6
7
procedure TFrmTableauIncident.BtnSupprimerClick(Sender: TObject);
begin
    if ClientDataSet1.RecNo >= 0 then
  if MessageDlg('Voulez-vous vraiment supprimer cet incident ?', mtConfirmation, MbOkCancel, 0) = mrOk then
    ClientDataSet1.Delete;
    FrmIncident.xmldoc.xml.SaveToFile(SaveDialog1.FileName);
end;

La ligne prise en exemple dans mon DBGrid se supprime Je ferme l'appli mais lorsque je la réouvre, j ai un message d'erreur

"Exception EOleException dans le module ... Erreur analyse XML...Raison : Le document XML doit contenir un élément au niveau supérieur"

En allant voir mon xlm, il est vide (Je l ai restauré)