[VB.Net] Comment convertir SqlDataReader.GetValues en tableau de string ?

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:

---

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

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:

---

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

---

Code:

---

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.

Citation:

---

Envoyé par Angath

Code:

---

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:

---

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 ;)

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