Base de donnée sans axcess ni api

Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_legion91)