Bonjour, S'il vous plait aidez moi;
le problème est le suivant: j'ai fait une petite application vb.net liée à une base de données Access,
dans la base de données j'ai une seule table "Zones" qui les champs suivant, "Nom_Zone", "Champ2", "Champ3" et "Champ4".
j'ai ajouter une listeBox que j'ai appelé "ListZones".
Normalement à l'ouverture de l'application les les "Nom_Zone" doivent être afficher dans la liste et ça je l'ai fait.
le problème c'est quand je veux supprimer une zone, la suppression se passe dans la base de données mais l'actualisation de la "ListZones" ne se passe pas bien.
Voici le code du bouton "Supprimer" qui supprimer une "zone" selectionner de la "ListZones".

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
'ouverture de la connection (à partir du répertoire de l'application) sur la même ligne      
        cnxstr = "provider = microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\Data base.mdb;"
        cnx = New OleDbConnection
        cnx.ConnectionString = cnxstr
        cnx.Open()
        'Création de la requête sql      
        Sql = "delete from Zones where Nom_Zone=" & "'" & nom_zone & "'"
        'Création de la commande et on l'instancie (sql)       
        cmd = New OleDbCommand(sql)
        'Création du dataadapter (dta) et on l'instancie (cmd)      
        dta = New OleDbDataAdapter(cmd)
 
        'On instancie la commande (cmd) à la connection (cnx)       
        cmd.Connection() = cnx
 
        'On charge le dataset (dts) grâce à la propriété fill du dataadapter (dta)      
        dta.Fill(dts, "Zones")
 
        'On charge la datatable (dtt) grâce à la propriété tables du dataset (dts)
        dtt = dts.Tables("Zones")
        cmd.ExecuteNonQuery()
        Dim n As Integer = dtt.Rows.Count
        Dim zones(n) As String
        Form2.ListZones.Items.Clear()
        For i = 0 To n - 1
            zones(i) = dtt.Rows(i).Item(0).ToString
            Form2.ListZones.Items.Add(zones(i))
        Next
        cnx.Close()
Merci d'avance.