Discussion :

[PyMaster]

Bonjour à tous

Mon but est de faire un listBox contenant tous les éléments d'une table et de pouvoir en faire la mise à jours ( Update, Insert et Delete )
Je suis capable d'afficher les données sans problème et d'ajouter des éléments dans la liste.

Par contre lorsque j'ajoute des éléments dans la BD et que la liste est mis à jours, on dirait que le "Value Member" n'est pas affecté pour le nouvel élément. Ce qui fait que lorsque l'utilisateur clique sur un éléments dans la liste je ne suis pas capabe d'obtenir le numéro de
l'élément.

Est ce que quelqu'un connait une solution ...

voici mon code

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
' Initialisation des informations pour la liste contenant la table "Type"
    Private Sub initType()
        Dim objCommand As OleDb.OleDbCommand
 
        objBD.getBdConnexion.Open()
        objCommand = New OleDb.OleDbCommand("SELECT * FROM TYPE ",
 objBD.getBdConnexion)
        daType = New OleDb.OleDbDataAdapter(objCommand)
        cbType = New OleDb.OleDbCommandBuilder(daType)
        daType.InsertCommand = cbType.GetInsertCommand
        daType.UpdateCommand = cbType.GetUpdateCommand
        daType.DeleteCommand = cbType.GetDeleteCommand
        daType.Fill(ds, "Type")
        objCommand.Dispose()
        objBD.getBdConnexion.Close()
        Me.lstType.DataSource = ds.Tables("Type")
    End Sub
 
    ' L'utilisateur clique sur le bouton "Enregistrer" 
    Private Sub cmdSaveType_Click(ByVal sender As System.Object, ByVal
 e As System.EventArgs) Handles cmdSaveType.Click
 
        Dim dtType As Data.DataTable = ds.Tables("Type")
        Dim drRows As Data.DataRow = Nothing
        If Me.txtNomType.Text.Length > 0 Then
            If currentNoType = 0 Then ' Ajout
                drRows = dtType.NewRow
                drRows("NomType") = Me.txtNomType.Text
                dtType.Rows.Add(drRows)
                objBD.getBdConnexion.Open()
                daType.Update(ds, "Type")
                objBD.closeConnexion()
            Else ' Modification 
 
            End If
        End If
    End Sub
 
    Private Sub lstType_SelectedIndexChanged(ByVal sender As
 System.Object, ByVal e As System.EventArgs) Handles
 lstType.SelectedIndexChanged
        Me.txtNomType.Text = lstType.Text
        currentNoType = lstType.SelectedValue ' Ici il y a erreur !!!, pas de
value pour les éléments ajoutés 
        currentTypeListIndex = lstType.SelectedIndex 
    End Sub

Je suis nouveau avec VB.NEt, donc si vous avez des sugestions pour améliorer ma méthode je suis ouvert
Merci à l'avance,
PY

[neguib]

Tu ne sembles pas avoir assigné les propriétés DisplayMember et ValueMember du Listbox
Tu as un bon tuto disponible de notre collègue Plasserre :
http://plasserre.developpez.com/v6-6.htm

[PyMaster]

Rebonjour,

Merci pour ta réponse j'ai relu le tutoriel à la recherche de mon erreur. J'ai essayé d'ajouter l'affectation des "values member" et "display member" dans le code ( avant ils étaient fais dans le designer ). Donc voici mon nouveau code. Par contre j'ai toujours la même erreur

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
 
    Private Sub initType()
        Dim objCommand As OleDb.OleDbCommand
 
        objBD.getBdConnexion.Open()
        objCommand = New OleDb.OleDbCommand("SELECT * FROM TYPE ",
 objBD.getBdConnexion)
        daType = New OleDb.OleDbDataAdapter(objCommand)
        cbType = New OleDb.OleDbCommandBuilder(daType)
        daType.InsertCommand = cbType.GetInsertCommand
        daType.UpdateCommand = cbType.GetUpdateCommand
        daType.DeleteCommand = cbType.GetDeleteCommand
        daType.Fill(ds, "Type")
        objCommand.Dispose()
        objBD.getBdConnexion.Close()
        Me.lstType.DataSource = ds.Tables("Type")
        lstType.ValueMember = "NoType"
        lstType.DisplayMember = "NomType"
    End Sub

Par contre en relisant le tutoriel j'ai trouvé ce passage

"L'instruction SQL transmise comprend une clause SET pour définir les nouvelles valeurs des colonnes modifiée."

Est-ce qu'il est possible de modifier la clause SET et comment ?

Merci,
PY

[PyMaster]

J'avais oublié de mettre les affectations de mes champs AVANT celui de la dataSource

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
    Private Sub initType()
        Dim objCommand As OleDb.OleDbCommand
 
        objBD.getBdConnexion.Open()
        objCommand = New OleDb.OleDbCommand("SELECT * FROM TYPE ",
 objBD.getBdConnexion)
        daType = New OleDb.OleDbDataAdapter(objCommand)
        cbType = New OleDb.OleDbCommandBuilder(daType)
        daType.InsertCommand = cbType.GetInsertCommand
        daType.UpdateCommand = cbType.GetUpdateCommand
        daType.DeleteCommand = cbType.GetDeleteCommand
        daType.Fill(ds, "Type")
        objCommand.Dispose()
        objBD.getBdConnexion.Close()
        lstType.ValueMember = "NoType"
        lstType.DisplayMember = "NomType"
        Me.lstType.DataSource = ds.Tables("Type")
 
    End Sub

Mais j'ai toujours le même problème

PY

[neguib]

Heu tu peux affecter ses propriétés après

Me.lstType.DataSource = ds.Tables("Type")
Me.lstType.ValueMember = "NoType"
Me.lstType.DisplayMember = "NomType"

[PyMaster]

Bonjour,

Merci Neguib pour ton aide, j'ai trouvé mon erreur. Je n'avais pas définie correctement ma PrimaryKey dans ma DataTable. Une fois ce problème corrigé ma liste fonctionnait correctement .

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
 
    Private Sub cmdSaveType_Click(ByVal sender As System.Object, ByVal
 e As System.EventArgs) Handles cmdSaveType.Click
 
        Dim dtType As Data.DataTable = ds.Tables("Type")
        Dim drRows As Data.DataRow = Nothing
        Dim drPriCol(0) As Data.DataColumn
 
        drPriCol(0) = ds.Tables(0).Columns("NoType")
        dtType.PrimaryKey = drPriCol
        dtType.PrimaryKey(0).AutoIncrement = True
        If Me.txtNomType.Text.Length > 0 Then
            If currentNoType = 0 Then ' Ajout
                drRows = dtType.NewRow
                drRows("NomType") = Me.txtNomType.Text
                dtType.Rows.Add(drRows)
                objBD.getBdConnexion.Open()
                daType.Update(ds, "Type")
                objBD.closeConnexion()
 
            Else ' Modification 
                drRows = dtType.Rows.Find(currentNoType)
                drRows.BeginEdit()
                drRows("NomType") = Me.txtNomType.Text
                drRows.EndEdit()
                objBD.getBdConnexion.Open()
                daType.Update(ds, "Type")
                objBD.closeConnexion()
            End If
        End If
    End Sub

PY