Discussion :

[aityahia]

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]

Ton dataset ne pointerait il pas sur plusieurs tables ?

[aityahia]

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]

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

Ton Dataset est en mode table ou requete ?

[aityahia]

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]

voici le méssage d'erreur

[Rayek]

Faudrait penser à utiliser les balises de code ^^.

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

[aityahia]

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]

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

[Lanf]

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

[Pedro]

Bonjour

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

Si c'est résolu alors, cliquer sur