dans une relation maitre-détail....
 
j'ai un clientdataset pays
 
et un autre province
 
province est lié à pays
 
 
si j'efface un pays, delphi ne devrait t'il pas effacé les provinces assocé au pays?
 
si oui comment le forcer.....

Houla  
Attention, c'est dans la définition de la base que cela est défini (et non dans Delphi)
 
on delete cascade ... (script de création de table)

ta pas ça avec les clientdataset....
 
avec les clientdataset tous se passe en mémoire et le tout et sauvegardé par la suite dans un fichier xml.....

Désolé, j'ai confondu avec le "dataset"

ok j'ai trouvé...
 
j'ai fait un truc du genre
 
procedure TfrmAdmin.cmdSupprimerClick(Sender: TObject);
var
  NoEcole : integer;
begin
  if (lstEcole.ItemIndex <> -1 ) then begin
  //enlève les courriel associé à l'école sélectionné
  frmCsdm.cdsEcole.Locate('Ecole',lstEcole.Items[lstEcole.ItemIndex],[]);
  NoEcole := frmCsdm.cdsEcole.FieldValues['NoEcole'];
  showMessage(inttostr(NoEcole));
  frmCsdm.cdsCourriel.Filter := 'NoEcole=' + quotedstr(inttostr(NoEcole));
  frmCsdm.cdsCourriel.Filtered := True;
  frmCsdm.cdsCourriel.First;
 
  while not(frmCsdm.cdsCourriel.Eof) do frmCsdm.cdsCourriel.Delete;
 
  frmCsdm.cdsCourriel.Filtered := false;
  frmCsdm.cdsCourriel.Filter := '';
 
  //efface l'école sélectionné de la liste et de la bd
  frmCsdm.cdsEcole.Filter := 'Ecole=' + quotedstr(lstEcole.Items[lstEcole.ItemIndex]);
  frmCsdm.cdsEcole.Filtered := True;
  frmCsdm.cdsEcole.First;
 
  while not (frmCsdm.cdsEcole.Eof) do frmCsdm.cdsEcole.Delete;
 
  frmCsdm.cdsEcole.Filtered := false;
  frmCsdm.cdsEcole.Filter := '';
 
  frmCsdm.cdsEcole.MergeChangeLog;
  frmCsdm.cdsCourriel.MergeChangeLog;
 
  lstEcole.Items.Delete(lstEcole.ItemIndex);
  end;
end;
 
et ça fonctionne...
 
je commence par effacé le détail et ensuite le maitre

os2 > à l'occasion regarde l'aide sur l'opérateur "with"
 

etc...
 
 
C'est moins fatiguant à écrire et plus optimisé au niveau code généré par le compilateur

je connais with
 
qui ta dit que c'était plus optimal à la compilation...
c + rapide?
exe plus petit?

Bhen il doit pas aller rechercher chaque fois la valeur du pointeur.

 
Ouaip, je confirme, c'est plus performant  

Pourquoi tu tires la langue en me quotant ? Je vais croire que c'est à moi qui tu tires la langue

Belle démo
 
Seul point négatif : les screenshots en JPEG

Ha ? Bhen ça peut peut-être m'intéresser
 
Sinon pour le PNG : http://www.antp.be/PNG/

Bhen moi je trouve ça plus beau avec le with
Et surtout je suis paresseux, et j'aime pas devoir déclarer plein de variables et recopier leur nom à chaque fois
 
Je fais souvent des trucs de ce genre:
 

 
Sinon y a mieux : les with imbriqués :
 

[jfdsdjhfuetppo]--Message édité par antp le 22-05-2002 à 10:36:55--[/jfdsdjhfuetppo]

viiz a écrit a écrit :     En effet ca a l'air bien clair

 
Benh quoi, c'est clair... Et pratique avec ca    
 
Moi aussi je suis un adepte du  
with TMachinChose.Create do
try
finally
  Free;
end;
 
Tellement pratique  

ouai, moi aussi, chui un adepte de with et je rajouterais ke ça fait du code plus lisible si on en abuse pas...  
 
c klerr ke le style :
with var1, var2, var3 do begin
...
end;
on fini par s'y perdre un peu...
 
mais dans l'initialisation "graphique" d'un composant par exemple :
disons, ke tu as dans ce composant 4 labels et 2 boutons, bin je trouve ke ça fait plus propre :
 

 
 
et dans le cas de création de variable anonyme, je trouve ça pas mal aussi :
 
au lieu de faire (mettons kon est truc: string en global):
 

 
c'est kan même plus clair de faire un truc dans ce style :
 
 
begin
  with TBoiteDialogue.create(self) do begin
     if showModal = mrOk then begin
         truc := Edit1.text;
         ... etc.
     else
        ... etc.
     end;
  end;
end;

Là, ça a plus grand chose à voir avec le topic de départ  
Qui fait le topic (ou le sondage) With ou pas With, là est la question

antp a écrit a écrit : Bhen moi je trouve ça plus beau avec le with Et surtout je suis paresseux, et j'aime pas devoir déclarer plein de variables et recopier leur nom à chaque fois   Je fais souvent des trucs de ce genre:   Code : with TStringList.Create do   try     .....   finally     Free;   end;   Sinon y a mieux : les with imbriqués :   Code : with Listview1 do   if (Selected <> nil) and (Selected.Selected) then     with Selected do       if (Data <> nil) then          with TMonObjet(Data) do          begin             ...          end;

 
M'en parles pas ton code est chiant a comprendre des fois avec les  With imbriqués

BlackSun a écrit a écrit :     M'en parles pas ton code est chiant a comprendre des fois avec les  With imbriqués

 
c'est quoi ce up de vieux topic

viiz a écrit a écrit :     lol 10 jours

 
oui mais tout ça pour me critiquer

lOL, re up