[PB] Enregistrement sur fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PB] Enregistrement sur fichier

truman

Bonjour ! Je suis débutant en VB et je n'ai jamais eu encore à manipuler des fichiers : je suis bloqué par une erreur que je n'arrive pas à enlever.

Voici la structure d'un de mes clients :

Code :

'Structure d'un client
Type Client
numch As Integer 'Numéro de chambre
nom As String 'Nom
nbdej As Integer 'Nombre de petits-déjeuners
chambre As Boolean 'Indique si le client prendra
'son petit déjeuner en chambre ou non
heure As String 'Heure
Dejeuner() As Dejeuner 'Tableau des petits-déjeuners
etat As Boolean 'Etat de la commande (vrai si effectuée, faux si annulée)
prix As Integer 'Montant de la commande
End Type

Voici la structure d'un enregistrement :

Code :

'Structure d'un enregistrement
Type Enr
numch As Integer 'Numéro de chambre
etat As Boolean 'Etat de la commande
nom As String 'Nom du client
nbp As Integer 'Nombre de personnes
chambre As Boolean 'Lieu
heure As String 'Heure
prix As Double 'Prix
End Type

Voici la sub que j'appelle pour enregistrer :

Code :

Sub Save_fic()
Dim nf, i, j As Integer
Dim zl As Enr
nf = FreeFile
Open "fic.txt" For Random Access Read Write As #nf Len = Len(zl)
For i = 1 To nbcli
zl.chambre = TC(i).chambre
zl.etat = TC(i).etat
zl.heure = TC(i).heure
zl.nbp = TC(i).nbdej
zl.nom = TC(i).nom
zl.numch = TC(i).numch
zl.prix = TC(i).prix
Put #nf, i, zl
Next i
Close nf
End Sub

J'obtiens au choix l'erreur "Bad record number" ou bien "Bad record length" à la ligne du Put. Globalement je crois comprendre l'erreur mais je ne vois pas bien pourquoi il me fait ça : zl est bien de la bonne longueur, et le numéro d'enregistrement est valide... HELP ! Merci d'avance.

Publicité

knakes

Question : tu ouvre le fichiers et réécis tous les clients ?

Edit :

Recherches complémentaires sur la fonction PUT :

PUT #Fichier, Octet, Variable

En clair, le traitement du fichier se fera en mode binaire...

Message édité par knakes le 23-05-2005 à 11:45:35

---------------
now : do nothing

gfa

Utilise plutôt Write ou WriteLn (il me semble que les deux existent).

Mais disons que c'est pas vraiment optimal comme façon de faire... Tu peux pas plutôt utiliser une base de données?

Parce que là tu gères comment les doublons, les recherches, ... ?

Les fichiers plats, ça se fait plus trop dans ce genre de domaines

A+

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[PB] Enregistrement sur fichier

Sujets relatifs
Modifier un fichier pdf sans lib exterieur ?	Lecture d'un fichier texte
Proteger l'acces a un fichier	générer un fichier excel en php sous apache
[Perl & XML] Validatin d'un fichier XML	creer un fichier
renommer automatiquement une case dans un fichier Excel	recherche de fichier en java
Remplir des champs d'un fichier pdf	Récup de données numérique fichier txt
Plus de sujets relatifs à : [PB] Enregistrement sur fichier

Page générée en 0.053 secondes