BASE DE DONNÉE SANS AXCESS NI API
BozzoDodo
Messages postés
185
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
10 janvier 2008
-
7 août 2004 à 17:00
cs_saados Messages postés 3 Date d'inscription lundi 9 août 2004 Statut Membre Dernière intervention 18 septembre 2004 - 18 sept. 2004 à 01:47
cs_saados Messages postés 3 Date d'inscription lundi 9 août 2004 Statut Membre Dernière intervention 18 septembre 2004 - 18 sept. 2004 à 01:47
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/25235-base-de-donnee-sans-axcess-ni-api
https://codes-sources.commentcamarche.net/source/25235-base-de-donnee-sans-axcess-ni-api
18 sept. 2004 à 01:47
9 août 2004 à 14:45
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.
9 août 2004 à 14:13
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... ;)
9 août 2004 à 12:56
Bonne idée ;) !
9 août 2004 à 12:11
9 août 2004 à 08:16
Je n'ai même pas regardé la source, trop de fautes, ça me démotive :-(
8 août 2004 à 21:57
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?
8 août 2004 à 21:45
Je chercher depuis taleur mais je trouve pas comment faire. J'ai créer une classe cItem. Dans celle ci j'ai déclaré Public Items() as cItem mais Vb me dit que c'est pas possible! =S. Donc après j'ai déclarer une collection Items() à la place et une property.
Pour ajouter un élément dans la suite (ex: j'ai item je veux créer un sous-item alor j'utilise la fonction Additem).
En gros voila mon code
(dans le projet je déclare BDD as new cItem) et dans la classe cItem:
Private m_Value As String
Private Items() As New Collection
Public Property Get Item(Index As Long) As cItem
Set Item = Items(Index)
End Property
Public Property Set Item(Index As Long, ByVal m_Value As cItem)
Items(Index).Add m_Value
End Property
Public Property Get Value() As String
Value = m_Value
End Property
Public Property Let Value(ByVal m_NewValue As String)
m_Value = m_NewValue
End Property
Public Function AddItem(NewItem As cItem)
ReDim Preserve Items(1 To Count + 1)
Set Item(UBound(Items)) = NewItem
Items(UBound(Items)).Add NewItem
End Function
Public Property Get Count() As Long
On Error Resume Next
Err.Clear
Count = UBound(Items)
If Err.Number <> 0 Then Count = 0
End Property
Comprend pas pourquoi ça marche pas =S
8 août 2004 à 21:17
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.
8 août 2004 à 20:22
bien géré les curseurs coté serveur et coté client
8 août 2004 à 19:31
Item - value
/
Item - value
/ \
Item - value
Base
Item - value
\ /
Item
\.......
J'espère y arriver c'est pas gagné =S
8 août 2004 à 18:38
super c'est tu execute ce programme tu trevera que presque le meme essay de l'associer avec de composant
base de donnée est il deviendra un code des pro
private sub bt_click()
for i=1 to 10
fontsize=10+i
print "test"; i
next i
end sub
8 août 2004 à 11:25
8 août 2004 à 06:18
veut tout simplement dire que ta chaine est reservée avec 50 caractères en mémoire....
8 août 2004 à 02:08
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.
7 août 2004 à 23:00
Seulement une chose : pourquoi redimensionne tu 2 fois ton Tableau buf()?
tu sais que tu as 11 éléments, dimensionne le a 10 et ca suffira, pas besoin de REDIM PRESERVE dans ce cas :)
Tu peut stocker des tableaux de ce que tu veux, pas besoin de se limiter seulement au chaines. Tu peut même utiliser des type utilisateurs!
Comme :
Private Type FichePersonne
nom as string * 50
prenom as string *200
addresse as string *1000
tel as string*10
end type
Dim fiches(20) as FichePersonne
et tu fait pareil avec ce tableau.
Bye!
7 août 2004 à 22:57
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 ;-)
7 août 2004 à 20:44
7 août 2004 à 19:54
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
7 août 2004 à 19:30
7 août 2004 à 19:29
7 août 2004 à 19:13
7 août 2004 à 17:24
7 août 2004 à 17:00