Afficher le résultats dans des champs de texte

**mehdi.cheddani** · 30/03/2013, 12h50

Bonjour,
Voici mon ciode:

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
    Dim cn As New OleDbConnection
 
    Private Sub Saisie_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cn.ConnectionString = "Provider=Microsoft.ACE.OLEDb.12.0;Data source=C:\Users\Administrator\Desktop\BD sale.accdb"
        Try
            cn.Open()
            Dim cmd As New OleDbCommand
            Dim dr As OleDbDataReader
            cmd.Connection = cn
            cmd = New OleDbCommand("select N_ordre from sale;", cn)
            dr = cmd.ExecuteReader
            While dr.Read
                ComboBox1.Items.Add(dr("N_ordre"))
            End While
            dr.Close()
            cn.Close()
        Catch ex As Exception
        End Try
 
 
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        cn.ConnectionString = "Provider=Microsoft.ACE.OLEDb.12.0;Data source=C:\Users\Administrator\Desktop\BD sale.accdb"
        Try
            cn.Open()
            Dim cmd As New OleDbCommand
            Dim dr As OleDbDataReader
            cmd.Connection = cn
            cmd = New OleDbCommand("select Sous_quartier,Cil,Quartier,Nom_Client,Avis_acces,Porte,Rue,N_compteur,N_serie,Dernier_index_lu,Tp_cal,Marque from sale where N_ordre='" + ComboBox1.SelectedItem.ToString + "';", cn)
            dr = cmd.ExecuteReader
            While dr.Read
                TextBox1.Text = dr("Sous_quartier")
                TextBox2.Text = dr("Cil")
                TextBox3.Text = dr("Quartier")
                TextBox4.Text = dr("Nom_Client")
                TextBox5.Text = dr("Avis_acces")
                TextBox6.Text = dr("Porte")
                TextBox7.Text = dr("Rue")
                TextBox8.Text = dr("N_compteur")
                TextBox9.Text = dr("N_serie")
                TextBox10.Text = dr("Dernier_index_lu")
                TextBox11.Text = dr("Tp_cal")
                TextBox12.Text = dr("Marque")
            End While
            dr.Close()
        Catch ex As Exception
        End Try
        cn.Close()

des propositions?

**rv26t** · 30/03/2013, 13h24

Bonjour,

Envoyé par mehdi.cheddani

des propositions?

Utilise les requêtes paramètrées.

Envoyé par mehdi.cheddani

Code :

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

1
2
3
4
5
6
cmd = New OleDbCommand("select Sous_quartier,Cil,Quartier,Nom_Client,Avis_acces,Porte,Rue,N_compteur,N_serie,Dernier_index_lu,Tp_cal,Marque from sale where N_ordre='" + ComboBox1.SelectedItem.ToString + "';", cn)
dr = cmd.ExecuteReader
While dr.Read
    TextBox1.Text = dr("Sous_quartier")
    TextBox2.Text = dr("Cil")
    '...

Je présume que N_ordre est ta clé primaire, donc inutile de faire un while. Par contre si ce n'est pas ta clé primaire, tu risques d'avoir plusieurs enregistrements retournés et avec le While seul le dernier sera affiché.

Sinon Quel est le problème ? Cela fonctionne pas ? Tu as un message d'erreur ?

A+, Hervé.

**mehdi.cheddani** · 30/03/2013, 13h28

Merci d'avoir répondu.
En fait ce qui me tracasse c'est que j'ai rien j'arrive de récupérer le N_Ordre depuis la table mon combobox est bel et bien rempli mais ma deuxième requête n'abouti pas et je tiens à préciser que N_Ordre n'est pas une clé et est ce que si en le rendant clé ça devrait résoudre mon problème.

**rv26t** · 30/03/2013, 13h56

Suis pas à pas avec le deboggeur
et met un

Code :

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

            MessageBox.Show(ex.Message)

dans le catch

**mehdi.cheddani** · 31/03/2013, 13h32

Bonjour,
je reviens vers vous j'ai suivi votre conseil et en fait le pas à pas m a indiqué que le programme saute directement à l’évènement de l'exception et la je commence à péter un câble.
Merci.

**Sankasssss** · 31/03/2013, 13h55

Bonjour,

il ne faut jamais faire :

Code :

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

1
2
        Catch ex As Exception
        End Try

Car de cette manière, si votre code plante vous n'en serez jamais averti.

Mettez ceci :

Code :

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

1
2
3
        Catch ex As Exception
            MessageBox.Show("Erreur lors du rapatriement des données : " & ex.ToString() )
        End Try

Et dite nous quelle est l'erreur retournée.

**mehdi.cheddani** · 31/03/2013, 13h58

c'est exactement ce que j'ai fait j'ai affiché un message dans la section catch exception est quand j'exécute c'est bel et bien le message qu'il y a dans cette section qui s'affiche, et donc

**Sankasssss** · 31/03/2013, 14h13

J'avais sauté le fait que rv26t vous avait déja demandé cela.

Mais vous n'avez toujours pas donné le message en question, quelle est l'exception? (le texte marqué dans ex.ToString )

**mehdi.cheddani** · 31/03/2013, 14h23

je m'excuse de vous avoir embêté un dimanche mais c'est que ça me fout une de ses rages.
Bon le message de l'exception dit que:
Aucune valeur donnée pour un ou plusieurs des paramètres requis.
Merci beaucoup.

**Sankasssss** · 31/03/2013, 14h29

Et c'est a quelle ligne qu'il plante? (qu'il saute dans le catch)

**mehdi.cheddani** · 31/03/2013, 14h33

la ligne 31:d = cmd.ExecuteReader.

**Sankasssss** · 31/03/2013, 14h52

que contient ComboBox1.SelectedItem.ToString ?
N_ordre est il bien numérique? si oui et que ComboBox1.SelectedItem.ToString est vide nous savons d'où provient l'erreur...

**mehdi.cheddani** · 31/03/2013, 14h56

snakasss N_Ordre est bel est bien de type texte dans la table sur access.

**Sankasssss** · 31/03/2013, 15h04

Et si vous mettiez une requête paramétrées en remplacant tous ce qui concerne la commande par :

Code :

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

1
2
3
            Dim cmd As New OleDbCommand
            cmd.CommandText = "select Sous_quartier,Cil,Quartier,Nom_Client,Avis_acces,Porte,Rue,N_compteur,N_serie,Dernier_index_lu,Tp_cal,Marque from sale where N_ordre = ?"
            cmd.Parameters.Add("N_ordre", SqlDbType.VarChar).Value = ComboBox1.SelectedItem.ToString

Avez-vous toujours le problème?

**mehdi.cheddani** · 31/03/2013, 15h52

j'ai essayé de suivre votre conseil est mon code est devenu comme suit:

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
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDb.12.0;Data source=C:\Users\Administrator\Desktop\BD sale.accdb"
        Try
            cn.Open()
            Dim cmd As New OleDbCommand
            Dim d As OleDbDataReader
            cmd.Connection = cn
            cmd.CommandText = "select Sous_quartier,Cil,Quartier,Nom_Client,Avis_acces,Porte,Rue,N_compteur,N_serie,Dernier_index_lu,Tp_cal,Marque from sale where N_ordre = ?"
            cmd.Parameters.Add("N_ordre", OleDbType.VarChar).Value = ComboBox1.SelectedItem.ToString
            d = cmd.ExecuteReader
            While d.Read
                TextBox1.Text = d("Sous_quartier")
                TextBox2.Text = d("Cil")
                TextBox3.Text = d("Quartier")
                TextBox4.Text = d("Nom_Client")
                TextBox5.Text = d("Avis_acces")
                TextBox6.Text = d("Porte")
                TextBox7.Text = d("Rue")
                TextBox8.Text = d("N_compteur")
                TextBox9.Text = d("N_serie")
                TextBox10.Text = d("Dernier_index_lu")
                TextBox11.Text = d("Tp_cal")
                TextBox12.Text = d("Marque")
 
            End While
            d.Close()
        Catch ex As Exception
            MessageBox.Show("Erreur lors du rapatriement des données : " & ex.ToString())
        End Try
        cn.Close()

et le message d'erreur est :
"AUCUNE VALEUR DONNéE POUR UN OU PLUSIEURS DES PARAMèTRES REQUIS"
et l'erreur est indiquée pour la ligne 9:
d=cmd.executReader.
Merci

**rv26t** · 31/03/2013, 15h58

Envoyé par Sankasssss

que contient ComboBox1.SelectedItem.ToString ?

**mehdi.cheddani** · 31/03/2013, 15h58

je vous suis pas?

**rv26t** · 31/03/2013, 16h01

Mettez un point d'arret sur la ligne 8

Code :

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

            cmd.Parameters.Add("N_ordre", OleDbType.VarChar).Value = ComboBox1.SelectedItem.ToString

Sur l'arrêt sur la ligne, faite F8
Placer le curseur souris sur ComboBox1.SelectedItem.ToString pour voir la valeur
ou placer ComboBox1.SelectedItem.ToString dans la boite Espion pour voir la valeur.

**mehdi.cheddani** · 31/03/2013, 16h27

J'ai déjà dit que n° ordre est un varchar est que même si j'enlève le ".TOSTRING"
ça change rien il parait qu'il y a trop de paramètre et s'il y a une meilleure idée pour pouvoir afficher les informations dans ces champs je suis ouvert à tout.
sinon je sais pas comment placer Combobox.selectedItem dans la boite espion
Merci

**rv26t** · 31/03/2013, 16h49

Ce qu'il faudrait savoir c'est ce que l'on envoie avec la requête
Rajoute un messagebox

Code :

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

1
2
            cmd.Parameters.Add("N_ordre", OleDbType.VarChar).Value = ComboBox1.SelectedItem.ToString
            MessageBox.show("contenu de ComboBox1.SelectedItem : " & ComboBox1.SelectedItem.ToString)

et dis nous ce qu'il y a.

Afficher le résultats dans des champs de texte

VB.NET

Discussions similaires

Partager

Partager