1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
   |  
 while(!ADOTable7->Eof)
   {
      // on récupère le code du produit
 
      CMP = ADOTable7->FieldByName("CodeProduit")->AsString;
      if (CMP==codeMP)
      condition=1;
 
      // on passe à la ligne suivante
      ADOTable7->Next();
      }
        if (condition == 1)
        {
         Table->FieldByName("Ville")->Value = VilleEdit->Text
         this->ADOQuery3->SQL->Clear();
         this->ADOQuery3->SQL->Add("SELECT f.cmp AS cmp, f.qmp AS qmp FROM Incitation f  WHERE f.qmp==codeMP);
         this->ADOQuery3->ExecSQL();
         Memo7->Lines->Add( "Ajout avec suscces");
         ShowMessage("Sauvgarde effectuée");
         } | 
Partager