Discussion :

[Just-Soft]

Salut;

En tentant de supprimer des enregistrements d'une table Access je reçois le message suivant "Plusieurs enregistrements ont été trouvés, mais un seul était attendu.". Quelqu'un à une idée sur comment le contourner et vider la table ?

Merci d'avance.

[Aka Guymelef]

Bonjour,

pourquoi ne pas envoyer la commande SQL TRUNCATE TABLE MaTable qui sert à ça ?

[Just-Soft]

Désolé l'ami mais là je suis dépassé.

tu veux dire qu'elle sert à vider une table ? pour info c'est une table Access, en plus je n'ai jamais travaillé avec cette commande. si c'est ce que tu veux dire je vais essayer ta piste mais l'erreur dans mon programme d'où vient elle ?

[Aka Guymelef]

Sans savoir comment tu fais exactement ton vidage je ne peux ta répondre sur le pourquoi tu récupères cette erreur...

Sinon je pense bien qu'il doit y avoir cette commande SQL de disponible dans Access également, peut-être pas exactement comme ça mais ça doit exister. Pour l'exécuter tu dois par un composant genre TQuery bien sûr.

[Just-Soft]

le plus normalement du monde Aka Guymelef !

Code :

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

1
2
3
4
5
6
7
8
9
10
 
while not(tbDestinationContrat.Eof) do
  begin
    tbDestinationContrat.Delete;
    inc(code_benef);
    lbModule.Caption := Format('suppression de %d sur %d contrat(s)', [code_benef, nEnr_Contrat]);
   // mettre à jour la barre de progression
    pbModule.Position := code_benef;
    Application.ProcessMessages;
  end;

[Aka Guymelef]

Dans ce cas je pense que tu dois avoir des contraintes d'intégrités entre les contrats que tu supprimes et d'autres tables qui ont des clés étrangères vers la table des contrats qui entre en jeu peut-être.

Cela dit si c'est le cas que tu fasses une boucle de DELETE ou bien un TRUNCATE tu devrait retomber sur le même problème.

[Just-Soft]

En fait c'était ça merci Aka Guymelef, j'avais un problème d'intégrité référentielle.

[Aka Guymelef]

Ok c'est cool.

Note tout de même que c'est infiniment plus rapide de lancer une commande TRUNCATE TABLE (ou son équivalent en Access) que de faire une boucle pour supprimer tout les enregistrements.

Si ton problème est résolu merci de penser au tag

[Just-Soft]

je vais encore abuser de votre patience pour vous demander de bien vouloir regarder ce petit bout de code :

Code :

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

lbModule.Caption := Format('avancement %d %%', [(code_benef div nEnr)*100] )

le lbModule est un composant label, mon idée est d'afficher le taux d'avancement du traitement mais le résultat retourné est toujours 0.

pour info les deux variables code_benef et nEnr sont de type integer.

SOS, et merci.