Discussion :

[callo]

Salut

Je viens de commencer VB.Net. Je désire remplir une combobox avec les données d'une requête. Je dois afficher dans la combo les prénoms mais en fait c'est l'id qui doit être la valeur. Mais je suis bloqué. Voici mon code. Si vous pouvez m'aider à le terminer ça me ferait plaisir car ça ne marche pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'appel de la procédure de connection au serveur
'son code se trouve dans un module
        connex()
        Dim MyCommand As SqlCommand = New SqlCommand("SELECT * FROM chercheurs ORDER BY prenom", cnx)
 
        Dim MyReader As SqlDataReader = MyCommand.ExecuteReader
 
        With Cbo_User
 
            .ValueMember = MyReader.GetInt32(0)
            .DisplayMember = MyReader.GetString(2)
 
 
        End With

Merci d'avance pour vos apports

[neguib]

Bonjour callo

Utilisation des tags:
Afin de faciliter la recherche et la navigation sur ce forum, nous avons mis en place un système de tags (Mots clés entre crochets dans les titres des messages). Ces tags ont pour but de déterminer de manière immédiate le langage en question : ...

voir > http://www.developpez.net/forums/viewtopic.php?t=326088
Soyez rigoureux quant aux respects des règles du forum, elles vous garantissent également les réponses les plus appropriées à résoudre votre souci, tout en veillant à ne pas incommoder inutilement les professionnels qui donnent benevolement de leur compétence à vous répondre. Veillez à vous mettre en règle en éditant votre post afin de modifier votre titre en conséquence. Je vous remercie de votre attention à maintenir le forum agréable et efficace.
(Bouton en haut à droite du premier post de ce thread)
Cordialement

[del-dongo]

Procède ainsi

Code :

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

1
2
3
4
5
6
7
 
SqlDataAdapter sda = new SqlDataAdapter("SELECT * FROM chercheurs ORDER BY prenom", cnx);
DataTable dt = new DataTable();
sda.Fill(dt);
Cbo_User.DataSource = dt;
Cbo_User.DisplayMember = "user_firstName";
Cbo_User.ValueMember = "user_id";

[callo]

Merci à vous deux neguib et del-dongo. ça marche. Mais si je veux utiliser le sqldatareader comment dois-je m'y prendre ?

[graphicsxp]

Salut,
Ceci est une petite fonction que j'ai écris pour mes besoins. Elle retourne un array d'object, que tu peux utiliser pour remplir ta combo en utilisant la methode AddRange.
La fonction utilise un DataReader. Tu lui passes en arguments ta chaine SQL, un booleen ValueMember qui détermine si tu as un ValueMember et un DisplayMember ou seulement un DisplayMember, un booleen BlankRow qui determine si tu rajoutes une ligne vide a la fin de la liste (pratique pour ne rien selectionner dans la combo) et enfin le type de requete (stored procedure, text...). Petite précision, dans ta requete, le champ que tu veux utiliser en DisplayMember doit etre en premier et le champ a utiliser en ValueMember doit etre en second.
Tu peux la modifier, ou t'en inspirer pour tes propres besoins.
@+

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
  Public Function GetData(ByVal SQL As String, ByVal ValueField As Boolean, ByVal BlankRow As Boolean, Optional ByVal Type As SQLType = SQLType.StoredProcedure) As Object()
            'ValueField - set TRUE if a value field is required
            'BlankRow - set TRUE if want a blank row at the start of the object array
 
            'Returns an array of objects containing the SQL data
            'Uses a SQLDataReader for speed
            Try
                Dim returnData() As Object
                Dim count As Integer = 0
 
               'm_cmd est de type SqlCommand, c'est un membre privé de 
               'ma classe. tu dois le changer en variable local si tu veux l'utiliser
                With m_cmd
                    .CommandText = SQL
                    .Connection = m_con
                End With
 
                m_cmd.CommandType = GetSQLType(Type)
 
                Dim myReader As SqlDataReader = m_cmd.ExecuteReader()
                'Display is the first field 
                'Value is the second field 
 
                If myReader.HasRows Then
 
                    If BlankRow Then
                        ReDim Preserve returnData(count)
                        Dim EmptyRow As New DataRecord
                        EmptyRow.Display = ""
                        returnData(count) = EmptyRow
                        count += 1
                    End If
 
                    Do While myReader.Read()
                        ReDim Preserve returnData(count)
                        Dim currentData As New DataRecord
 
                        currentData.Display = myReader.GetValue(0).ToString
 
                        If ValueField Then
                            currentData.Value = myReader.GetValue(1)
                        End If
 
                        returnData(count) = currentData
                        count += 1
                    Loop
                End If
                myReader.Close()
 
                Return returnData
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
 End Function

[callo]

graphicsxp, merci pour le tuyau. Mais encore une petite question . Comment obtient-on le recordcount d'une requête de sélection en VB.Net ?

[graphicsxp]

Comme tu peux le voir dans mon code, j'utilise un SQLDataReader et le count se fait à la main (variable Count).

Mais normalement si tu veux savoir combien tu as récupéré d'enregistrements tu fais simplement tonDataTable.rows.Count() ou sinon tu peux aussi le récupérer depuis ta requete en utilisant SELECT COUNT...