Discussion :

[misscricri]

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 :

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

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

voici mon code en vb.net :

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

[tomlev]

La table est construite selon le modéle suivant :

Code :

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

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

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

[misscricri]

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

[tomlev]

OK

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

[misscricri]

oui ! il n'y a qu'une ligne

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

[tomlev]

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 :

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

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