1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Memo1->Lines->Add(Query1->FieldByName("NOM")->AsString);
Memo1->SelectAll();
Memo1->CopyToClipboard();
Edit1->PasteFromClipboard();
AnsiString NOM =Edit1->Text;
AnsiString NOM2 =E_NOM->Text;
AnsiString TEL =E_TEL->Text;
AnsiString ONGLET=Onglet->Text;
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("UPDATE T_Repertoire SET NOM ='"+ NOM2 +"' , TELEPHONE = '"+ TEL +"' , ONGLET = '"+ ONGLET +"'");
Query1->SQL->Add(" WHERE NOM = '" +NOM+ "'");
Query1->ExecSQL();
Memo1->Clear();
Edit1->Clear(); |