COMPACTAGE BDD AVEC JETCOMP
Chatbour
Messages postés
71
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
12 juillet 2009
-
4 sept. 2007 à 19:55
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019 - 5 sept. 2007 à 19:12
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019 - 5 sept. 2007 à 19:12
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/43977-compactage-bdd-avec-jetcomp
https://codes-sources.commentcamarche.net/source/43977-compactage-bdd-avec-jetcomp
5 sept. 2007 à 19:12
5 sept. 2007 à 18:57
le problème ne se serait pas posé si j'avais commencé le tableau à 1 en mettant "data_bidon" en boucle dans le load.
ce qui est important ici est évidemment le principe! en l'uccorence l'utilisation de mid dans l'espace déjà créé.
du reste on s'aperçoit au moins que malgré le manque d'optimisation de l'exemple, la différence des 2 méthode reste énorme ;)
bref pour une base çà nous rapelle donc le compromis qu'il peut falloir faire entre taille (de la base) et rapidité (d'écriture)
++ ;)
5 sept. 2007 à 18:17
devrait normalement couter 1 cycle, absolument imbattable.
((((i - LB) + 1) * iLen) + 1 - iLen)
ici approximativement 12 cycles.
5 sept. 2007 à 15:26
5 sept. 2007 à 14:41
- Plus concis
- Ne passe pas par la variable Ui ce qui peut faire gagner quelques précieux cycles.
++
Bouv
5 sept. 2007 à 14:05
Voila, je la réecris comme il se doit.
Sub methode_rapide(ByRef r As String)
Dim i As Long, iLen As Integer, Ui as long
iLen = Len(a(LB))
r = String(((UB - LB + 1) * iLen), " ")
Ui=1: Mid$(r, Ui, iLen) = a(LB)
For i = LB +1 To UB
Ui=Ui+iLen: Mid$(r, Ui,iLen) = a(i)
Next i
End Sub
C'est bien pour compréhensible et surtout plus rapide.
4 sept. 2007 à 21:58
4 sept. 2007 à 21:53
il est plus rapide d'écrire dans une allocation créée que de redimensionner à chaque écriture
voici un exemple plus ou moins comparable (principe pour les variables)
Option Explicit
Const LB As Integer = 1000
Const UB As Integer = 9000
Dim a(LB To UB) As String 'contiendra 4 caractères par item
Private Sub Form_Load()
Dim i As Long, t As Currency
' rempli le tableau
For i = LB To UB
a(i) = CStr(i)
Next i
' méthode longue
Dim r1 As String
t = Timer
Call methode_longue(r1)
Debug.Print "1> TEMPS : " & Timer - t & " ms"
DoEvents
' méthode rapide, en utilisant l'emplacement créé
Dim r2 As String
t = Timer
Call methode_rapide(r2)
Debug.Print "2> TEMPS : " & Timer - t & " ms"
Unload Me
End Sub
Sub methode_longue(ByRef r As String)
Dim i As Long
r = vbNullString
For i = LB To UB
r = r & a(i)
Next i
End Sub
Sub methode_rapide(ByRef r As String)
Dim i As Long, iLen As Integer
iLen = Len(a(LB))
r = String(((UB - LB + 1) * iLen), " ")
For i = LB To UB
Mid$(r, ((((i - LB) + 1) * iLen) + 1 - iLen), iLen) = a(i)
Next i
End Sub
++ ;)
4 sept. 2007 à 21:40
4 sept. 2007 à 21:20
4 sept. 2007 à 21:16
4 sept. 2007 à 20:37
Non je déconne mais c'est un bon résumé.
Peut être déjà un peu trop technique pour les néophytes mais faut bien progresser ;-)
4 sept. 2007 à 20:13
espace gaspillé, on va voir que ça dépend du point de vue, place disque ou performances.
Une BDD est faite pour croitre donc elle ne fait que marquer 'libres' les lignes supprimées mais ne resserre jamais les fichiers de données (suppression physique) par un appel SetEndOfFile(). Il est moins couteux (en perfs) d'écrire sur une place déjà attribuée sur le disque (réécriture) plutot qu'une écriture nouvelle car oblige le driver fichier à trouver des clusters libres, si non contigus il faut à chaque morceau écrire aussi le pointeur sur le prochain cluster.
Résumé rapide mais c'est le principe.
4 sept. 2007 à 19:55
en quoi consiste le compactage d'une base de donnée ?
c'est peut être éliminer l'espace gaspillé ?