Discussion :

[de.bo]

j'ai un tableau, dans ce tableau j'ai plusieurs variable exemple :
nom d'une personne ,la date 'le jour et un compteur incrémental alors je voudrais créer un enregistrement sous forme de fichier ligne de texte ou de tableau pour récupérer ces infos à la demande par la suite comment puis je faire y a t'il une commande ou une fonction existante toute prête
qui répondrais à ma demande.
merci pour les solutions .
A+

[Nektanebos]

je crois pas tu dois soit enregistré dans un fichier séquentielle ou dans un fichier a acces direct

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
open "fichier" for append as #1
write #1, varnom,varprenom 'etc
close

quand tu veux récuperer tu fais open "fichier" for input as #1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
input #1, varnom,varprenom 'etc
close

pour les fichier a acces direct c'est un peu plus compliquer

cherche de la doc j'ai pas envie de tt recopier :-p

[Maxence HUBICHE]

tu peux peut-être aussi faire, via les ADO, un reccordset fichier. Je sais que c'est faisable, mais je me souviens pas...comment.


Si ce sont des informations qui n'ont pas pour nécéssité de stocker une série d'informations, tu peux aussi t'orienter vers la saisie des informations dans la base de registre (voir SaveSetting et GetSetting)

[SpaceFrog]

Zemenasse propose une solution simple car enregistrer un recordset est très simple, cependant il faut en maitriser le reste de l'utilisation...

Pourquoi ne pas essayer un fichier random ?
Dans ton tableau, chaque ligne peut être contenu dans un élément de taille fixe.
Crée un type LigneTableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Type LigneTableau
Mom as string * 30
Prénom as string * 30
date as date
....
end type

Dans lequel tu reprends chaque élément de ton tableau (colonne)

puis pour sauvegarder tu fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim FichierSauvegarde as string
FichierSauvegarde = App.path & "\RepSave\Sauvegarde.ext"
pos = 1
Open FichierSauvegarde For Random As #1 Len = Len(EnrMemo)
for ligne = 1 to maxlignetableau
'ici tu scannes ton tableau en mettant chaque ligne dans le LigneTableau
'puis tu enregistres le ligne dans le fichier random à la position pos
Put #1, pos, EnrMemo
pos = pos +1
next ligne
close #1

Tu aboutis à un fichier qui a chaque position contient une ligne de ton tableau

L'idée est là à toi de personaliser ...

[Maxence HUBICHE]

Caa me travaillais de ne pas retrouver comment ca marchait le truc des enregistrement fichier. ALors j'ai pondu un peu de code.
Je te donne ce que j'ai fait ci-dessous... si ca t'intéresse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
'Pour créer le fichier
Sub RecordsetADODeconnecteCreate()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Fields.Append "Nom", adChar, 30
    rs.Fields.Append "Prenom", adChar, 30
    rs.Fields.Append "Date", adChar, 30
    rs.Open
    rs.Save "c:\stage\monrs", adPersistADTG         'Enregistrement propriétaire
    'rs.Save "c:\stage\monrs.xml", adPersistXML      'Enregistrement XML
    rs.Close
    Set rs = Nothing
End Sub
 
'Pour écrire des informations
Sub RecordsetADODeconnecteWriteIn()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "c:\stage\monrs"
    rs.AddNew Array("Nom", "Prenom", "Date"), Array("Durand", "Lucette", Date)
    'on aurait pu faire :
    'rs.AddNew
    'rs("Nom") = "Durand"
    'rs("Prenom") = "Lucette"
    'rs("Date") = Date
    rs.Update
    rs.Save ', adPersistXML    <= est à ajouter si sauvegarde au format 
    rs.Close
    Set rs = Nothing
End Sub
 
'Pour récupérer des informations
Sub RecordsetADODeconnecteRead()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "c:\stage\monrs"
    MsgBox rs("Nom") & vbCrLf & rs("Prenom") & vbCrLf & rs("Date")
    rs.Close
    Set rs = Nothing
End Sub