Discussion :

[Angath]

Bonjour

Je récupère des enregistrements stockés dans un serveur SQL à l'aide d'un DataReader. Je dois ensuite écrire les résultats dans un fichier au format csv.

Pour éviter de faire une boucle qui écrit chaque colonne dans le fichier en insérant des virgules, j'aimerais utiliser la méthode Join de la classe String.

J'ai donc fait ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim myConn As New SqlConnection(My.Settings.ConnectionString)
myConn.Open()
 
Dim result As Integer
Dim values(246) As Object
Dim myCommande As New SqlCommand("Select * From ...", myConn)
Dim myReader As SqlDataReader
myReader = myCommande.ExecuteReader
 
While myReader.Read
     result = myReader.GetValues(values)
     strToWrite = String.Join(",", values)
     .... 'Ecriture de strTowrite dans fichier
End While
...

Bien entendu ca plante au niveau du String.Join, mon tableau étant un tableau d'object et String.Join attend un tableau de String.

Comment faire ? Y a t'il un moyen de convertir le tableau renvoyé par le dataReader en tableau de String ?

Lien sur la méthode SqlDataReader.Getvalues : http://msdn2.microsoft.com/fr-fr/lib...getvalues.aspx

[neguib]

Je ne pense pas que ton souci soit spécifique d'ADO.Net
Nous verrons peut-être à deplacer ton sujet plus tard à la place idoine
Bon peux-tu essayer dans un premier temps ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    '...
    While myReader.Read
       result = myReader.GetValues(values)
       strToWrite = ConvertToString(values)
       'écriture de strToWrite dans fichier
    End While
    '...
 
Private Function ConvertToString(ByVal objets As Object()) As String
   Dim strCopy(objets.Length-1) As String
   Array.Copy(objets,strCopy,objets.Length)
   Return String.Join(",", strCopy)
End Function

[Angath]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
....        
Dim result As Integer
Dim strTowrite As String
Dim values(246) As Object
 
        While myReader.Read
            result = myReader.GetValues(values)
            strToWrite = ConvertToString(values)
        End While
...
    Private Function ConvertToString(ByVal objets As Object()) As String
        Dim strCopy(objets.Length - 1) As String
        Array.Copy(objets, strCopy, objets.Length - 1)
        Return String.Join(",", strCopy)
    End Function

J'obtiens l'exeption suivante lors de l'execution du Array.copy :

Impossible d'effectuer au moins un cast d'élément du tableau source dans le type tableau de destination.

Avec ma requete de test, je récupère un tableau dans lequel il y a un objet DateTime, tous les autres élements sont des objets Integer.

[neguib]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
....        
Dim result As Integer
Dim strTowrite As String
Dim values(246) As Object
 
        While myReader.Read
            result = myReader.GetValues(values)
            strToWrite = ConvertToString(values)
        End While
...
    Private Function ConvertToString(ByVal objets As Object()) As String
        Dim strCopy(objets.Length - 1) As String
        Array.Copy(objets, strCopy, objets.Length - 1)
        Return String.Join(",", strCopy)
    End Function

J'obtiens l'exeption suivante lors de l'execution du Array.copy :

Impossible d'effectuer au moins un cast d'élément du tableau source dans le type tableau de destination.

Avec ma requete de test, je récupère un tableau dans lequel il y a un objet DateTime, tous les autres élements sont des objets Integer.

Arf dommage bon Array.Copy ne fonctionne effectivement que sur des cast automatiques evidents; tant pis il te faudra donc tout de même itérer avec un For Each dans la méthode exemple ConvertToString

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
    Private Function ConvertToString(ByVal objets As Object()) As String
        Dim strCopy(objets.Length - 1) As String
        Dim o As Object
        Dim i As Integer = 0
        For Each o In objets
            strCopy.SetValue(o.ToString(),i)
            i += 1
        Next
        Return String.Join(",", strCopy)
    End Function

Si tu veux un format d'affichage particulier pour la date, il te faudra ajouter une conditionnelle au sein du For Each pour un objet de type DateTime

[Angath]

Ca marche bien

Dommage que le array.copy ne sache pas faire.
C'est déjà beaucoup plus rapide, que ma boucle qui parcoure toute les colonnes et rajoute les virgules une à une.

Merçi Neguib