- Private Sub dg_ItemCommand(ByVal sender As System.Object, ByVal e As DataGridCommandEventArgs) Handles dg.ItemCommand
-
- '"dg" est le nom du datagrid
- '"conO()" est connection OLEDB classique
- '"chkDel" est le nom des checkbox dans le datagrid
- '"label12" est le nom du label de la colonne dont je veux recuperer la valeur
-
- Dim dgi As DataGridItem
- Dim dt As Label
-
-
- conO()
-
- For Each dgi In dg.Items
-
- If CType(dgi.FindControl("chkDel"), CheckBox).Checked Then
-
- 'dans ce cas je recupere chaque valeurs checkee est je l'introduis dans une requette
- 'dans ce cas c'est pour supprimer les enregistrements selectionnes de ma table
-
- dt = CType(dgi.FindControl("label12"), Label)
- coun = New OleDbCommand("delete * from Matable where num like '" & dt.Text & "'", oCon)
- coun.ExecuteNonQuery()
-
- End If
-
- Next
-
- 'une fois termine je reactualse mon datagrid
-
- da1.SelectCommand = New OleDbCommand("select xxx,yyy,num from Matable", oCon)
- da1.Fill(ds1, "matable")
- dw = New DataView(ds1.Tables("matable"))
- dg.DataSource = dw
- dg.DataBind()
-
- oCon.Close()
-
- End Sub
Private Sub dg_ItemCommand(ByVal sender As System.Object, ByVal e As DataGridCommandEventArgs) Handles dg.ItemCommand
'"dg" est le nom du datagrid
'"conO()" est connection OLEDB classique
'"chkDel" est le nom des checkbox dans le datagrid
'"label12" est le nom du label de la colonne dont je veux recuperer la valeur
Dim dgi As DataGridItem
Dim dt As Label
conO()
For Each dgi In dg.Items
If CType(dgi.FindControl("chkDel"), CheckBox).Checked Then
'dans ce cas je recupere chaque valeurs checkee est je l'introduis dans une requette
'dans ce cas c'est pour supprimer les enregistrements selectionnes de ma table
dt = CType(dgi.FindControl("label12"), Label)
coun = New OleDbCommand("delete * from Matable where num like '" & dt.Text & "'", oCon)
coun.ExecuteNonQuery()
End If
Next
'une fois termine je reactualse mon datagrid
da1.SelectCommand = New OleDbCommand("select xxx,yyy,num from Matable", oCon)
da1.Fill(ds1, "matable")
dw = New DataView(ds1.Tables("matable"))
dg.DataSource = dw
dg.DataBind()
oCon.Close()
End Sub