Accueil > Manip’s > Delphi > ACCESS > Ajouter une nouvelle entrée à une liste associée à une Base de (...)

Ajouter une nouvelle entrée à une liste associée à une Base de Données

jeudi 12 avril 2012, par bluegyn_spip

Il est plus facile de rajouter une entrée à une liste associée à une base de donnée qu’à une liste simple, puisque la base de données permet une requête intuitive puissante, qui permet de savoir en une seule instruction

LOCATE

Si l’entrée existe déjà !

Et de la rajouter au jeu enregistrements le cas échéant, avec une seule autre instruction

INSERT

Exemple avec le JvDbLookupComboEdit (Cf Utilisation)

Code à placer sur l’évènement

OnExit

{ Recueille l'entrée saisie }
var s : string;

begin
s := DBCombo_Prenom.Text;
if s = '' then exit;

{ Cherche l'entrée dans la table / Locate }
if not data.table_prenoms.Locate('valeur', S, [loCaseInsensitive]) then Begin
	{ Si non trouvé rajoute la valeur saisie }
	data.Table_Prenoms.Insert;
  data.Table_Prenoms.FieldByName('valeur').AsString := S;
  data.Table_Prenoms.Post;

  application.MessageBox('Un nouveau Prénom a été ajouté à la Base',pchar(S), MB_OK+MB_ICONEXCLAMATION);

  End;

end;

La liste s’appelle DBCombo
Elle pointe la table Table_prenoms
Située dans le DataModule DATA
La Table "Prénoms" ne contient qu’un seul champ texte = "Valeur" qui correspond au prénom.
La recherche a été déclarée Insensible à la Casse (Marie et marie sont les mêmes prénoms)

Ajouter une nouvelle entrée à une liste associée à une Base de Données

Manip’s

Dans la même rubrique