BASE DE DONNÉE SANS AXCESS NI API

Commentaire de legion91 le 07/08/2004 17:24:55

J'ai pas dit que c'etait plus complexe à AXCESS puisque c'est plus facile à faire avec mon code mai j'ai dit que l'ont pouvait la rendre + complexe.

Commentaire de BozzoDodo le 07/08/2004 19:29:26

J'ai rien dit! J'ai vérifié et ca marche... dsl je remonte la note du coup... =P

Commentaire de BozzoDodo le 07/08/2004 19:54:46

Pour me faire pardonner (tu avais raison j'avais mal lu le code hihihi) j'ai modifier les trucs pas tout à fait corrects et maintenant le nombre de membres s'enregistre dans le fichier).


Private buf() As String

Private Sub cmdEcrire_Click()
Dim i As Long
Dim n As Long
Dim ffile As Byte

'Nombre de valeur à créer
n = 10

ffile = FreeFile

    Open App.Path & "\Simple.txt" For Binary As #ffile
        'On redimensionne le tableau
        ReDim buf(n)
        
        'Création de la base de donnée (memoire)
        For i = 0 To n
            buf(i) = "test" & i
            DoEvents
        Next i
        
        'On sauvegarde le nombre de membres
        Put #ffile, , n
        
        'On sauvegarde la base de donnée (physique)
        Put #ffile, , buf()
        
    'On utilise plus le txt alors on le ferme
    Close #ffile
        
    'On ne garde plus les valeur de la base
    Erase buf
End Sub


Private Sub cmdLire_Click()
Dim i As Long
Dim n As Long
Dim ffile As Byte

    ffile = FreeFile
    
    'Ouverture du fichier txt en mode binaire
    Open App.Path & "\Simple.txt" For Binary As #ffile
    
        'On récupère le nombre de membres de la base de donnée
        Get #ffile, , n
        
        'On redimensionne le tableau pour qu'il puisse acceuillir toutes les valeurs
        ReDim buf(n)
        
        'On lit les valeurs de la base de donnée
        Get #ffile, , buf()
        
    'On a finit on ferme le fichier
    Close #ffile
    
    'On efface la Form
    Me.Cls
    
    'Listing de la base
    For i = 0 To UBound(buf)
        Print buf(i) 'impression sur la Form
        DoEvents
    Next i
End Sub

Commentaire de legion91 le 07/08/2004 22:57:26

Enfaite dans un autre projet j'ai fait presk de la mem maniere (principe car sinon c'est trop long):
option explicit
private type Buffer
Count as long
Data () as tring)
end type

'form

private Buffer as Buffer
....
Open ....
Put #1,,Buffer
Close #1

et sa marche aussi bien ;-)

Commentaire de legion91 le 08/08/2004 02:08:55

nom as string * 50 a quoi sert le multiplier ?

Ouais pour les redim de tableaux c'est à corriger ;-).
Je sais pas pour vous mais la je me demande qui à postez une source ? En tout cas c'est pas moi ;-)

Et dire que je vais aller me coucher et que demain c'est sur jvais taffer sur vos idées.

Merci les gars.

Commentaire de BozzoDodo le 08/08/2004 11:25:35

Ouais mais perso je prefère la technique de legion91. Parce que quand on reserve une chaine à un certain nombre de caractères le fichier a tendance a prendre du... volume =D.

Commentaire de BozzoDodo le 08/08/2004 19:31:56

Ton code m'a donné une idée. Je vais essayer de créer un base de donnée en me servant des Collection et de classes. Voila ce qu j'aimerai que ca donne

                   Item - value
                  /
          Item - value
         /       \
                   Item - value
Base                  
                   Item - value
         \       /
          Item
                 \.......


J'espère y arriver c'est pas gagné =S

Commentaire de BruNews le 08/08/2004 21:17:07 administrateur CS

Salut a tous,

c'est bien de vouloir essayer mais il est inconcevable de faire un gestionnaire BDD en vb, deja rien que pour les limitations du langage (pas de pointeurs, pas d'acces directs ni gestion dynamique de la memoire, etc...).
Faudra passer au natif compile pour ce genre de choses.

Commentaire de BozzoDodo le 08/08/2004 21:57:06

petite erreur dans AddItem:

Public Function AddItem(NewItem As cItem)
    ReDim Preserve Items(1 To Count + 1)
    Set Item(UBound(Items)) = NewItem
End Function

Voila mais ca marche toujours pas! Quelqu'un (code1 et BruNews vous avez l'air d'y connaitre jme trompe? :D) sait comment faire?

Commentaire de BozzoDodo le 09/08/2004 12:11:39

Alala je te conseille de lire comme si ce n'était que des sons =D

Commentaire de cyrilp le 09/08/2004 14:13:57

Allez, malgré l'orthographe, je met 7 pour t'encourager !

C'est assez intéressant, ... mais vu que tu enregistres totalement tes données dans des variables avant d'écrire le fichier, la mémoire vive est fortement solicitée si tu comptes enregistrer enormement de données !!!

Ca serait bien aussi de prévoir tout ceci sous forme de classes avec fonction d'ajout, suppression, recherche, etc... ;)