Discussion :

[badr007]

Bonjour tout le monde

j'essaye de remplir un combobox avec des données de la base de données selon la valeur choisie dans un autre combobox (evenement selectindexchange) avec le code suivant :

Code vb.net :

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
 If ass_cmb_custmr.Text = "PSA" Then
 
            Try
                Dim sqlRequete = ""
                Dim objDataAdapter As OleDb.OleDbDataAdapter
                Dim objDataSet As New DataSet()
                Dim objDataTable As DataTable
                Dim objDataRow As DataRow
 
                conn.Open()
 
               sqlRequete = "SELECT nom_projet FROM projets where id_client=1"
                objDataAdapter = New OleDb.OleDbDataAdapter(sqlRequete,conn)
                objDataAdapter.Fill(objDataSet)
 
                Dim i As Integer
                If (objDataSet.Tables.Count > 0) Then
                    objDataTable = objDataSet.Tables(0)
 
 
                    For i = 0 To objDataTable.Rows.Count - 1
                        objDataRow = objDataTable.Rows(i)
                        Dim psg As String
                        ass_cmb_projet.Items.Add(objDataRow("nom_projet"))
 
 
                    Next
 
 
                End If
                conn.Close()
            Catch ex As Exception
                MessageBox.Show("chargement des projets assemb: " & ex.Message)
            End Try
 
 
 
        ElseIf ass_cmb_custmr.Text = "RSA" Then .........

quand j'instancié le combobox avec du code genre new combobox ca marche tres bien , mais quand jutilise celui de loutil graphique ca me donne l'erreur en question.

merci pour votre aide

[methylene]

Bonjour, sur quelle ligne avez-vous l'erreur ?

L'erreur que vous avez mis en titre correspond en effet à une non instanciation d'un contrôle.

[Pol63]

à vu de nez je dirais que l'erreur est sur la ligne

Code :

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

 ass_cmb_projet.Items.Add(objDataRow("nom_projet"))

si la colonne nom_projet n'existe pas ca peut planter

au passage à la place du for i tu peux utiliser un for each qui te donne directement l'instance sans aller la rechercher avec l'index

[methylene]

Au passage j'avais pas vu tout à l'heure, mais faut pas abuser :

Code :

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

Dim psg As String

Code :

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

Dim om As String

!!!

Quand au For Each :

Code :

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

1
2
3
4
5
Dim dtrow As DataRow
 
For Each dtrow in objDataTable.Rows
 
Next

Et Pol63 dois avoir raison sur la ligne qui merde, le reste étant bien instancié.
Tu as surement dû oublier de l'ajouter à ta datatable.

[badr007]

salut

merci pour vos réponses


Pour gagner du temps et avancer dans mon projet j'ai passé par l'instanciation du combobox ce matin manuellement (via le code) , mais ca n'empêche de comprendre la cause du problème pour mes futurs applications .

du coup j'ai crée un nouveau form pour tester les solutions proposées , surprise : mon code marche très bien sans le rectifier , à partir d'ici la discussion devient intéressante pourquoi ca marche pas dans le premier form de mon projet et ça marche dans un autre ? !?

[Pol63]

j'ai passé

aïe ca pique les yeux ...



si ton instanciation est manuelle, ca veut dire qu'elle fait trop tard

le message d'erreur que tu as signifie qu'une de tes variables vaut nothing
et nothing.items (ou nothing.quelquechose) n'est pas possible et génère une erreur