génération d'un ficier csv à partir d'un résultat de requête
Bonjour ,
J'utilise le code suivant pour générer un fichier CSV à partir du résultat d'une requête.
L'idée est de parcourir le reader et écrire dans le fichier.
est ce que vous avez une idée plus optimale, car pour les fichiers de grandes tailles (49M), ça nécessite beaucoup de temps.
Merci
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
| Dim vTab As String
vTab = vbTab
Dim sw As StreamWriter
sw = New StreamWriter(Server.MapPath("./TempReports/263.CSV"), False, System.Text.Encoding.Unicode)
Dim Requete As String = "SELECT ...."
comm = New OracleCommand(Requete, ConnExcel)
vReader = comm.ExecuteReader
.....
While vReader.Read
For j = 1 To NombreColonnes - 1
If Not IsDBNull(vReader(j)) Then
sw.Write(Trim(vReader(j)) & vTab)
Else
sw.Write("" & vTab)
End If
Next
End While
vReader.Close()
sw.Close()
ConnExcel.Close()
ConnExcel.Dispose()
End While |