Combobox textbox indexchanged

Version imprimable

Bonjour,

Je dois faire un projet qui consiste à la gestion d'un parc informatique. Je suis novice dans la matière et je bloque sur un truc qui doit surement être tout bête pour certains d'entre vous.

Je commence seulement, j'ai créé une base ACCESS avec 2 tables (USERS, ACTIVITE). J'ai un form sur vb-2010 express. La liaison entre les 2 outils est faite. J'arrive à afficher mes données.
J'ai créer une combobox qui pointe sur la clé primaire de ma table enfant (ACTIVITE) afin d'alimenter une textbox qui affiche le libellé de l'activité. J'arrive à afficher les données du combobox ainsi que les sélectionner mais je n'arrive pas à faire la liaison du textbox en fonction de l'index.

ci-dessous le travail déjà effectué

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
' Liaison avec la clé primaire de la table fille (trouvé sur le net)
 
 Private Sub USERS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 strConn = "provider=microsoft.jet.OLEDB.4.0; Persist Security info=false; data source= Parc_Info_APS.mdb"
        con = New OleDbConnection
        command = New OleDbCommand("select ACTIVITE_PSF FROM ACTIVITE", con)
        con.ConnectionString = strConn
        con.Open()
        dr = command.ExecuteReader
        While dr.Read
            demarrage_activitePSF()
            CB_ACTIVITE_USER.Items.Add(dr(0))
        End While

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
 
 
' code pour la liaison entre combobox et textbox en fonction de l'index (Marche pas )
 
    Private Sub CB_ACTIVITE_USER_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB_ACTIVITE_USER.SelectedIndexChanged
 
        Dim i As Integer
 
        Select Case CB_ACTIVITE_USER.SelectedItem(i)
            Case i = 0
                TXT_LIB_ACTIVITE.Text = ObjetDataTable.Rows(0).Item("LIB_ACTIVITE").ToString
            Case i = 1
                TXT_LIB_ACTIVITE.Text = ObjetDataTable.Rows(1).Item("LIB_ACTIVITE").ToString
            Case i = 2
                TXT_LIB_ACTIVITE.Text = ObjetDataTable.Rows(2).Item("LIB_ACTIVITE").ToString
            Case i = 3
                TXT_LIB_ACTIVITE.Text = ObjetDataTable.Rows(3).Item("LIB_ACTIVITE").ToString
            Case i = 4
                TXT_LIB_ACTIVITE.Text = ObjetDataTable.Rows(4).Item("LIB_ACTIVITE").ToString
            Case i = 5
                TXT_LIB_ACTIVITE.Text = ObjetDataTable.Rows(5).Item("LIB_ACTIVITE").ToString
        End Select
 
    End Sub

Je vous serai reconnaissant de bien vouloir m'aider et de m'expliquer. Je n'ai pas trouvé malgré plusieurs recherches sur le net.

En espérant d'avoir été clair sur le problème.

Merci par avance,

Cordialement

04/11/2011, 01h04
Graffito
J'ai pas tout compris en ce qui concerne le contenu des DataTables, mais on devrait pouvoir remplacer tout le select par une simple affectation :
Code:

1 2 TXT_LIB_ACTIVITE.Text = ObjetDataTable.Rows(CB_ACTIVITE_USER.SelectedIndex).Item("LIB_ACTIVITE").ToString

Bonjour,
Déjà dans le combobox il faut que la propriété AutoPostBack soit à true, si non il n’exécute pas son événement SelectChange. En suite il faut que dans ta page, l’événement load contienne un "not postback" pour éviter que le combobox se recharge à chaque événement et qu'il n'affiche dans la textbox que sa première ligne.

Voici un exemple avec une DropDownList qui qui récupéré la clef et le libelle contenu dans une requête

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
 
Dim txt_sql As String
        Dim sql_Cde As New OleDb.OleDbCommand()
        Dim myReader As OleDb.OleDbDataReader
        Dim dt As New DataTable()
        Dim dr As DataRow
        Dim dv As New DataView(dt)
        dt.Columns.Add("IntergerValue", GetType(Int32)) 'colonne contenant l''identifiant'
        dt.Columns.Add("StringValue", GetType(String)) 'Colonne contenant le libellé'
        sql_Cde.Connection = Connection1
 
 
        If Not IsPostBack Then
 
 txt_sql = "SELECT T_Organismes.N_Organisme, T_Organismes.Nom_Org " & _
           " FROM (T_Organismes) "
 
sql_Cde.CommandText = txt_sql
            Connection1.Open()
            myReader = sql_Cde.ExecuteReader()
            While myReader.Read()
                dr = dt.NewRow()
                dr(0) = myReader.GetValue(0)
                dr(1) = UCase(myReader.GetValue(1))
                dt.Rows.Add(dr)
            End While
            myReader.Close()
 
            Connection1.Close()
            DDL_Organismes.DataSource = dv
            DDL_Organismes.DataTextField = "StringValue"
            DDL_Organismes.DataValueField = "IntergerValue"
            DDL_Organismes.DataBind()
 
            Organismes.Items.Insert(0, New ListItem("-Faites votre choix-", String.Empty))
end if