Discussion :

[mehdi.cheddani]

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]

Bonjour,

des propositions?

Utilise les requêtes paramètrées.

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]

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]

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]

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]

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.