probleme de suppression en delphi 7

Question

salut,
je suis un débutant en delphi et je suis entrain de realiser une application.j'ai deux tables Port(nom_port,#code_pays) et Pays(code_pays,pavillon).J'ai donc créer deux formulaires pour les deux tables et maintenant je cherche à ecrire  sur le boutton supprimer  une procedure.
Voici la procedure du formulaire de la table Pays

Dtmodule.ADOPays.Delete;
  BtnAnnulerClick(Sender);
  self.EdiCodePays.SetFocus;
  op:='ajout'; 




Voici celle du formulaire de la table Port
with DtModule do
begin
   with AdoManip do
   begin
      commandtext:='delete from port where nom_port=:a';
      parameters.ParamByName('a').Value:=DsPort.dataset.Fields.Fields[0].Text;
      execute;
      end;


      AdoPort.Close;
      AdoPort.Open;
      BtnAnnulerClick(Sender);
      self.EdiNomPort.SetFocus;
      op:='ajout';
     end;     

Celle de Port marche mais l'autre ne marche pas.J'ai le message suivant :"Le projet STAPAL.exe (nom de mon projet) a provoqué une classe d'exception EOleException avec le message'conflit entre l'instruction delete et la contraint column reference'fk_port_disposer_pays(disposer est le nom de l'association entre ces deux entités)' Le conflit est survenu dans la base de données STAPAL(nom de ma base de données)table'Port column 'code_pays".processus stopé.Utilisez pas-à-pas ou executer pour continuer.

stevengouti · Answer

slt.. allez a l'inspecteur coté gauche del ecran apr cherchez "caption" . vous pouvez ecrire n'importe quoi exit ou ok etc.......

Probleme de suppression en delphi 7

1 réponse

Votre réponse

Discussions similaires