Remplir TextBox par ComboBox

Version imprimable

3 pièce(s) jointe(s)

Bonjour Forum
Bonjour tout le monde
SVP Gentelman ..
J'ai vraiment besoin d'aide pour finir ce cauchemar
Dans ma Table1 j'ai 4 champs (Id de Type numerique-Pavillon de Type numerique-Name de Type Texte-Matricule de Type numerique)
Un meme numero de Pavillon dans le champ (Pavillon) possede au MAXIMUM 3 records .. ca peut etre moins .. 2 records ou 1 record ..mais ne sera jamais quatre.
Comme l'indique cette image :
Pièce jointe 487414
Ma ComboBox1 est deja remplit par le champs (Pavillon) d'une facon : Select distinct pour ne pas repeter les memes numeros
Je veux lorsque je choisis le numero de Pavillon par ComboBox1 .. s'affichera automatiquement les cordonnees de ces 3 records dans les TextBox de 1 a 12 .. de cette facon :
Pièce jointe 487417
Voici tout mon code .. j'ai essaye avec .. mais malheureusement s'affichera le meme records dans les 12 TextBoxs .. voici ce resultat de malheur ..
Pièce jointe 487420

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
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
50
51
52
Imports System.Data.OleDb
Public Class Form1
    Public constring As String = "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & Application.StartupPath & "\DataPavillon.accdb"
    Public Conne As New OleDbConnection(constring)
    Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Conne.Open()
            Dim sql As String = "Select distinct Pavillon from Table1"
            Dim cmd As New OleDb.OleDbCommand(sql, Conne)
            Dim reader As OleDb.OleDbDataReader = cmd.ExecuteReader
            While reader.Read
                Dim idPavillon = reader.Item("Pavillon")
                ComboBox1.Items.Add(idPavillon)
            End While
            Conne.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Try
            Conne.Open()
            'Dim sql As String = "Select * from Table1 where Pavillon =" + ComboBox1.Text + ""
            Dim sql As String = "Select id,Pavillon,Name,Matricule from Table1 where Pavillon =" + ComboBox1.Text + ""
            Dim cmd As New OleDb.OleDbCommand(sql, Conne)
            Dim reader As OleDb.OleDbDataReader = cmd.ExecuteReader
            While reader.Read
                If reader IsNot Nothing Then
 
                    TextBox1.Text = reader.Item("id")
                    TextBox2.Text = reader.Item("Pavillon")
                    TextBox3.Text = reader.Item("Name")
                    TextBox4.Text = reader.Item("Matricule")
 
                    TextBox5.Text = reader.Item("id")
                    TextBox6.Text = reader.Item("Pavillon")
                    TextBox7.Text = reader.Item("Name")
                    TextBox8.Text = reader.Item("Matricule")
 
                    TextBox9.Text = reader.Item("id")
                    TextBox10.Text = reader.Item("Pavillon")
                    TextBox11.Text = reader.Item("Name")
                    TextBox12.Text = reader.Item("Matricule")
 
                End If
            End While
            Conne.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class

Merci beaucoup d'avance pour l'aide
Cordialement
MADA

Salut

Si comme dans d'autre langage VB (VB6 :aie: par exemple), et si l'objet reader renvoie un ensemble de recordset, je ferais comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
            'While reader.Read
                If reader IsNot Nothing Then '1er enregistrement
                    TextBox1.Text = reader.Item("id")
                    TextBox2.Text = reader.Item("Pavillon")
                    TextBox3.Text = reader.Item("Name")
                    TextBox4.Text = reader.Item("Matricule")
                    reader.movenext 'passe a l'enregistrement suivant (2éme)
                    If reader IsNot Nothing Then
			TextBox5.Text = reader.Item("id")
			TextBox6.Text = reader.Item("Pavillon")
			TextBox7.Text = reader.Item("Name")
			TextBox8.Text = reader.Item("Matricule")
			reader.movenext 'passe a l'enregistrement suivant (3éme)
			If reader IsNot Nothing Then
				TextBox9.Text = reader.Item("id")
				TextBox10.Text = reader.Item("Pavillon")
				TextBox11.Text = reader.Item("Name")
				TextBox12.Text = reader.Item("Matricule")
			End If
                    End If
                End If
            'End While

1 pièce(s) jointe(s)

Salut cher ProgElect
Tres ravi de vous rencontrer das ce sujet
Merci beaucoup pour l'intention d'aide
Lorsque j'ai vu MoveNext .. j'ai cru que je suis dans dans le Forum VB6 .. notre merveilleux ancien forum
Apres une recherche .. j'ai trouve ce code qui fonctionne tres tres bien .. mais malheureusement lorsque je choisis par ComboBox1 par exemple le pavillon 12 .. qui possede seulement un seul record j'aurai ce message d'erreur

Code:

Aucun ligne a la position 1

J'ai essaye d'ajouter cette ligne au bout du code mais toujours le meme message d'erreur

Code:

If Ds.Tables("Table1").Rows.Count > 0 Then

Voici le code qui fonctionne tres bien .. simplement le message d'erreur indique au dessus
Pièce jointe 487457
Le code :

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
25
26
27
28
29
30
31
32
33
34
35
36
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        Try
            Conne.Open()
 
            Dim Sql As String = "Select * From Table1 Where Pavillon = " & ComboBox1.Text.Trim() & ""
            Dim Ds As New DataSet
            Dim Da As OleDb.OleDbDataAdapter
            Da = New OleDbDataAdapter(Sql, Conne)
            Da.Fill(Ds, "Table1")
 
            Conne.Close()
 
            If Ds.Tables("Table1").Rows.Count > 0 Then
 
                TextBox1.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Id"))
                TextBox2.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Pavillon"))
                TextBox3.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Name"))
                TextBox4.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Matricule"))
 
                TextBox5.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Id"))
                TextBox6.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Pavillon"))
                TextBox7.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Name"))
                TextBox8.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Matricule"))
 
                TextBox9.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Id"))
                TextBox10.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Pavillon"))
                TextBox11.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Name"))
                TextBox12.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Matricule"))
 
            End If
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Merci beaucoup d'avnace pour corriger ce genre de message d'erreur
Amicalement
MADA

Re :coucou:

Peut être que

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
            Dim reader As OleDb.OleDbDataReader = cmd.ExecuteReader
            If Ds.Tables("Table1").Rows.Count > 0 Then
                TextBox1.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Id"))
                TextBox2.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Pavillon"))
                TextBox3.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Name"))
                TextBox4.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Matricule"))
	    End If
            If Ds.Tables("Table1").Rows.Count > 1 Then
                TextBox5.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Id"))
                TextBox6.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Pavillon"))
                TextBox7.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Name"))
                TextBox8.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Matricule"))
	    End If
            If Ds.Tables("Table1").Rows.Count > 2 Then
                TextBox9.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Id"))
                TextBox10.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Pavillon"))
                TextBox11.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Name"))
                TextBox12.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Matricule"))
            End If

Par contre, je ne comprend pas comment tu passes d'une ligne d'enregistrement à une autre, d'ou mon MoveNext :aie:
Aujourd'hui je suis plutôt dans le HTML, PHP, JavaScript et CSS, (VB.net j'ai abandonné au bout d'un an)

29/06/2019, 22h21
MADA BLACK

1 pièce(s) jointe(s)

Merci beaucoup ProgElect
C'est vrai .. maintenant pas de message d'erreur .. mais j'ai un petit probleme ..
Si je choisis par exemple le pavillon 10 avec 3 records .. apres je choisis le pavillon 12 avec un seul records .. les TextBoxs de 5 a 12 restent remplit avec les records de pavillon 10 ..comment faire svp pour eviter ce probleme ..
Pièce jointe 487478
Merci beaucoup pour l'aide
MADA

Bonsoir à vous deux,

Un DataReader renvoie autant de lignes qu'il y a d’enregistrements correspondants à la requête.
C'est pour ça qu'on lit le résultat dans une boucle While reader.Read.

Mais avant de faire ceci :
Code:

1 2 3 4 If Ds.Tables("Table1").Rows.Count > 0 Then TextBox1.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Id")) TextBox2.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Pavillon")) ' ... ... ...
il faut d'abord lire le "reader" et remplir le DataTable. Le code précédent, écrit juste après le ExecuteReader ne peut rien donner de bien. Par contre, il tout-à-fait opportun après le code suivant qui utilise le DataAdapter et remplit effectivement une table :
Code:

1 2 3 4 5 6 7 8 9 Conne.Open() Dim Sql As String = "Select * From Table1 Where Pavillon = " & ComboBox1.Text.Trim() & "" Dim Ds As New DataSet Dim Da As OleDb.OleDbDataAdapter Da = New OleDbDataAdapter(Sql, Conne) Da.Fill(Ds, "Table1") Conne.Close()
Le problème restant, que vous utilisiez le DataReader ou le DataAdapter pour remplir la table, vient du code qui désigne explicitement l'indice de la ligne à utiliser (... Rows(0), ... Rows(1), ...) : s'il n'y a qu'une seule ligne en retour du SELECT, l'instruction ... Rows(1)... donne forcément une erreur.

Il convient d'organiser le code de sorte à ne pas dépasser (en valeur d'indide), Table1.Rows.Count - 1.

J'espère que ces commentaires vous aideront ... :)

Bonsoir Phil Rob
Bonsoir maitre .. toujours je fais confiance a vos impeccables interventions
Merci beaucoup pour ces conseils
Maintenant .. avec ce code .. tout fonctionne tres bien .. sans aucun message d'erreur .. mais je sens qu'il y a une chose n'est pas normale .. je ne sais pas pourquoi .. s'il vous plait cher Phil Rob .. si vous pouvez le voir et et verifier ..

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
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
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Try
            Conne.Open()
 
            Dim Sql As String = "Select * From Table1 Where Pavillon = " & ComboBox1.Text.Trim() & ""
            Dim Ds As New DataSet
            Dim Da As OleDb.OleDbDataAdapter
            Da = New OleDbDataAdapter(Sql, Conne)
            Da.Fill(Ds, "Table1")
 
            Conne.Close()
 
            If Ds.Tables("Table1").Rows.Count > 0 Then
                TextBox1.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Id"))
                TextBox2.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Pavillon"))
                TextBox3.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Name"))
                TextBox4.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Matricule"))
            Else
                TextBox1.Text = vbNullString
                TextBox2.Text = vbNullString
                TextBox3.Text = vbNullString
                TextBox4.Text = vbNullString
            End If
            If Ds.Tables("Table1").Rows.Count > 1 Then
                TextBox5.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Id"))
                TextBox6.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Pavillon"))
                TextBox7.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Name"))
                TextBox8.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Matricule"))
            Else
                TextBox5.Text = vbNullString
                TextBox6.Text = vbNullString
                TextBox7.Text = vbNullString
                TextBox8.Text = vbNullString
            End If
            If Ds.Tables("Table1").Rows.Count > 2 Then
                TextBox9.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Id"))
                TextBox10.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Pavillon"))
                TextBox11.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Name"))
                TextBox12.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Matricule"))
            Else
                TextBox9.Text = vbNullString
                TextBox10.Text = vbNullString
                TextBox11.Text = vbNullString
                TextBox12.Text = vbNullString
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Merci beaucoup d'avance
Cordialement
MADA

Peut-être peux-tu remplacer ton code (toute la structure de If ... Then ...) :

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
25
26
27
28
29
30
31
32
33
            If Ds.Tables("Table1").Rows.Count > 0 Then
                TextBox1.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Id"))
                TextBox2.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Pavillon"))
                TextBox3.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Name"))
                TextBox4.Text = CStr(Ds.Tables("Table1").Rows(0).Item("Matricule"))
            Else
                TextBox1.Text = vbNullString
                TextBox2.Text = vbNullString
                TextBox3.Text = vbNullString
                TextBox4.Text = vbNullString
            End If
            If Ds.Tables("Table1").Rows.Count > 1 Then
                TextBox5.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Id"))
                TextBox6.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Pavillon"))
                TextBox7.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Name"))
                TextBox8.Text = CStr(Ds.Tables("Table1").Rows(1).Item("Matricule"))
            Else
                TextBox5.Text = vbNullString
                TextBox6.Text = vbNullString
                TextBox7.Text = vbNullString
                TextBox8.Text = vbNullString
            End If
            If Ds.Tables("Table1").Rows.Count > 2 Then
                TextBox9.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Id"))
                TextBox10.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Pavillon"))
                TextBox11.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Name"))
                TextBox12.Text = CStr(Ds.Tables("Table1").Rows(2).Item("Matricule"))
            Else
                TextBox9.Text = vbNullString
                TextBox10.Text = vbNullString
                TextBox11.Text = vbNullString
                TextBox12.Text = vbNullString
            End If

par celui-ci (où la structure de If est remplacée par une boucle For) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
        Dim TextBox(12) As TextBox
        Dim T As Integer
        For Each C As Control In Me.Controls
            Dim N As Integer
            If C.GetType.Name = "TextBox" Then
                N = CType(C.Name.Substring(7), Integer)
                If N >= 1 And N <= 12 Then
                    TextBox(N - 1) = C
                    TextBox(N - 1).Text = String.Empty
                End If
            End If
        Next C
        T = 0
        For R As Integer = 0 To Ds.Tables("Table1").Rows.Count - 1
            TextBox(T + 1).Text = Ds.Tables("Table1").Rows(R).Item("Id")
            TextBox(T + 2).Text = Ds.Tables("Table1").Rows(R).Item("Pavillon")
            TextBox(T + 3).Text = Ds.Tables("Table1").Rows(R).Item("Name")
            TextBox(T + 4).Text = Ds.Tables("Table1").Rows(R).Item("Matricule")
            T += 4
        Next

J'espère que ça te plaira ...

30/06/2019, 22h40
MADA BLACK

Merci beaucoup Phil Rob pour cet impeccable solution
C'est super ..
Parfaitement resolu
Merci aussi A ProgElect
Amicalement
MADA