Discussion :

[mawkli]

Salut tout le monde
bon j'ai un formulaire avec plusieurs textbox,et je veux les remplir par une requete sql,j'ai fais le code suivant :

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
 
            con.Open()
            Dim cm As SqlCommand
            cm.Connection = con
            'cm.CommandType = CommandType.Text
            Dim req = "select  distinct commandes.n_commande,commandes.n_commandeINT,commandes.date_commande,commandes.code_commercial,commandes.code_client,commandes.n_dépôt,détails_commandes.code_produit,détails_commandes.quantité_commandée,détails_commandes.prix_unitaire,détails_commandes.total_prix from commandes inner join détails_commandes on commandes.n_commande=détails_commandes.num_commande where commandes.n_commande= " & txt1.Text & " "
            cm = New SqlCommand(req)
            Dim d1 As SqlDataReader
            d1 = cm.ExecuteReader
            While d1.Read
                txt_1.Text = d1.Item(0)
                t1.Text = d1.Item(1)
                t2.Text = d1.Item(2)
                T4.Text = d1.Item(3)
                T5.Text = d1.Item(4)
                cbo1.SelectedValue = d1.Item(5)
                T7.Text = d1.Item(6)
                T8.Text = d1.Item(7)
                T9.Text = d1.Item(8)
                T3.Text = d1.Item(9)
            End While
 
            d1.Close()
            con.Close()

mais il retourne l'erreur suivant:
la référence d'objet n'est pas définie à une instance d'un objet
merci de repondre très rapide possible

[zooffy]

Sur quel ligne il te donne le message d'erreur ?

As tu vérifier chacun de tes Items ?

@+

[calagan99]

100Francs sur la ComboBox, souvent galere entre value, index et compagnie.
Sinon, ton code semble bon.
Donc a mon avis, la combo ne se voit affecter aucune valeur, et ne retourne donc rien

[SaumonAgile]

100Francs sur la ComboBox, souvent galere entre value, index et compagnie.
Sinon, ton code semble bon.
Donc a mon avis, la combo ne se voit affecter aucune valeur, et ne retourne donc rien

Tenu, mais moi je parie sur un champ vide de la requête.

Tu dois tester si un champ n'est pas nul avant d'y accéder. Pour cela, il y a la méthode :

Code :

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

DataReader.IsDbNull(indexDuChamp)

[Pol63]

j'aurais parié sur un new mais j'ai moins de chances de gagner ...

[Azephel]

Tenu !

==>

Code :

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

1
2
3
4
5
 
Dim cm As SqlCommand 'Manque pas le new ici ? *********************
            cm.Connection = con
            Dim req = "select  distinct commandes.n_commande,commandes.n_commandeINT,commandes.date_commande,commandes.code_commercial,commandes.code_client,commandes.n_dépôt,détails_commandes.code_produit,détails_commandes.quantité_commandée,détails_commandes.prix_unitaire,détails_commandes.total_prix from commandes inner join détails_commandes on commandes.n_commande=détails_commandes.num_commande where commandes.n_commande= " & txt1.Text & " "
            cm = New SqlCommand(req) 'Par contre ici il y en a un ...***********

Vaudrait pas mieux faire

Code :

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

1
2
3
 
            Dim req As String = "select distinct commandes.n_commande, commandes.n_commandeINT, commandes.date_commande, commandes.code_commercial, commandes.code_client, commandes.n_dépôt, détails_commandes.code_produit, détails_commandes.quantité_commandée, détails_commandes.prix_unitaire, détails_commandes.total_prix from commandes inner join détails_commandes on commandes.n_commande=détails_commandes.num_commande where commandes.n_commande= " & txt1.Text & " "
           Dim cm As New SqlCommand(req, con)

???

Perso je pense que ça viendrai de là, non ?