Discussion :

[Jeannotc]

Bonjour,
Dephi 5
ADO
Access 97

lors d'une recherche d'un enregistrement, si celui-ci n'est pas trouvé un message d'erreur apparaît.

Pour géere cette erreur j'ai implanté la routine suivante !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
PresRot:=ADOQuery1.Fields[0].AsString;
     if PresRot = '' then
     begin
       ShowMessage('Aucun titre ne correspond à votre demande');
       recherche:='';
     Titre1:='';
     Titre2:='';
     Edit1.Text:='';
     if flag = 0 then
     begin
     ADOQuery1.First;
     ADOQuery1.Active:=FALSE;
     ADOQuery1.SQL[1]:='';
     ActiveControl:=Edit1;
     flag :=1
     end;
     end;

Donc si Presrot reste vide, le message apparaît.

Mon problème est le suivant :
Tout se passe bien avec Windows 98, windows 2000 mais windows XP semble complètement ignorer cette routine, me met le message suivant :

Code :

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

1
2
 
BOF ou COF a true ou l'enregistrement actuel a été supprimé - l'opération demande nécessite un enregistrement actuel

Message que j'obtenais avec les autres os avant d'implanté cette routine

Auriez-vous une explication à celà ?

Merci

[cmen76]

Je pense qu'il n'apprécie pas le First sur le Dataset vide...

Je te propose de coder la gestion d'erreur ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
if (ADOQuery1.Bof) and (ADOQuery1.Eof) then
begin
     ShowMessage('Aucun titre ne correspond à votre demande'); 
     recherche:=''; 
     Titre1:=''; 
     Titre2:=''; 
     Edit1.Text:=''; 
     ADOQuery1.Close; 
     ActiveControl:=Edit1; 
end;

[Jeannotc]

merci

j'essaie tout de suite mais n'aurai la réponse que + tard !
j'ai pas XP alors j'envoie à mon testeur !

[Jeannotc]

Salut,

Milles excuses pour cette réponse très tardive !

Mais ca marche toujours pas sur XP !
J'ai bien le message qui me dit qu'il n'a pas trouvé d'enregistrement et lorsque le clique sur OK il me mets toujours le même message et je suis obligé de sortir intégralement du programme pour faire autre chose !

Ce que je trouve bizarre, c'est que ca fonctionne avec tous les autres os !

[cmen76]

Peux-tu me vérifier que
-Edit1 n'est pas un composant DB relié à l'ADOQuery
-qu'aucun événement (genre OnExit, OnEnter) n'est généré par l'affectation à ActiveControl ?

[Jeannotc]

salut,
Non l'Edit1 se sert qu'à entrer la recherche et son contenu est alors transféré dans une variable et il n'y a aucune fonction onExit ou onEnter

[Pascal Jankowski]

Tu utilises delphi 5, as-tu mis à jour ta version ton problème ressemble à un des problèmes recensé.

Va voir à cette page http://info.borland.com/devsupport/delphi/downloads/

Cordialement

[Jeannotc]

Merci,
j'y cours !

[Jeannotc]

OK,
Merci après mises à jour tout fonctionne à merveille !