AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 10 11 05:57:28
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

UTILISATION D'UN FICHIER À ACCÈS DIRECT, COMME BASE DE DONNÉES.


Information sur la source

Catégorie :Divers Classé sous : mon, fichier, à, accès, direct Niveau : Débutant Date de création : 28/01/2006 Vu / téléchargé: 6 959 / 1 826
Auteur : jpleroisse Site perso
Ecrire un message privé
Note :
Aucune note
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
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)
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de jpleroisse le 28/01/2006 18:15:04

Bonjour,
Un oubli de ma part, j'ai joint au fichier zip, le fichier Adresse.adr, créé par l'application, celui-ci n'est pas nécessaire puisqu'un fichier sera créé.
Et également que cette source est destinnée aux débutants, je pense l'avoir assez bien commentée.
jpleroisse

signaler à un administrateur
Commentaire de cytut le 29/01/2006 09:03:47

C'est exactement ce que je cherche mais la conversion automatique vers Visual basic 2005 express génère des erreurs, je suis incapable de les corriger (très débutant).
QQ peut-il le faire et mettre le projet upgradé en ligne.
Merci
Cyrille (J'y arriverais un jour.....)

signaler à un administrateur
Commentaire de jpleroisse le 29/01/2006 11:22:29

Bonjour,
Malheureusement, je ne connais pas visual basic 2005, j'espère que quelqu'un te donnera la solution.
jpleroisse

signaler à un administrateur
Commentaire de JJDai le 29/01/2006 18:06:38

Attention au chemin en dur dans le code, mieux vaut utiliser app.path avec eventuellement un sous réperoire.
Attention a ne jamis utiliser un numer de fichier en dir comme #1, il faut utiliser la fonction FreeFile pour recuperer le premier numéro libre et dans ce cas il faut déclarer la variable au niveau du module, d'autre appli font la meê chaose, il y a un fort risque de colision, de pointer sur le meme fichier.
Il n'est pas conseillé d'utilisé les accents dans les noms de variable de fonction, ... c'est source d'erreur dificile à détecter.
MaxEnreg est typé en integer, il serait préférable de le typer en long, sinon ca limite a 32765 le nombre d'enregistrements (je sais c'est déja pas mal, mais pour certaines utilisations ca peut être un peu court).
Domage ca ne gere pas la suppression.
C'est bien commenter
Pour ce qui est de la compatilité avec VB5 ca devrait pas pauser de problème, il n'y a rien a priori de spécifique à vb6.

signaler à un administrateur
Commentaire de ScSami le 29/01/2006 20:17:18

Je suis l'avi de JJDai sauf pour l'explication des canaux car, si je ne m'abuse, il ne peut y avoir de conflits entre plusieurs canaux qu'au sein d'une seule instance de ton programme lors de l'exécution. Autrement dit, y'a pas vraiment de chance que d'autres applis interfèrent. En revanche, en interne, il est très clairement indiqué d'utiliser FreeFile! C'est une habitude à prendre (dur pour les oldschooler ;-). Mais demeur la polémique sur le typage de la variable car les canaux, si je dis pas de conneries, peuvent aller de 1 à 512 ! Enfin, de nos jour, quelle différence entre un petit Byte et un petit Integer !

Sinon, c'est une bonne idée même si je doute que les questions des newbies - qui veulent rien lire - disparaissent du forum ;-) D'ailleurs, je pense que même un tuto est peinne perdue! Mais je suis peut-être un peu pessimiste!

signaler à un administrateur
Commentaire de jeraos le 29/01/2006 23:09:27

super mais mieux vaut utiliser app.path

signaler à un administrateur
Commentaire de JJDai le 30/01/2006 11:01:11

Tu assurement raison ScSami concernant les canaux, je n'ai jamais réellement approfondie la question ce que de ce pas je vais tester, de toute facon mieux vaut jouer le sécurité en utilisant FreeFile.

signaler à un administrateur
Commentaire de jpleroisse le 31/01/2006 16:15:09

Bonjour,
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

signaler à un administrateur
Commentaire de JJDai le 31/01/2006 18:06:03

en faisant comme ça tu devrais pas avoir de problème.
'-----------------------------------------------------------


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).

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

suppression dans fichier accès direct [ par Wizzzz ] Salut ! je voudrais savoir comment supprimer un enregistrement d'unfichier à accès direct.Merci visual basic et fichier à accès direct [ par saul ] saulbonjour à tous j'utilise un prog qui rentre dans un fichier à accès direct de 30 "places" les données suivantes un produit avec son nom et son pri Fichier accès direct [ par jpmaton ] Bonjour,Comment déclarer "en bloc" les enregistrements d'un fichier à Acès Direct.ex au lieu de :Type enreg  activite1 as string * 20  activite2 as st Lire fichier à accès direct [ par kiboumz ] Bonjour,J'ai un fichier qui a été crée à accès binaire (direct) à l'aide d'une structure, et j'ai besoin de lire ce fichier, mais j'ai n'ai pas accès Trouver le chemin d'accès d'un classeur [ par djlio36 ] Bonjour à tousExiste t il une commande permetant de donner le chemin d'accès d'un fichier ??J'ai déja poser la question (en me trompant de forum pardo recherche "fichier a acces direct" [ par kamovb ] salut tous le mondej'ai un probléme d'affichage!je travail sur un petit projet avec vb "fichier a acces direct"et je veux afficher les derniers 3 paie copie impossible sur reseau [ par djraphi23 ] bonjour, je crée un programme qui gère la copie de fichier sur un serveur (un autre pc en lan). J'ai testé tout d'abord la copie sur mon ordinateur et UNICODE [ par sadiki ] SALUT je suis entrain de developper une application qui permet d'extraire le chamain d'accès d'un tel fichier nommé en arabe !!! le pb que le nom du combobox avec fichier a access direct [ par kamovb ] salut tous le mondej'ai inserer combobox dans un form pour importer des données d'un fichier , mais, le prob c'est qu'il améne tous ce qui est enregis Message pour olivier [ par franck ] Merci, pour ton programme concernant le fichier à accés direct. j'ai finalisé un répertoire utilisant un fichier à accés sequentiel, je vais le refair


Nos sponsors

Sondage...

CalendriCode

Octobre 2008
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,296 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.