récupérer valeurs d'une table

Bonjour !

J'ai créé une table dans My SQl server et je voudrais récupérer les valeurs de cette table à l'aide d'un select dans mon code vb.net.

La table est construite selon le modéle suivant :

Code:

---

1 2	"1,2,3,4,5,6,7,8,9,10"

---

voici mon code en vb.net :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Public ReadOnly Property IsValid() As Boolean Get   Dim Cn As New ConnectionClass Dim da As New SqlDataAdapter("SELECT * FROM Matable", Cn.Connexion)   Dim ds As New DataSet Dim ArrNombre As New ArrayList   da.Fill(ds)   For Each dr As DataRow In ds.Tables(0).Rows ArrNombre.Add(dr(0)) Next   If ArrNombre.Count > 0 Then Dim chaine As String() = Explode(",", ArrNonmbre.ToString)   End If

---

Je ne sais pas si je suis dans la bonne voie.

Merci de votre aide

Citation:

---

Envoyé par misscricri

La table est construite selon le modéle suivant :

Code:

---

1 2	"1,2,3,4,5,6,7,8,9,10"

---

---

Euh... c'est un modèle de données ça ? :koi:
Que représente ce texte ?

ce n'est pas un modèle de données. Mon champ est une chaîne de caractères suivie de virgules.

OK

Tu veux obtenir toutes les valeurs de toutes les lignes de la table ?

oui ! il n'y a qu'une ligne

Je veux la récupérer sous forme de tableau

S'il n'y a qu'une ligne, avec une seule colonne qui t'intéresse, ça ne mérite vraiment pas d'utiliser un DataSet et un DataAdapter...

Tu peux récupérer la valeur comme ça :

Code:

---

1 2 3 4 5 6

Dim Cn As New ConnectionClass Using command = Cn.Connexion.CreateCommand() command.CommandText = "SELECT la_colonne FROM Matable" Dim s As String = DirectCast(command.ExecuteScalar(), String) Dim values As String() = s.Split(",") End Using

---

Merci, c'est exactement ce que j'ai fais

Bonne soirée

N'oublie pas le bouton :resolu:...