COMPACTAGE BDD AVEC JETCOMP

Commentaire de Chatbour le 04/09/2007 19:55:16

Merci pour la source :)

en quoi consiste le compactage d'une base de donnée ?
c'est peut être éliminer l'espace gaspillé ?

Commentaire de bouv le 04/09/2007 20:37:27

J'allais le dire...
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 ;-)

Commentaire de BruNews le 04/09/2007 21:20:00 administrateur CS

Suppression physique des places non occupées, se fait par réécriture complète.

Commentaire de PCPT le 04/09/2007 21:53:50 administrateur CS

c'est le même principe avec des variables.

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



++ ;)

Commentaire de asimengo le 05/09/2007 14:05:43

@PCPT: je trouve toujours un peu lourd d'écrire des codes du genre de ta méthode rapide. L'utilisation des suites facilitent grandement la compréhension et même accélère également l'exécution. Je sais que c'était juste pour faire un aperçu mais c'est quand même pas une bonne habitude pour ceux qui lisent ça.

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.

Commentaire de asimengo le 05/09/2007 15:26:57

@BOUV: Question de gout?, humm je dirais y'a même pas photo, hé ben faut pas dire des bétises.

Commentaire de PCPT le 05/09/2007 18:57:41 administrateur CS

pour l'exemple vaut mieux alors passer par une variable intermédiaire OK

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)

++ ;)