Discussion :

[901coco]

Bonjour à tous !

J'ai une base de donnée: "dbfilm" et une table: "tbfilm". J'ai donc créer un Dataset à partir de cette table et j'ai également crée une DataGridView qui affiche cette table.
J'aimerais que lorsque je clique sur le bouton supprimer de mon interface, la ligne sélectionnée dans la DataGridView soit supprimée et que ma table soit ensuite mise à jour (j'espère que vous me comprenez )

Voici le code que j'utilise pour supprimer une ligne et mettre à jour ma table:

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
48
49
50
51
52
    Private Sub bt_supprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_supprimer.Click
        ' Déclaration Objet Connexion
        Dim ObjetConnection As SqlConnection
        ' Déclaration Objet Commande
        Dim ObjetCommand As SqlCommand
        ' Déclaration Objet DataAdapter
        Dim ObjetDataAdapter As SqlDataAdapter
        ' Déclaration Objet DataSet
        Dim ObjetDataSet As New DataSet() 'Attention au New
        'String contenant la 'Requête SQL'
        Dim strSql As String
        ' Déclaration Objet DataTable
        Dim ObjetDataTable As DataTable
        ' Déclaration Objet DataRow (ligne)
        Dim strConn As String
        'Pour recompiler les données modifiées avant de les remettre dans le DataAdapter
        Dim objetCommandBuilder As SqlCommandBuilder
        'Initialisation de la chaîne de paramètres pour la connexion
        strConn = "Data source = localhost; Integrated Security=SSPI;" + "Initial Catalog=dbfilm"
        'Initialisation de la chaîne contenant l'instruction SQL
        strSql = "SELECT * FROM tbfilm"
        'Instanciation d'un Objet Connexion
        ObjetConnection = New SqlConnection()
        'Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.ConnectionString = strConn
        'Ouvrir la connexion
        ObjetConnection.Open()
        'Instancier un objet Commande
        ObjetCommand = New SqlCommand(strSql)
        'Instancier un objet Adapter
        ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
        'initialiser l'objet Command
        ObjetCommand.Connection() = ObjetConnection
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        ObjetDataAdapter.Fill(ObjetDataSet, "tbfilm")
        'Mettre dans un Objet DataTable une table du DataSet
        ObjetDataTable = ObjetDataSet.Tables("tbfilm")
 
        'Suppression de la ligne sélectionnée dans la DataGridView
        ObjetDataSet.Tables("tbfilm").Rows(dt_datagrid.CurrentRow.Index).Delete()
 
        'Mise à jour 
        objetCommandBuilder = New SqlCommandBuilder(ObjetDataAdapter)
        ObjetDataAdapter.Update(ObjetDataSet, "tbfilm")
 
        'Nouvel affichage des films dans la datagrid
        Dim d As New BindingSource
        d.DataSource = ObjetDataSet
        d.DataMember = "tbfilm"
        Me.dt_datagrid.DataSource = d
 
    End Sub

Le problème est que lorsque cet événement se déclenche la ligne qui est supprimée n'est jamais celle que je souhaite
Savez vous ou est mon erreur ?

En espérant que vous pourrez m'aider, n'hésitez pas à me demander si vous ne comprenez pas une partie de mon code ou de mon explication

[monsof]

Bonjour
Tu as fait un affichage:

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
 ' Déclaration Objet Connexion
        Dim ObjetConnection As SqlConnection
        ' Déclaration Objet Commande
        Dim ObjetCommand As SqlCommand
        ' Déclaration Objet DataAdapter
        Dim ObjetDataAdapter As SqlDataAdapter
        ' Déclaration Objet DataSet
        Dim ObjetDataSet As New DataSet() 'Attention au New
        'String contenant la 'Requête SQL'
        Dim strSql As String
        ' Déclaration Objet DataTable
        Dim ObjetDataTable As DataTable
Dim strConn As String
        'Pour recompiler les données modifiées avant de les remettre dans le DataAdapter
        Dim objetCommandBuilder As SqlCommandBuilder
        'Initialisation de la chaîne de paramètres pour la connexion
        strConn = "Data source = localhost; Integrated Security=SSPI;" + "Initial Catalog=dbfilm"
        'Initialisation de la chaîne contenant l'instruction SQL
        strSql = "SELECT * FROM tbfilm"
        'Instanciation d'un Objet Connexion
        ObjetConnection = New SqlConnection()
        'Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.ConnectionString = strConn
        'Ouvrir la connexion
        ObjetConnection.Open()
        'Instancier un objet Commande
        ObjetCommand = New SqlCommand(strSql)
        'Instancier un objet Adapter
        ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
        'initialiser l'objet Command
        ObjetCommand.Connection() = ObjetConnection
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        ObjetDataAdapter.Fill(ObjetDataSet, "tbfilm")
        'Mettre dans un Objet DataTable une table du DataSet
        ObjetDataTable = ObjetDataSet.Tables("tbfilm")

juste avant la suppression, donc le code ci dessus doit etre dans l'evenement Load du fenetre par exemple et non pas ici.
Tu n'a pas besoin à ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
      'Suppression de la ligne sélectionnée dans la DataGridView
        ObjetDataSet.Tables("tbfilm").Rows(dt_datagrid.CurrentRow.Index).Delete()

Ce code te suffi je crois:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 'Mise à jour 
        objetCommandBuilder = New SqlCommandBuilder(ObjetDataAdapter)
        ObjetDataAdapter.Update(ObjetDataSet, "tbfilm")
 
        'Nouvel affichage des films dans la datagrid
        Dim d As New BindingSource
        d.DataSource = ObjetDataSet
        d.DataMember = "tbfilm"
        Me.dt_datagrid.DataSource = d