ecriture des données dans un fichier à accès directe

Question

Slt,en faite je suis entrain de faire une application de gestion des &#233;tudiants j'ai  un probl&#232;me je voulais  que l'utilisateur fait la saisie des donn&#233;es concernant des &#233;tudiants
et puis je les ferais  stock&#233;es dans un fichier &#224; acc&#233;s directe sous forme d'enregistrement
svp aidez-moi...
voici  mon code:

Private Type Etudiant


    Num&#233;ro As String * 10
    Nom As String * 30
    Pr&#233;nom As String * 20
    Classe As String * 10
    Mati&#232;re As String * 10
    Note As Integer
    End Type
      Dim Enr As Etudiant
Private Sub CmdEntrer_Click()



Dim i As Integer


 Open "C:\GestEtudiant.txt" For Random As 1 Len = Len(Enr)
    
         For i = 1 To 10
            
            Enr.Num&#233;ro = Text1
            Enr.Nom = Text2
            Enr.Pr&#233;nom = Text3
            Enr.Classe = Text4
            Enr.Mati&#232;re = Text5
            Enr.Note = Text6
          Put 1, i, Enr
        Next
Close 1


End Sub

cs_pluplu · Answer

Avec cette proc&#233;dure tu cr&#233;e 10 enregistrements les m&#234;mes &#224; chaque appel &#224; celle-ci

Private Sub CmdEntrer_Click()
Dim i As Integer 
 Open "C:\GestEtudiant.txt" For Random As 1 Len = Len(Enr)
    
         For i = 1 To 10
            
            Enr.Num&#233;ro = Text1
            Enr.Nom = Text2
            Enr.Pr&#233;nom = Text3
            Enr.Classe = Text4
            Enr.Mati&#232;re = Text5
            Enr.Note = Text6
          Put 1, i, Enr
        Next
Close 1


End Sub

Avec celle-ci tu cr&#233;e un enregistrement &#224; chaque appel &#224; la proc&#233;dure

Private Sub CmdEntrer_Click()
Dim i As Integer 
 Open "C:\GestEtudiant.txt" For Random As 1 Len = Len(Enr)
 With Enr
           .Num&#233;ro = Text1.text
           .Nom = Text2.text
           .Pr&#233;nom = Text3.text
           .Classe = Text4.text
           .Mati&#232;re = Text5.text
           .Note = Text6.text
 End With         
Put 1, 1, Enr
Close 1


End Sub

Pascal Lauren&#231;on

Ecriture des données dans un fichier à accès directe

1 réponse

Discussions similaires