begin process at 2012 02 12 23:35:14
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Divers

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

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


 Information sur la source

Note :
Aucune note
Catégorie :Divers Classé sous :mon, fichier, à, accès, direct Niveau :Débutant Date de création :28/01/2006 Vu / téléchargé :9 984 / 2 057

Auteur : jpleroisse

Ecrire un message privé
Site perso
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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture MAJUSCULES / MINSUSCULES
Source avec Zip Source avec une capture JEU, LES ALLUMETTES
Source avec Zip Source avec une capture UN PETIT INSTALLATEUR DE FICHIER (COPIEUR)
Source avec Zip Source avec une capture RÉCUPÉRER DES DONNÉES ACCESS DANS EXCEL
Source avec Zip Source avec une capture CRÉATION D'UNE APPLICATION DATACOMBO SIMPLE

 Sources de la même categorie

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) DÉFRAGMENTER UN FICHIER par ShareVB
Source avec Zip Source .NET (Dotnet) MODIFIER LES EXTENSION DES FICHIERS par okosa
Source avec Zip Source avec une capture FILE,SECURITY,FICHIER par okosa
Source avec Zip Source avec une capture ACCÈS SEQUENTIEL AU FICHIERS par rt15
Source avec Zip JEUX D'ENREGISTREMENT DANS UN FICHIER par ouadou44

Commentaires et avis

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

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

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

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.

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!

Commentaire de jeraos le 29/01/2006 23:09:27

super mais mieux vaut utiliser app.path

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.

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

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 Modifier date du dernier accès à un fichier [ par lilinath ] Bonjour, Je désire changer la date du dernier accès à un fichier, vidéo. Je n'y arrive pas. Quelqu'un peut il m'aider. Merci pour votre aide,Bonne j 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 copie de fichier -- accès refusé en VB.NET [ par sniceper ] Bonjour, Je fais actuellement un petit programme qui permet de sauvegarder mon bureau et mes documents sur un disque externe en utilisant la commande connaitre le chemin d'accès d'un fichier [ par Debenja84 ] Bonjour Bonsoir à tous,Je souhaiterais connaitre le chemin d'accès d'un fichier au format mp3.Cela en utilisant le CommonDialog. Le chemin d'accès dev


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,014 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales