Base de donnée sans axcess ni api
Soyez le premier à donner votre avis sur cette source.
Vue 5 097 fois - Téléchargée 546 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.
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.
[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
- Netbase api
- Random id - flash - pour base de donnee sans autoincrement - Conseils pratiques - Flash
- Se connecter a une base de donnée sans le composant adodc - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Accés à base de donnée sans controls (ado, adoc...) - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Connexion a une base de donnée sans programmation - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- PHP : Gérer une base de données sans mysql - CodeS SourceS - Guide
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.
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... ;)
Bonne idée ;) !
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.