supprimer

Version imprimable

Bonjour,

Je cherche à faire un formulaire qui me permettrait d'ajouter/modifier/supprimer des données d'un datagridview qui est relié à une table access par le code et non le databindings.
Cependant je ne voit pas comment faire.

J'ai le code pour le bouton ajouter et nouveau.

Cependant je ne sais pas comment faire pour le bouton supprimer et modifier
Pour supprimer: je voudrais sélectionner la ligne dans le datagridview et la supprimer en cliquant sur le bouton et que ça mette à jour la table access.
Pour modifier: je voudrais selectionner la ligne à modifier, que le texte apparaisse dans une textbox et que ca le modifie quand je clqieu sur modifier et pareil que la table access se mette à jour.

Je vous met déjà je code que j'ai.
Merci d'avance pour votre aide

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
 
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
 
Public Class TypeDeProduit
    'Déclaration de la variable pour la connection      
    Private cnx As OleDbConnection
    'Déclaration de la variable pour la commande       
    Private cmd As OleDbCommand
    'Déclaration de la variable pour le dataadapter
    Private dta As OleDbDataAdapter
    'Déclaration de la variable pour le dataset      
    Private dts As New DataSet
    'Déclaration de la variable pour la requête      
    Private sql As String
    'Déclaration de la variable pour la datatable
    Private dtt As DataTable
    'Déclaration de la variable pour le datarow      
    Private dtr As DataRow
    'Déclaration de la variable pour le Nº de l'enregistrement       
    Private rownum As Integer
    'Déclaration de la variable pour la connectionstring      
    Private cnxstr As String
    'Déclaration de la variable pour le commandbuilder      
    Private cmdb As OleDbCommandBuilder
    Private Sub TypeDeProduit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'ouverture de la connection (à partir du répertoire de l'application) sur la même ligne      
        cnxstr = "provider = microsoft.ace.oledb.12.0 ; data source = C:\Users\mto\Desktop\MINI-ERP\ERP.accdb;"
        cnx = New OleDbConnection
        cnx.ConnectionString = cnxstr
        cnx.Open()
 
        'Création de la requête sql      
        sql = "select TypeDeProduit.Type_de_produit from TypeDeProduit"
 
        '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, "Type_de_produit")
 
        'On charge la datatable (dtt) grâce à la propriété tables du dataset (dts)
        dtt = dts.Tables("Type_de_produit")
 
        DataGridView1.DataSource = dts
        DataGridView1.DataMember = dtt.ToString
        DataGridView1.Columns("Type_de_produit").Width = 190
 
    End Sub
 
    Private Sub Fermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fermer.Click
        Me.Close()
    End Sub
 
    Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
        dts.Clear()
        dta = New OleDbDataAdapter("SELECT TypeDeProduit.Type_de_produit FROM TypeDeProduit", cnx)
        dta.Fill(dts, "Type_de_produit")
 
        dtr = dts.Tables("Type_de_produit").NewRow
        dtr(0) = Me.TextBox1.Text
        MessageBox.Show("Bien ajouté")
 
        dts.Tables("Type_de_produit").Rows.Add(dtr)
 
        DataGridView1.DataSource = dts
        DataGridView1.DataMember = dts.Tables("Type_de_produit").ToString
 
        cmdb = New OleDbCommandBuilder(dta)
        dta.Update(dts, "Type_de_produit")
 
        Me.TextBox1.Text = String.Empty
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dtr = dts.Tables("Type_de_produit").NewRow
        dts.Tables("Type_de_produit").Rows.Add(dtr)
    End Sub
 
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
 
        For Each row As DataGridViewRow In DataGridView1.SelectedRows
            DataGridView1.Rows.Remove(row)
        Next
 
 
    End Sub
End Class

22/04/2015, 14h55
jopopmk

Salut,

pour savoir quelle ligne est sélectionnée (et ainsi remplir ta(tes) contrôle(s)), tu dois t'abonner à l'événement SelectionChanged de ton DataGridView.
22/04/2015, 16h20
jgresse1025

C'est bon, je me suis abonner à l'evenement SelectionChanged.

Mais je ne vois pas quoi mettre en code pour la modification et la suppression.
J'ai chercher partout sur internet et sur youtube pour les video et rien....

Un petit exemple (en c# mais c'est pareil) pour t'aider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
// un attribut de la classe pour conserver la dernière ligne sélectionnée
private DataGridViewRow selectedRow = null;
 
// dgv1 est le nom de mon DataGridView
private void dgv1_SelectionChanged(object sender, EventArgs e) {
	// on vérifie qu'on a bien une seule ligne de sélectionnée
	if (dgv1.SelectedRows.Count == 1) {
		// on garde une référence sur la ligne sélectionner pour les actions de modification et de suppression
		this.selectedRow = dgv1.SelectedRows[0];
		// on remplit les contrôles
		textBox1.Text = this.selectedRow.Cells[0].Value.ToString();
		textBox2.Text = this.selectedRow.Cells[1].Value.ToString();
		// et ainsi de suite, selon le nombre de champs que tu as
	}
}

J'ai essayer d'utiliser ton code mais je n'ai pas réussi à le mettre pour moi.

Et puis je veux que ça supprime de ma datagridview1 et que ça mette à jour dans ma table.

J'ai donc essayer de mettre ce code mais ça ne marche pas...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dts.Clear()
        dta = New OleDbDataAdapter("SELECT TypeDeProduit.Type_de_produit FROM TypeDeProduit", cnx)
        dta.Fill(dts, "Type_de_produit")
 
        DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
        DataGridView1.DataSource = dts
        DataGridView1.DataMember = dts.Tables("Type_de_produit").ToString
        cmdb = New OleDbCommandBuilder(dta)
        dta.Update(dts, "Type_de_produit") //La génération SQL dynamique de DeleteCommand n'est pas prise en charge pour un SelectCommand qui ne retourne pas des infomations de colonne clé
 
 
    End Sub

Vous savez pourquoi ?

23/04/2015, 09h41
jgresse1025

Petite precision: ma table access contient deux colonne (Id_produit et Tpe_de_produit)
Mon formulaire contient une datagridview dans laquelle je ne viens africher que la colonne type_de_produit, une textbox ou l'on vient ecrire le nom du type de produit et des bouton pou ajouter, supprimer et modifier
23/04/2015, 09h42
Abbé Assy

Bonjour!
l'événement SelectionChanged de ton DataGridView, as-tu essayé d'utiliser la requête "Delete" suivi de "where?
23/04/2015, 10h11
jgresse1025

Oui j'ai essayer et ça marche pas
23/04/2015, 10h20
Abbé Assy

Fais-nous voir ton code et quelle est la base de donnée que tu utilises?

Voila mon code.
J'arrive à ajouter mais pas a supprimer et modifier.
Ma base de donnée est Access

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
 
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
 
Public Class TypeDeProduit
    'Déclaration de la variable pour la connection      
    Private cnx As OleDbConnection
    'Déclaration de la variable pour la commande       
    Private cmd As OleDbCommand
    'Déclaration de la variable pour le dataadapter
    Private dta As OleDbDataAdapter
    'Déclaration de la variable pour le dataset      
    Private dts As New DataSet
    'Déclaration de la variable pour la requête      
    Private sql As String
    'Déclaration de la variable pour la datatable
    Private dtt As DataTable
    'Déclaration de la variable pour le datarow      
    Private dtr As DataRow
    'Déclaration de la variable pour le Nº de l'enregistrement       
    Private rownum As Integer
    'Déclaration de la variable pour la connectionstring      
    Private cnxstr As String
    'Déclaration de la variable pour le commandbuilder      
    Private cmdb As OleDbCommandBuilder
    Private Sub TypeDeProduit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'ouverture de la connection (à partir du répertoire de l'application) sur la même ligne      
        cnxstr = "provider = microsoft.ace.oledb.12.0 ; data source = C:\Users\mto\Desktop\MINI-ERP\ERP.accdb;"
        cnx = New OleDbConnection
        cnx.ConnectionString = cnxstr
        cnx.Open()
 
        'Création de la requête sql      
        sql = "select * from TypeDeProduit"
 
        '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, "Type_de_produit")
 
        'On charge la datatable (dtt) grâce à la propriété tables du dataset (dts)
        dtt = dts.Tables("Type_de_produit")
 
        DataGridView1.DataSource = dts
        DataGridView1.DataMember = dtt.ToString
        DataGridView1.Columns("Type_de_produit").Width = 210
    End Sub
 
    Private Sub Fermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fermer.Click
        Me.Close()
    End Sub
 
    Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
        If TextBox1.Text = String.Empty Then
 
        Else
 
            dts.Clear()
            dta = New OleDbDataAdapter("SELECT TypeDeProduit.* FROM TypeDeProduit", cnx)
            dta.Fill(dts, "Type_de_produit")
 
            dtr = dts.Tables("Type_de_produit").NewRow
            dtr(1) = Me.TextBox1.Text
            MessageBox.Show("Bien ajouté")
 
            dts.Tables("Type_de_produit").Rows.Add(dtr)
 
            DataGridView1.DataSource = dts
            DataGridView1.DataMember = dts.Tables("Type_de_produit").ToString
 
            cmdb = New OleDbCommandBuilder(dta)
            dta.Update(dts, "Type_de_produit")
 
            Me.TextBox1.Text = String.Empty
        End If
    End Sub
 
    Private Sub DataGridView1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
        TextBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim rownum As Integer
        rownum = DataGridView1.CurrentRow.Index
        dts.Tables("Type_de_produit").Rows(rownum).Delete()
        cmdb = New OleDbCommandBuilder(dta)
        dta.Update(dts, "Type_de_produit")
 
    End Sub
End Class

23/04/2015, 10h47
Abbé Assy

Ok,le problème est sans doute liée à ton code.Accorde nous du temps,pour pouvoir chercher à résoudre ton problème.:)

D'accord.

J'ai trouvé le code pour la suppression.
Il me reste plus qu'à trouver celui pour la modification.
Je cherche egalemen de mon cote
Voici le code de la suppression que j'ai utilisé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Delete.Click
        Dim dr As DataGridViewRow
        For Each dr In DataGridView1.SelectedRows
            DataGridView1.Rows.Remove(dr)
        Next
 
        DataGridView1.DataSource = dts
        DataGridView1.DataMember = dts.Tables("Type_de_produit").ToString
 
        cmdb = New OleDbCommandBuilder(dta)
        dta.Update(dts, "Type_de_produit")
 
    End Sub

23/04/2015, 11h34
jgresse1025

En fait mon code ne marche pas tant que ça.
Je suis obligé de selectionner toute les colonne dans ma equete pour que la suppression se fasse et je ne peux pas supprimer une ligne que je viens d'ajouter
24/04/2015, 15h18
Abbé Assy

Avec le databinding sources,tu pourrais aisément résoudre ces problèmes!Mais bon,on continue toujours la recherche.:P

Bonjour
Pourquoi avoir besoin d'un code pour la supression d'un row du datagridview
tu cliques sur la ligne et ensuite clique la touche del
et ensuite pour mettre à jour le db
pareil pour ajouter une rangée et pour changer les données

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
Private ObjetCommandBuilder As OleDbCommandBuilder
 Private dta  As OleDbDataAdapter
  Private   cnx  As New OleDbConnection
 Private dts As New DataSet
 
 Private Sub TypeDeProduit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'ouverture de la connection (à partir du répertoire de l'application) sur la même ligne      
        cnxstr = "provider = microsoft.ace.oledb.12.0 ; data source = C:\Users\mto\Desktop\MINI-ERP\ERP.accdb;"
        cnx.ConnectionString = cnxstr
        cnx.Open()
        dim sql as string 
 
        'Création de la requête sql      
        sql = "select * from TypeDeProduit"
       'Création du dataadapter (dta) que l'on instancie    
        dta = New OleDbDataAdapter(sql, cnx.ConnectionString)
 
        'On charge le dataset (dts) grâce à la propriété fill du dataadapter (dta)      
        dta.Fill(dts, "Type_de_produit")
        'on charge le dgv
         DataGridView1.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Sunken
        DataGridView1.Font = New Font("arial", 14, FontStyle.Bold, GraphicsUnit.Pixel)
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
        DataGridView1.EnableHeadersVisualStyles = False
        DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.PowderBlue
        DataGridView1.DataSource = dts.Tables(Type_de_produit) 
        DataGridView1.AutoSize = True
 
    End Sub
 
 Private Sub buttonupdate_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles buttonupdate.MouseClick
        ObjetCommandBuilder = New OleDbCommandBuilder(dta)
        ObjetCommandBuilder.GetUpdateCommand()
        dta.Update(dts.Tables("Type_de_produit"))
    End Sub