Utilisation d'un fichier à accès direct, comme base de données.
0/5 (10 avis)
Vue 13 327 fois - Téléchargée 2 376 fois
Description
Ce code crée un fichier à Accès Direct afin d'y stocker des données (un peu comme dans une base de données)
Codes Sources
A voir également
- Utilisation d'un fichier à accès direct, comme base de données.
- Base de données javascript - Conseils pratiques -Javascript
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Connecter une application android à une base de données - Conseils pratiques -Java
- Restauration base de données sql server ✓ - Forum SQL
- Connexion base de données - Conseils pratiques -PHP
3 mars 2013 à 22:34
31 janv. 2006 à 18:06
'-----------------------------------------------------------
Dim sFile As String
Dim lFile As Long
sFile = App.Path & "" & "Adresse.adr"
lFile = FreeFile
Open sFile For Random As #lFile Len = Len(Adr)
'---------------------------------------------------
Concernant le FreeFile je conseil également de le faire juste avant l'ouverture du fichier, car tant que le fichier n'est pas ouvert FreeFile renvoie la meme valeur.
Pas genant si on utilise q'un fichier mais avec plusieurs fichiers ouverts simultanément, problème !!!
Le code suivant va générer une erreur sur le 2eme fichier car lFile1=lFile2
Dim sFile1 As String, sFile2 As String
Dim lFile1 As Long, lFile2 As Long
sFile1 = App.Path & "" & "Adresse.adr"
sFile2 = App.Path & "" & "Sauvegarde.adr"
lFile1 = FreeFile
lFile2 = FreeFile
Open sFile1 For Random As #lFile1 Len = Len(Adr)
Open sFile2 For Random As #lFile2 Len = Len(Adr)
Il vaut mieux écrire
------------------------------------------------------
Dim sFile1 As String, sFile2 As String
Dim lFile1 As Long, lFile2 As Long
sFile1 = App.Path & "" & "Adresse.adr"
sFile2 = App.Path & "" & "Sauvegarde.adr"
lFile1 = FreeFile
Open sFile1 For Random As #lFile1 Len = Len(Adr)
lFile2 = FreeFile
Open sFile2 For Random As #lFile2 Len = Len(Adr)
-------------------------------------------------------------
Pour ce qui est de la suppression c'est d'un interet très important car il faut gérer les trous, prévoir le compactage, etc... et c'est pas évident du tout. Ceci dit tu as raison, si ca n'interresse personne, pas la peine, par contre tu fais erreur, les nons débutants n'ont pas la science infuse, et les outils sont telement vaste aujourd'hui que meme des gens expérimentés peuvent y voir un interret (enfin du moins je le pense, et d'ailleurs je connais des pros qui n'on jamais écrit ce type de code).
31 janv. 2006 à 16:15
Merci de ces commentaires, les conseils sont toujours bon.Ceci dit, pour ce qui est de coder en dur le chemin d'accès au fichier, je n'ai pas pu faire autrement, avec App.Path, j'ai un message d'erreur qui me désigne le mot Path et qui dit "Référence à une constante non autorisée".
Je suppose que je l'utilise mal.Pour ce qui est de la suppression, je verrai si celà vaut le coup de modifier si celà n'interesse aucun débutant, car pour les autres ce code ne les intéressent certainement plus depuis longtemp.Pour ce qui est de déclarer en Integer plutôt qu'en Long, à mon avis pour servir de carnet d'adresses perso,c'était largement suffisant.
jpleroisse
30 janv. 2006 à 11:01
29 janv. 2006 à 23:09
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.