Base de donnée sans axcess ni api

Soyez le premier à donner votre avis sur cette source.

Vue 4 854 fois - Téléchargée 505 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

BozzoDodo
Messages postés
185
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
10 janvier 2008
-
Je trouve ca plutot inutile comme code! Je vois pas en quoi c'est une base de donnée + complexe qu'avec access.... bref 5/10
cs_legion91
Messages postés
216
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
15 décembre 2010
-
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.
BozzoDodo
Messages postés
185
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
10 janvier 2008
-
Oui c'est bien ce que j'avais compris mais je doute que tu puisse rendre cela plus complexe ;-) (essaie d'enregistrer des sauts à la ligne avec ton code... c'est pas possibles...)
BozzoDodo
Messages postés
185
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
10 janvier 2008
-
J'ai rien dit! J'ai vérifié et ca marche... dsl je remonte la note du coup... =P
BozzoDodo
Messages postés
185
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
10 janvier 2008
-
euh... théoriquent puisque j'ai déjà voté

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.