Discussion :

[vrachid]

Bonjour à tous,
j'ai crée une application delphi avec une BDD access, connection par ADO. j'essaye de mettre une condition pour l'insertion de nouveaux enregistrements.
explications:
lorsque je lance la form de la quelle j'ajoute les nouveaux enregistrement sur une table qui contient une trentaine de champs, l'AdoQuery se met en mode insertion (Adoquery.Append), et en fermant la fenetre, les données sont enregistrés (AdoQuery.post), mais je ne voudrais enregistrer que si cet enregistrement contient des donné, faire une verification si l'enregistrement est vide il est annulé sinon enregistré.
j'ai essayé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if AdoQuery.IsEmpty then
AdoQuery.cancel
else
AdoQuery.post

mais ça ne marche pas

Merci d'avance pour vous.

[Rayek]

IsEmpty sert à vérifier s'il y a des données dans le DataSet (en clair REcordCount de ton TAdoQeury > 0)

Le plus simple pour ce que tu veux faire est de mettre une vérification sur les champs important et d'empêcher la validation.

Exemple possible dans le bouton de validation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Procedure ButtonValiderClick(Sender : TObject)
begin
  if Trim(Monchamp.text) = '' then
  begin
    Showmessage('Champ Blabla Obligatoire');
    Monchamp.SetFocus;
    Exit;
  end;
 
  AdoQuery.Post;
  Close;
end;

Puis faire un bouton d'annulation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Procedure ButtonAnnulerClick(Sender : TObject)
begin
  AdoQuery.Cancel;
  Close;
End;

A adapter selon ton code bien sûr

[ShaiLeTroll]

Regarde Modified et IsNull sur les Fields

[vrachid]

Merci pour vous
l'idée de Rayek fonctionne bien.
et pour ShaiLeTroll je n'ai pas bien compris la méthode que j'aimerais bine essayer d'ailleurs.

[ShaiLeTroll]

Sur le AdoQuery, tu as une méthode FieldByName (ou Fields aussi), qui permet d'accçder au champ un par un, il possède des propriétés comme Modified (indique il y a une modification du champ depuis le Append) et IsNull c'est que le champ est vide (ben NULL ce qui n'est pas loin lors d'un Append sauf si tu as explicitement des champs déclaré not NULL)