Discussion :

[demonjhon]

Bonsoir a tous,

Voila je vous expose ma question de ce soir:

J'ai un fichier HFSQL qui posséde un champ n° auto qui sert comme souvent de cle unique.

Mon soucis se situe dans le fait ou, lorsque je dois supprimer un enregistrement dans ce fichier de donnés, je supprime également ce n° unique.
Je me retrouve donc avec des n° manquants:
1
2
4
6
8
etc...
Comment faire pour retrouver une liste de n° propre ?

Code :

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

1
2
3
4
5
6
7
8
9
10
num_enregistrement est un entier = 1
 
 
HLitPremier(Stock,IDStock)
TANTQUE HEnDehors(Stock) = Faux 
	Stock.IDStock = num_enregistrement
	HModifie(Stock)
	num_enregistrement++
	HLitSuivant()
FIN

Sans succès. Le champ semble ne pas être modifiable !

Merci

[frenchsting]

Bonjour,

je ne comprends pas pourquoi tu veux renuméroter ton id auto, mais bon...

2 solutions :
- tu modifies ta rubrique IDAuto en une rubrique numérique que tu modifies avec ton code.
- tu regardes du côté de l'option hForceIdAuto et ton code devient :

Code :

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

1
2
	Stock.IDStock = num_enregistrement
	HModifie(Stock, hForceIdAuto)

[kunnskap]

L'id auto (qui devrait se trouver dans TOUS les fichiers de la base, excepté certaines tables de liaisons où c'est sujet à discussion), ne doit pas être modifiable.
Si tu veux un id que tu gères toi même, ajoutes une colonne. Il est normal qu'il y ai des trous dans les ID Auto si tu supprimes des enregistrements.

Selon moi, hForceIDAuto même si c'est une solution tout à fait possible pour gérer l'id toi même, n'est pas une bonne idée pour la maintenabilité du code à long terme. Peu de dev s'attendront à ce qu'un ID Auto soit modifié de façon forcée à travers le code.

Mais j'ai pas compris pourquoi le fait que les suppressions créent des trous te dérange? Y'a peut être une raison métier.

[Voroltinquo]

Le fait de tout renuméroter risque de mettre un beau bazar dans les relations.
C'est un coup à se retrouver (au mieux) avec des client réaffecté à un responsables clientèle sans que personne ne soit au courant, ou des factures envoyées au mauvais clients.
Si tu utilises un numéro GUID ce ne sont plus des trous que tu vas avoir, même avec de enregistrements consécutifs, mais parfois le grand canyon.

Sinon pour le "fun", en se basant sur le MLD suivant :

Code :

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

1
2
3
4
5
6
7
8
 
PROCÉDURE NettoyerTable()
 
SI PréparerTables()>1 ALORS
     Erreur(HErreurInfo)
FIN
Réaffecter()
RetourModeNominal()

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
 
FONCTION PréparerTables():booléen
 
HFerme(Contact)
//On crée la table "Hors analyse" qui sera rempli
HChangeNom(Contact,"NouveauContact")
HCréation(Contact)
HFerme(Contact)
 
//On revient à la table "Normale"
HChangeNom(Contact,"Contact")
HOuvre(Contact)
 
RENVOYER Vrai
CAS ERREUR:
     RENVOYER HErreurInfo(hErrFichier)
CAS EXCEPTION:
     RENVOYER HErreurInfo(hErrCodeSystème)

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
FONCTION Réaffecter():booléen
NouveauContact est Source de Données
sCheminTable est une chaîne
EnrContact est un Enregistrement de Contact
 
n8AncienFK est un entier sur 8 octets
n8NouveauFK est entier sur 8
 
REQ_Réaffectation est une Requête SQL =
[
UPDATE
     Atelier
SET
     FK_Contact = {pNouveauContact}
WHERE
     Atelier.FK_Contact = {pAncienContact}
]
 
 
sCheminTable=fConstruitChemin(fRepDonnées,"NouveauContact","fic")
HDéclareExterne(sCheminTable,NouveauContact)
 
POUR TOUT Contact //On parcourt la table "à trous"
    n8AncienFK=Contact.PK_Contact
    EnrContact=Contact
    NouveauContact=EnrContact
    HAjoute(NouveauContact)
    n8NouveauFK=NouveauContact.PK_Contact
 
   REQ_Réaffectation.pAncienContact=n8AncienFK
   REQ_Réaffectation.pNouveauContact=n8NouveauFK
   HExécuteRequête(REQ_Réaffectation)
FIN
 
//Les données de Contact.FIC se trouvent dans NouveauContact.FIC
//Les FK de la table Atelier sont à jour
//On peut libérer les variables de travail
HFerme(NouveauContact)
HAnnuleDéclaration(REQ_Réaffectation)
HAnnuleDéclaration(NouveauContact)
 
RENVOYER Vrai
 
CAS ERREUR:
CAS EXCEPTION:

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
20
21
22
 
FONCTION RetourModeNominal():booléen
sCheminContact est une chaîne
sCheminSwap est une chaîne
 
HFerme(Contact)
 
//Ce n'est pas élégant mais c'est rapide, même avec la réindexation
sCheminContact=fConstruitChemin(fRepDonnées,"Contact","*")
fSupprime(sCheminContact)
sCheminContact=fConstruitChemin(fRepDonnées,"Contact","FIC")
sCheminSwap=fConstruitChemin(fRepDonnées,"NouveauContact","FIC")
fRenomme(sCheminSwap,sCheminContact)
sCheminSwap=fConstruitChemin(fRepDonnées,"NouveauContact","*")
fSupprime(sCheminSwap)
 
HRéindexe(Contact,hVérifieMémo)
HOuvre(Contact)
 
RENVOYER Vrai
CAS ERREUR:
CAS EXCEPTION:

Et ça ce n'est que pour 2 tables.
Dans l'absolu il faudrait faire ça pour toutes les tables de l'analyse et toutes leurs liaisons.