AnsiString REQ;
QueryMod->SQL->Clear();
REQ="update company set ";
REQ=REQ+"name=:param14, ";
REQ=REQ+"street=:param15, ";
REQ=REQ+"zip=:param16, ";
REQ=REQ+"pobox=:param17, ";
REQ=REQ+"city=:param18, ";
REQ=REQ+"country=:param19, ";
REQ=REQ+"phone=:param20, ";
REQ=REQ+"fax=:param21, ";
REQ=REQ+"website=:param22 ";
REQ=REQ+" where id_company=:param23";
QueryMod->SQL->Add(REQ);
QueryMod->ParamByName("Param14")->AsString = Edit14->Text;
QueryMod->ParamByName("Param15")->AsString = Edit15->Text;
QueryMod->ParamByName("Param16")->AsString = Edit16->Text;
QueryMod->ParamByName("Param17")->AsString = Edit17->Text;
QueryMod->ParamByName("Param18")->AsString = Edit18->Text;
QueryMod->ParamByName("Param19")->AsString = ComboBox2->Text;
QueryMod->ParamByName("Param20")->AsString = Edit20->Text;
QueryMod->ParamByName("Param21")->AsString = Edit21->Text;
QueryMod->ParamByName("Param22")->AsString = Edit22->Text;
QueryMod->ParamByName("Param23")->AsString = Query1->FieldByName("id_company")->AsString;
int Index=Query1->RecNo;
DataSource1->Enabled=false;
Query1->Active=false;
QueryMod->ExecSQL();
Query1->Active=true;
Query1->RecNo=Index;
DataSource1->Enabled=true;
Partager