cs_MissJo
Messages postés43Date d'inscriptiondimanche 22 février 2004StatutMembreDernière intervention10 janvier 2005
-
11 mai 2004 à 21:29
cs_lim
Messages postés329Date d'inscriptionjeudi 20 novembre 2003StatutMembreDernière intervention10 mai 2014
-
12 mai 2004 à 14:39
Coucou !!
Voila je suis un peu perdue , je voudrais savoir comment on peut exporter des données d'une table Access vers un fichier .cvs en vb?
Je sais récuperer les données mais je sais pas comment les mettre dans un fichier.cvs.
cs_lim
Messages postés329Date d'inscriptionjeudi 20 novembre 2003StatutMembreDernière intervention10 mai 20147 12 mai 2004 à 14:39
Salut
Fichier .csv : les champs textes sont séparés avec des ;
voici deux fonctions qui peuvent t'aider
fichier = Nom du fichier csv
text = chaine de caractère : 10;12;text
'Fonction qui crée un fichier texte dans lequel on rajoute des lignes
Public Sub fichierTexte(ByVal fichier As String, ByVal texte As String)
Dim w As StreamWriter
'Ouverture du fichier
w = File.AppendText(fichier)
'Ajout de la chaîne de caractères
Log(texte, w)
'Ferme le fichier
w.Close()
End Sub
'Fonction qui ajoute une chaîne de caractères à un fichier
Private Sub Log(ByVal logMessage As String, ByVal w As TextWriter)
'Ecriture de la chaîne de carctères dans le fichier
w.Write(logMessage)
'On ajoute au fichier la nouvelle ligne de texte
w.Flush()
End Sub