Base de donnée sans axcess ni api

Soyez le premier à donner votre avis sur cette source.

Vue 4 938 fois - Téléchargée 533 fois

Description

Code trés simple et sans grande pretention.
[EDIT: parcque c'est pas plus complexe que AXCESS mais bien plus simple].
Le code présenter ci-dessou n'est que pur exemple simpliste, dans le zip vous trouverez un exemple un peu plus complexe que celui-ci qui vous permettra d'elaborer une base de donnée un peu plus complexe qu'une simple string.

Source / Exemple :


'La le mode simple + de detail dans le zip

Private buf() As String
Private Sub Command1_Click()

Dim i As Integer
'on redimensionne le tableau à 511
ReDim buf(511) As String

'ouverture/creation d'un fichier txt en mode binaire
Open App.Path & "\Simple.txt" For Binary As #1

'creation de la base de donnée (memoire)
For i = 0 To 10
buf(i) = "test" & i
DoEvents
Next i

'on redimensionne le tableau à 10
ReDim Preserve buf(10) As String

'on sauvegarde la base de donnée (physique)
Put #1, , buf()

'on utilise plus le txt alors on le ferme
Close #1

'on ne garde plus les valeur de la base
Erase buf

End Sub
Private Sub Command2_Click()
'pour la boucle For
Dim i As Integer

'on redimensionne suivant la taille du fichier (c'est pas correct mais bon)
ReDim buf(FileLen(App.Path & "\Simple.txt")) As String

'ouverture du fichier txt en mode binaire
Open App.Path & "\Simple.txt" For Binary As #1 '#1 mais Nr= Freefile c'est mieu

'on prend les valeurs
Get #1, , buf()

'on a finit on ferme le fichier
Close #1

ReDim Preserve buf(10) As String 'on sait qu'il ya 10valeurs donc...ben on redimensonne à 10 tout en gardant nos valeurs (sans les compressez)

'on efface la Form
Me.Cls

'listing de la base

'For i = 0 To UBound(buffer)
For i = 0 To 10
Print buf(i) 'impression sur la Form
DoEvents
Next i

Print "Finish" & UBound(buf) 'UBound(buf)=10 car on na redimmensionner à 10 et LBound(buf)=0
End Sub

'

Conclusion :


Insipré de http://www.vbfrance.com/code.aspx?ID=24461 portant sur la création d'un Fichier WAV
Merci à CanisLupus (http://www.vbfrance.com/forum.v2.aspx?ID=261341&nb=3)

'Bon le code est simple à comprendre et comme je l'utilise très souvent je me suis dit qu'il pouvait servir aux débutant comme aux pro donc je le post.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
3
Date d'inscription
lundi 9 août 2004
Statut
Membre
Dernière intervention
18 septembre 2004

pas mal!
Messages postés
216
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
15 décembre 2010

Désolé pour les fautes.

Je n'irais pas plus loin dans la conception car il faut que le code reste simple, à la porter de tout le monde, apres chacun peut le modifié à sa giz. Mais heureux de voir que certain planche dessus et donne des idéés pour l'ameliorer.

Après pour tout ce qui est classes, c'est trop compliker pour moi.
Messages postés
140
Date d'inscription
mercredi 4 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009

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... ;)
Messages postés
140
Date d'inscription
mercredi 4 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009

BozzoDodo > lol ;) je vais créér une fonction de lecture phonétique et lire la page avec :-D !

Bonne idée ;) !
Messages postés
185
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
10 janvier 2008

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.