Suppression de la base de données

Version imprimable

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:

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.

23/09/2013, 12h58
callo
Bonjour,
D'anord, utilises la balise code (bouton #) de ton éditeur pour rendre tes bouts de codes plus lisibles.

Pour ton problème, je crois que si tu utilises la même datatable comme source données de ta listbox, cette dernière devrait-être mis à jour automatiquement si la datatable est elle aussi est mise à jour.
Code:

1 2 '...... ListZones.DataSource = taDataTable
23/09/2013, 13h12
emable

D'abord merci pour ta réponse,
juste pour information, j'utilise la "ListZones" en mode indépendant, et dans le loading de l'application je fais la connexion avec la base de données puis je la remplie.
23/09/2013, 14h01
abd75web

dans ce cas la vous devez vider et remplir ta ListZones a chaque suppression ou ajout ou modification dans la base de donnés
23/09/2013, 14h16
emable

c'est ça ce que j'ai fait normalement dans le code mais ça écrit deux fois la liste des zones avant suppression + la liste après suppression
23/09/2013, 14h23
callo

Citation:

Envoyé par emable

c'est ça ce que j'ai fait normalement dans le code mais ça écrit deux fois la liste des zones avant suppression + la liste après suppression

Dans ce cas, tu fais

Code:

ListZones.Items.Clear()

avant l'ajout des items dans la listbox.
23/09/2013, 14h31
emable

si vous avez lit le code que j'ai déposer vous allez voir c'est déjà fait.

peut être le problème est dans zones(n)

Code:

1
2
3
4
5
6
7
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

essai ce code :

Code:

1
2
3
4
5
Dim n As Integer = dtt.Rows.Count
        Form2.ListZones.Items.Clear()
        For i = 0 To n - 1
            Form2.ListZones.Items.Add( dtt.Rows(i).Item(0).ToString)
        Next

23/09/2013, 15h22
emable

j'ai essayé ton code "abd75web" au moins ça donne seulement la liste des zones avant suppression, apparemment il faut une procedure qui actualise la datatable après suppression.
23/09/2013, 17h08
emable

j'ai trouver la solution.
il faut juste ajouter un

Code:

dts.Clear()

pour effacer le dataset avant le nouveau remplissage avec le reste des zones après suppression.
Merci à vous tous pour votre aide et votre temps.