remplir textbox par une requete

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:

---

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

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

As tu vérifier chacun de tes Items ?

@+

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

Citation:

---

Envoyé par 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

---

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:

---

DataReader.IsDbNull(indexDuChamp)

---

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

Tenu !

==>

Code:

---

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:

---

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 ?

Citation:

---

Envoyé par Azephel

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

---

Bien qu'il m'en coute, je suis tenté d'admettre que tu as raison :mrgreen:

merci azephel tes remarques ont été absulement justes,il a fonctionné ,sauf que le combo n'as pas rempli,de toute façon merci bcp,

Mawkli : De rien ^^

SaumonAgile : Je t'envoi l'adresse pour m'envoyer les 100F :haha: ;)

donc je n'avais pas tout a fait tort sur la combo...
Degouté de ne pas avoir vu le "new", quoi que vu qu'il etait absent c'est normal ;)