1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| ExecutionQuerry("INSERT INTO EVENEMENT (\"EVENEMENT_Id\",\"EVENEMENT_FAMILLE_Id\",\"EVENEMENT_Nom\",\"EVENEMENT_Modifiable\",\"EVENEMENT_Nom_Rc\",\"EVENEMENT_Num_Rc\") VALUES (227,50,'Contrôle','0','',735);");break;
if(result == 0)
{
ListeErreur->Add(AnsiString(i));
}
else
{
IBTransaction1->Commit();
}
void TFrmMAJ::ExecutionQuerry(AnsiString Query)
{
try
{
MyQuery->SQL->Clear();
MyQuery->SQL->Add(Query);
MyQuery->Prepare();
MyQuery->ExecSQL();
result = 1;
}
catch(...)
{
result = 0;
}
return;
} |
Partager