Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question<CODE>begin with FrmGestion.Table_serveur do try Open; Append; FieldByName('Nomclient').AsString := LblNomclient.Caption; //... FieldByName('SystemeOS').AsString := EdtSystemeOS.Text; Post; Close; except on E: EDataBseError do begin close; ShowMessageFmt('%s existe déjà !', [LblNomclient.Caption]); end; end; end;
var T: TTable; Q: TQuery; const query 'SELECT count(NomClient) as Nombre FROM %s WHERE NomClient "%s"'; begin //pour faciliter l'utilisation et la lecture du code T := FrmGestion.Table_serveur; //Création d'une requête pour dénombre les existants Q := TQuery.create(Self); try Q.DatabaseName := T.DatabaseName; Q.Sql.Text := Format(query, [T.TableName, LblNomclient.Caption]); Q.Open; if Q.FieldByName('Nombre').AsInteger > 0then ShowMessageFmt('%s existe déjà !', [LblNomclient.Caption]) else begin //le client n'existe pas, on peut l'ajouter tranquillement with T do begin Open; Append; //préférer AsString que Value, c'est plus rapide et //moins gournmand en mémoire FieldByName('Nomclient').AsString : = LblNomclient.Caption; //... FieldByName('SystemeOS').AsString := EdtSystemeOS.Text; Post; Close; end ; {with T} end; {if Q.FieldByName('Nombre').AsInteger > 0} Q.Close; finally Q.Free; end; {try..finally} end;