Discussion :

[milfra12]

Bonjour, malgrés mes nombreuses recherches, je n'arrive pas a reinitialiser un id auto dans une table hyperfile.

voila le code que j'ai utilisé pour le moment mais sans succes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
TableSupprimeTout(Menu.TABLE_Partie)
	TableEnregistre(Menu.TABLE_Partie)
 
	res=HExécuteRequêteSQL(supp,"delete from partie")
 
	SI res=Faux ALORS
		Info(ErreurInfo(errComplet))
 
	FIN
	HSupprime(Partie)
	HLibère(Partie)
	HRéindexe(Partie,hNdxCompactage + hNdxSuppression )
	HRAZ(Partie,IDPartie)

lorsque j'ajoute un nouvel enregistrement, l'id-automatique continue au point ou il en etait. Hors, j'ai besoin qu'il reparte a 1. Dois-je gerer un nouveau champs à la main ?

Merci d'avance de votre réponse.

[Jannus]

L'ID automatique ne peut être remis à zéro que lors de la création d'un nouveau fichier.
Pour contourner ce problème la seule solution est de recopier le fichier vers un nouveau fichier (en utilisant HAlias() par ex.)

[milfra12]

Merci guardian, mais l'utilisation de HALIAS suppose la reécriture complète de mon appli. Y a t il moyen de supprimer le fichier de données ? J'ai essayé fsupprime mais ça ne fonctionne pas, comment dois-je faire pour fermer les fichiers de données ouverts ?

[Jannus]

Delete

Mais je ne vois pas en quoi HAlias demanderait la réécriture de ton application ? Il te suffit d'ajouter un bouton quelque part et d'y mettre le code.

Cela dit, si tu envisages la suppression pure et simple, et donc la perte des données, ce n'est pas nécessaire, une suppression physique suffit.
Comme ton fichier est utilisé par l'application, tu dois d'abord le fermer :

Code :

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

1
2
3
4
5
6
7
8
9
ResSuppression est un booléen
 
HFerme(NomFich)
ResSuppression=fSupprime("Dossier\NomFich.*")
SI ResSuppression = Faux ALORS
	Erreur(ErreurInfo( errMessage ))
SINON
	Info("Le fichier a été supprimé")
FIN