exporter résultat d'une reqûete dans un *.csv, problème d'accentRésolu

Question

bonjour, voilà j'ai trouvé un code permettant à partir d'une requête SQl de remplir un fichier CSV. Cependant, comme toujours, les accents posent problème :


        Dim StrSQL As String
        Dim enreg As SqlDataReader

        'sauv client
        StrSQL = "SELECT * from matable"
        enreg = reader(StrSQL) 'fct qui renvoi un reader rempli
        If enreg.HasRows Then
            Dim CSVfile As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Sauvegarde	est_1.csv"
            Dim sw As New StreamWriter(CSVfile, True, New _ System.Text.UTF8Encoding)
            Dim I As Integer
            Dim iCol As Integer
            iCol = enreg.FieldCount
            sw.Write("N°")
            sw.Write(";")
            sw.Write("Nom")
            sw.Write(";")
            sw.Write("Prénom")
            sw.Write(";")
            sw.Write("Adresse")
            sw.Write(";")
            sw.Write("Code Postal")
            sw.Write(";")
            sw.Write("Ville")
            sw.Write(";")
            sw.Write("Teléphone")
            sw.Write(";")
            sw.Write("Fax")
            sw.Write(";")
            sw.Write("E-Mail")
            sw.Write(";")
            sw.Write("Test")
            sw.Write(sw.NewLine)
            Do While enreg.Read()
                Dim Sep As String = ""
                For I = 0 To iCol - 1
                    sw.Write(Sep)
                    If Not Convert.IsDBNull(enreg(I)) Then
                        sw.Write(Trim(enreg.GetValue(I).ToString))
                    End If
                    sw.Write("")
                    Sep = ";"
                Next
                sw.Write(sw.NewLine)
            Loop
            sw.Close()
            MsgBox("Fichier créé avec succès !!", MsgBoxStyle.Information + vbOKOnly, "Exportation")
        End If

j'ai essayé de changer : System.Text.UTF8Encoding en System.Text.unicodeencoding
les accents apparaissent mais le séparateur aussi (plus de champ par cellule). Or avec UTF8, chaque chose est dans sa cellule.
Pareil avec System.Text.UTF32Encoding
Et avec System.Text.ascciiencoding, les accents sont remplacés par "?" mais les champs dont dans leurs cellules.

Quelqu'un pourrait me dire comment règler ce problème ?
merci

AlKatou · Accepted Answer

salut,

regarde ceci, cela règlera peut être ton problème


    EXPORT SQL VERS CSV

AlKa

cs_lilj · Answer

Cela permet-il tout de même de donner des noms précis aux colonnes ? De plus, il me semble qu'en VB10, il y a plus de recordset.

AlKatou · Answer

Salut,

pour ce qui est des noms précis de colonnes, il te faut simplement utiliser des alias de champs dans ta requête SQL à l'aide du mot-clé As.

exemple : SELECT DateNaiss AS [Date de naissance] FROM ....
          L'entête de la colonne sera "Date de naissance"

maintenant, pour ce qui est de l'existence ou non du recordset, j'en sais rien car je n'utilise pas VB10.

mais à la base, le recordset fait partie d'une bibliothèque COM sous le nom de Microsoft DAO à ajouter en référence. recherche dans l'aide quelque chose du genre "Ajouter une référence".

si tout ce passe bien, tu trouvera la définition des recordset dans l'explorateur d'objets.

bonne continuation.


Alka

cs_lilj · Answer

Ok merci à toi

cs_lilj · Answer

PLus simple encore, en reprenant mon code :
il faut remplacer New system.text.utf8encoding par :
Encoding.GetEncoding(1252)

Exporter résultat d'une reqûete dans un *.csv, problème d'accent

5 réponses

Votre réponse

Discussions similaires