Erreur lors de l' utilisation des objets ADO

**aityahia** · 24/03/2006, 09h50

avec delphi 7 lorsque j'utulise des table ADO plus exactement TADODataset, j'ai un méssage d'erreur me disant que l'enregistrement n'a pas été trouvez pour la mise a jour lors du post de celuici

**Rayek** · 24/03/2006, 09h54

Ton dataset ne pointerait il pas sur plusieurs tables ?

**aityahia** · 24/03/2006, 10h01

non j'ai remarquer que le probleme survient lorsque je modifie des enregistrement de type numérique

nb j'utilise une base de données Acces

**Rayek** · 24/03/2006, 10h04

Fait voir ton code ca sera plus simple de voir d'où vient l'erreur.

Ton Dataset est en mode table ou requete ?

**aityahia** · 24/03/2006, 10h11

Mode requette l'erreur ne survient pas a tous les coups de temps a autres le post ce fait normalement.

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
19
 
      sd.Deplacement.Append;
      Sd.DeplacementDateDepart.Value :=sd.DateEtheure(Date,Time);
      Sd.DeplacementVehicule.Value := AdeplacerNum.Value;
      Sd.DeplacementConducteur.Value :=Sd.FonctionaireNum.Value;
      Sd.DeplacementKilometrageDepart.Value := AdeplacerKilometrage.Value;
      Sd.DeplacementKilometrageRetour.Value := AdeplacerKilometrage.Value;
      SD.DeplacementDestination.Value := sd.ReservationDestination.Value;
      Sd.DeplacementSegment.Value := sd.Reservationsegment.Value;
      Sd.DeplacementSites.value := Sd.ReservationSites.Value;
      sd.Deplacement.Post;
      sd.Vehicule.Locate('Num',AdeplacerNum.Value,[]);
      Sd.Vehicule.Edit;
      Sd.VehiculeStatut.Value := 'S';
      Sd.Vehicule.Post;
 
      sd.Reservation.Edit;
      sd.ReservationConfirmer.Value :='V';
      sd.Reservation.Post;

Vehicule est une TADO Table
et reservation et déplacement sont des reqettes

dont voici la requette

Code :

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

1
2
3
4
5
6
7
8
 
Adeplacer.Close;
Adeplacer.CommandText := 'SELECT * FROM Vehicule WHERE (Statut = :PStatut) AND (TypeV = :PType) AND (ReserverPar = :PPar) AND (NumReserve = :NumReserv)';
Adeplacer.Parameters.ParamByName('PStatut').Value := 'R';
Adeplacer.Parameters.ParamByName('PType').Value := sd.ReservationTypeVehicule.Value;
Adeplacer.Parameters.ParamByName('PPar').Value := SD.ReservationId_User.Value;
Adeplacer.Parameters.ParamByName('NumReserv').Value := sd.Reservationnum.Value;
Adeplacer.Open;

[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

**aityahia** · 24/03/2006, 10h23

voici le méssage d'erreur

**Rayek** · 24/03/2006, 10h32

Faudrait penser à utiliser les balises de code ^^.

En pas à pas, c'est sur quel post que tu as l'erreur ?

**aityahia** · 24/03/2006, 10h51

l'erreur survient dans le post du véhicule lorsque l'enregistrement de reservation et nouveau

Code :

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

1
2
3
4
 
  Sd.Vehicule.Edit;
   Sd.VehiculeStatut.AsVariant := 'S';
   Sd.Vehicule.Post;

[Re- Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

**aityahia** · 24/03/2006, 11h03

je pense que le problème est reglé j'ai inséré des des refresh jus avant l'edition des table.

**Lanf** · 24/03/2006, 13h24

Pour moi le problème venait du faite que tu as plusieurs composants attaquant la même base en ecriture.

Donc lorsque tu modifie ta base en passant par un composant tu obtient une erreur si tu as déjà modifié ta base avec un autre composant car l'objet ne reconnait plus le jeu d'enregistre lors du post.

Le refresh régle le problème car il mets à jour le jeu d'enregistrement du composant.

Bonne Prog