Exportation RecordSet vers un fichier .CSV

Version imprimable

Bonjour,

Je découvre le Visual Basic (d'ailleurs je suis perdu en VB.NET, VBA, VB6 ! Si vous pouviez m'éclaircir se point) et j'ai un projet professionnel, je dois faire l'exportation du contenu d'une table Access vers un fichier csv.

J'ai donc fait la connexion avec ADODB, je fais mon RecordSet et je voudrais donc transmettre le résultat sous .CSV.

J'ai fait des recherches, et j'ai pu voir que certains créer un fichier texte avec le délimiteur puis créer le fichier CSV :calim2:

Je sais aussi qu'il faut utilisé la fonction DoCmd.TransferText, je suis donc vraiment pas loin, mais je sèche, je ne sais pas quoi faire entre mon RecordSet et la fonction.

Convertir en tableau ? Créer un fichier texte intermédiaire ? Le parcourir ?

Voici mon code actuel :

Code:

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Sub Export_CSV()
 
    Ouverture_Connexion_BDD
 
    If Connexion Then
 
        ' Déclaration de la variable contenant le répertoire d'enregistrement
        Dim Chemin As String
 
        ' Execution de la requête
        req.Open "select * from TB_REF_CONV;", cnx
 
        With req
 
            If .EOF Then
                MsgBox "La table <Param1> ne contient aucune donnée.", vbExclamation, "Erreur de traitement"
            Else
                Chemin = ChoixDossier
 
                    'La totalité des entrées présentes dans la table est exportée (sans être supprimée de la table) dans le fichier.
                    'Si une erreur survient lors de l'export
                        'Le message d'erreur est affiché dans un pop-up et l'utilisateur est prévenu que le traitement est interrompu.
 
                    'Do
                       ' MsgBox req("Devise")
                       ' .MoveNext
                    'Loop While Not .EOF
 
 
 
                    ' DoCmd.TransferText acExportDelim, "Export_CSV", req, "C:\April.csv", True
 
                    'DoCmd.TransferText acExportDelim, , req.Record, "C:\April.csv"
 
                    MsgBox "L'export s'est terminé avec succès.", vbInformation, "Opération réussie"
 
                Else
                    MsgBox "Traitement de l'exportation interrompu.", vbExclamation, "Erreur de traitement"
 
                End If
 
            End If
 
        End With
 
        req.Close
        Set req = Nothing
 
 
        Fermeture_Connexion_BDD
 
 
    End If
 
End Sub

La procédure Ouverture_connexion_BDD fonctionne parfaitement ainsi que la fonction ChoixDossier qui retourne bien sous forme de string le choix du répertoire sous lequel faire l'enregistrement du CSV.

Ma requête fonctionne, donc que dois-je faire désormais ?

Merci d'avance

20/08/2013, 16h29
azstar

http://www.developpez.net/forums/d11...-selectionnee/

Loin de moi ne pas vouloir comprendre, mais il y a des choses qui m'échappe comme

Code:

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
Sub ExportCSV()
 
Dim Fd As FileDialog
Dim strChaine As String
 
Dim Plage As Range
 
Dim Ligne As Long
Dim Colonne As Integer
 
'Fenêtre de choix d'emplacement et nom du fichier en sortie
Set Fd = Application.FileDialog(msoFileDialogSaveAs)
 
'Ajout du filtre
Fd.FilterIndex = 10
 
'Sortie si pas de fichier
If Fd.Show = False Then Exit Sub
 
'Plage a trasformer en CSV
Set Plage = Selection
 
'Ouverture du fichier de sortie
Open Fd.SelectedItems(1) For Output As #1
 
'Boucle sur la plage et ajoute les lignes au fichier
For Ligne = 1 To Plage.Rows.Count
    For Colonne = 1 To Plage.Columns.Count
        If strChaine <> "" Then strChaine = strChaine & ";"
        strChaine = strChaine & Plage.Cells(Ligne, Colonne).Value
    Next Colonne
    Print #1, strChaine
    strChaine = ""
Next Ligne
 
'Fermeture du fichier
Close #1
 
MsgBox "Fichier : " & Fd.SelectedItems(1) & " disponible"
 
End Sub

Set Plage = Selection, la variable selection elle sort de nul part ...

20/08/2013, 23h14
tomlev

Citation:

Envoyé par V1p34r

d'ailleurs je suis perdu en VB.NET, VBA, VB6 ! Si vous pouviez m'éclaircir se point

VB6 ça a 15 ans, c'est obsolète (il y a encore des gens qui l'utilisent, mais c'est essentiellement pour maintenir des applications qui avaient été développées dans ce langage)

VBA, c'est Visual Basic pour Applications ; c'est ce qui permet de coder des macros dans Office. C'est très similaire à VB6

VB.NET, sorti il y a un peu plus de 10 ans, est le successeur de VB6. C'est une version de VB un peu modifiée pour fonctionner avec le .NET Framework (également utilisé par d'autres langages comme C#)

Aujourd'hui ça n'a plus vraiment de sens d'utiliser VB6 pour une nouvelle application, il faut utiliser VB.NET. A la rigueur, tu peux utiliser VBA si tu veux coder ton truc directement dans Access ou Excel, mais ce n'est pas le même langage.

Citation:

Envoyé par V1p34r

J'ai donc fait la connexion avec ADODB, je fais mon RecordSet et je voudrais donc transmettre le résultat sous .CSV.

Normalement en VB.NET on n'utilise plus ADODB, mais ADO.NET. Voir ces tutos pour plus de détails :
http://dotnet.developpez.com/articles/ado1/vbnet/
http://plasserre.developpez.com/cour...nnees1#LXVII-B

(ADODB reste disponible pour permettre la compatibilité du code existant, mais il n'est plus recommandé de l'utiliser)
21/08/2013, 09h19
V1p34r

Donc grâce a ton explication, je suis donc sous VBA, je vais faire une recherche ADO.NET quand même.

Mais pour ce qui est de la créer du fichier .CSV, personne pour m'éclairer ?

Bn en faite s'était très con et je me sens con également, voici la solution pour ceux qui tomberont sur mon sujet :ccool:

Code:

1
2
3
4
5
6
7
8
9
10
' Création du fichier et de son contenu
                    Open chemin For Output As #1
 
                        Do
                            ligneCSV = req("Id_Conv") + ";" + req("Devise") + ";" + CStr(req("Euro")) + ";" + CStr(req("USD"))
                            Print #1, ligneCSV
                            req.MoveNext
                        Loop While Not req.EOF
 
                    Close