CRYPTAGE ET DÉCRYPTAGE DE CHAÎNES ET DE FICHIERS [MODULE DE CLASSE]

Commentaire de asimengo le 28/10/2008 15:26:48

@PCPT : Merci une fois de plus de la peine que tu t'es donné pour ma demande.

En définitive je pense que ta méthode "(dé)cryptage de tableau de byte" me suffirait largement, après le reste je manage suivant mes besoins.

En effet, il me suffit de passer à ta méthode "tableau" légèrement modifiée, le RS.getrow. En effet il me faudra les enregs en ligne et les champs en colonne. Pour avoir la structure des champs, il faudra passer aux 4 premières lignes respectivement les proprités champs Name, Type, DefinedSize, Attributes. J'aime bien toujours que mes composants soient autonomes.

Au décrytage, une lecture séquentielle permet de reconstituer aisément le RS, ou dans mon cas ma Classe de gestion dynamique des items.

Pour le clone du recordset, ci-dessous le code que j'utilise
'Copie les enregistrements de poRstSource dans poRstDestination
Public Function MakeCloneRecordset(ByVal poRstSource As ADODB.Recordset, ByRef poRstDestination As ADODB.Recordset, Optional ByVal pbIgnoreData As Boolean = False, Optional ByRef paMaxLenghtFields As Variant) As Boolean
On Error GoTo Err_MakeCloneRecordset
Dim oFld As ADODB.Field, vBookmark As Variant, bEvaluateMaxLenght As Boolean, lCpt As Long

    Set poRstDestination = New ADODB.Recordset
    With poRstDestination
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockPessimistic
        'Initialisation de la liste des champs
        For Each oFld In poRstSource.Fields
            .Fields.Append oFld.Name, oFld.Type, oFld.DefinedSize, oFld.Attributes
        Next oFld
        'Préparation du tableau pour la recupération de la taille max des champs
        If Not IsMissing(paMaxLenghtFields) Then
            bEvaluateMaxLenght = True
            ReDim paMaxLenghtFields(1 To .Fields.Count) As Long
        End If
        
        'Ouverture du recordset pour remplissage
        .Open
    End With
    
    If Not pbIgnoreData Then
        'Remplissage du recordset
        With poRstSource
        'On peut aussi faire With poRstSource.Clone(adLockReadOnly), ainsi on ne s'embetera plus avec la gestion des bookmarks.
        'Mais je me suis demandé si ce n'était pas du temps perdu cette méthode, temps de Clone.
        'je ne me suis pas penché dessus pour voir les différences de vitesse.
            If .RecordCount <> 0 Then
                vBookmark = .Bookmark
                .MoveFirst
                Do While Not .EOF
                    poRstDestination.AddNew
                    For Each oFld In .Fields
                        lCpt = lCpt + 1
                        poRstDestination.Fields(oFld.Name).Value = oFld.Value
                        If bEvaluateMaxLenght And Not IsNull(oFld.Value) Then paMaxLenghtFields(lCpt) = MaxValues(paMaxLenghtFields(lCpt), Len(Str(oFld.Value)))
                    Next oFld
                    poRstDestination.Update
                    .MoveNext
                Loop
                .Bookmark = vBookmark
                poRstDestination.MoveFirst
            End If
        End With
    End If
    
    MakeCloneRecordset = True

Exit_MakeCloneRecordset:
    Exit Function

Err_MakeCloneRecordset:
    MsgBox Err.Description
    Resume Exit_MakeCloneRecordset
End Function

Merci encore.
A+