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