Discussion :

[noftal]

bonjour,

Soit une table avec un champ compteur s'autoincrémentant.
Mettons que le dernière valeur du compteur est 100
Si je crée un enregistrement, il passe à 101.

si je supprime cet enregistrement, puis si j'en recrée un, le compteur passe à 102.

bilan : j'ai un trou entre 100 et 102 que je ne récupérerai jamais.

Sous Access, pour éviter cela, il suffisait de compacter la base de donnée entre la suppression et la création d'un enregistrement.

Quelle est la méthode sur SQLite sachant que je travaille sous VB.NET ?

C'est surtout que dans le cadre de mes opérations de tests, je fais pas mal de créations bidons suivies de suppressions donc j'ai un paquet de valeurs de compteur qui deviennent inutilisables.

[acaumes]

Bonjour,

Sur ma version Sqlite (3.8.0.1), il suffit de réinitialiser la table sqlite_sequence à condition que la valeur que tu impose soit supérieure ou égale à celle du maximum inscrit en table.

Cordialement

[noftal]

Excuse-moi, j'ai oublié de préciser que je voulais savoir comment faire programmatiquement en VB.NET.

Sinon, je ne vois la table sqlite_sequence que sur SQLite Developer et pas sur SQLite Expert (j'utilise les 2 selon ce que j'ai à faire).
Sur le premier, il faut faire clic droit sur cette table puis Réindex ?

[acaumes]

Bonjour,

Non, il suffit de faire un update de la valeur max de ta table

Code :

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

1
2
3
 
update  sqlite_sequence set   seq  =  (select max(tacolonne) from tatable)
where name = 'tatable'

Cordialement

[noftal]

Excellent !


Du coup je vous fais partager ma fonction générique au cas où cela pourrait être utile à certains :

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
Sub CompacteTable(ByVal table As String, ByVal CompteurName As String)
        Dim sql As String
        sql = "UPDATE  sqlite_sequence SET   seq  =  (SELECT max( " & CompteurName & ") FROM " & table & ") " & _
"WHERE name = '" & table & "'"
        Dim connexion As New SQLiteConnection(My.Settings.ConnectionString)
 
        Try
            connexion.Open()
            Dim cmd As New SQLiteCommand(sql, connexion)
            cmd.ExecuteNonQuery()
            cmd.Dispose()
 
 
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "CompacteTable")
        Finally
            connexion.Close()
        End Try
    End Sub