Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bonjour,
Créer une requete pour n'afficher que les données qui t'intéressent puis exporter le résultat à l'aide de la fonction suivante : //users.skynet.be/accesshome/ah_fichiers_generertxt.htm
"Dave" a écrit dans le message de news: 431c85d0$0$7856$ | Bonjour, | | Je souhaiterais lire une table dans access jusqu'a la fin et ecrire les | données qui m'interresse dans | un fichier texte | | Merci de votre aide pour l'exemple | | Bonne journée | |
Bonjour,
Créer une requete pour n'afficher que les données qui t'intéressent
puis exporter le résultat à l'aide de la fonction suivante :
//users.skynet.be/accesshome/ah_fichiers_generertxt.htm
"Dave" <topspam@topspam.us> a écrit dans le message de news:
431c85d0$0$7856$8fcfb975@news.wanadoo.fr...
| Bonjour,
|
| Je souhaiterais lire une table dans access jusqu'a la fin et ecrire les
| données qui m'interresse dans
| un fichier texte
|
| Merci de votre aide pour l'exemple
|
| Bonne journée
|
|
Créer une requete pour n'afficher que les données qui t'intéressent puis exporter le résultat à l'aide de la fonction suivante : //users.skynet.be/accesshome/ah_fichiers_generertxt.htm
"Dave" a écrit dans le message de news: 431c85d0$0$7856$ | Bonjour, | | Je souhaiterais lire une table dans access jusqu'a la fin et ecrire les | données qui m'interresse dans | un fichier texte | | Merci de votre aide pour l'exemple | | Bonne journée | |
Eric
Bonjour,
...
Je souhaiterais lire une table dans access jusqu'a la fin et ecrire les données qui m'interresse
C'est à dire, certains champs et/ou certains enregistrements ? ci c'est le cas, faire au préalable une requête.
dans un fichier texte
Pour l'exemple, une requête extrait les champs voulus pour un critère donné. La requête est sauvegardée sous RQDAVE. Les enregistrements sont copiés dans un fichier texte.
Sub zz() Dim rst As DAO.Recordset, chaine As String Dim intN As Integer, Chemin As String Dim f As Integer f = FreeFile Chemin = CurrentProject.Path Set rst = CurrentDb.OpenRecordset("rqdave") intN = rst.Fields.Count Open Chemin & "TestEcriture.txt" For Output As f While Not rst.EOF For i = 0 To intN - 1 chaine = chaine & rst(i) & ";" Next i chaine = Left(chaine, Len(chaine) - 1) Print #f, chaine chaine = "" rst.MoveNext Wend Close f rst.Close Set rst = Nothing End Sub
PS : Voir aussi si la commande : OutputTo ne conviendrait pas à ton besoin
Merci de votre aide pour l'exemple
Bonne journée
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
...
Je souhaiterais lire une table dans access jusqu'a la fin et ecrire les
données qui m'interresse
C'est à dire, certains champs et/ou certains enregistrements ?
ci c'est le cas,
faire au préalable une requête.
dans
un fichier texte
Pour l'exemple, une requête extrait les champs voulus pour un
critère donné. La requête est sauvegardée sous RQDAVE.
Les enregistrements sont copiés dans un fichier texte.
Sub zz()
Dim rst As DAO.Recordset, chaine As String
Dim intN As Integer, Chemin As String
Dim f As Integer
f = FreeFile
Chemin = CurrentProject.Path
Set rst = CurrentDb.OpenRecordset("rqdave")
intN = rst.Fields.Count
Open Chemin & "TestEcriture.txt" For Output As f
While Not rst.EOF
For i = 0 To intN - 1
chaine = chaine & rst(i) & ";"
Next i
chaine = Left(chaine, Len(chaine) - 1)
Print #f, chaine
chaine = ""
rst.MoveNext
Wend
Close f
rst.Close
Set rst = Nothing
End Sub
PS : Voir aussi si la commande : OutputTo ne conviendrait pas à ton besoin
Merci de votre aide pour l'exemple
Bonne journée
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Je souhaiterais lire une table dans access jusqu'a la fin et ecrire les données qui m'interresse
C'est à dire, certains champs et/ou certains enregistrements ? ci c'est le cas, faire au préalable une requête.
dans un fichier texte
Pour l'exemple, une requête extrait les champs voulus pour un critère donné. La requête est sauvegardée sous RQDAVE. Les enregistrements sont copiés dans un fichier texte.
Sub zz() Dim rst As DAO.Recordset, chaine As String Dim intN As Integer, Chemin As String Dim f As Integer f = FreeFile Chemin = CurrentProject.Path Set rst = CurrentDb.OpenRecordset("rqdave") intN = rst.Fields.Count Open Chemin & "TestEcriture.txt" For Output As f While Not rst.EOF For i = 0 To intN - 1 chaine = chaine & rst(i) & ";" Next i chaine = Left(chaine, Len(chaine) - 1) Print #f, chaine chaine = "" rst.MoveNext Wend Close f rst.Close Set rst = Nothing End Sub
PS : Voir aussi si la commande : OutputTo ne conviendrait pas à ton besoin
Merci de votre aide pour l'exemple
Bonne journée
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr