Supression d'enregistrement d'un DataGridView

Version imprimable

Bonjour à tous,

En suivant mon aventure avec le DataGridView, j'ai reussi à faire un ButtonField que marche bien, il bien efface les donnés de ma base, mais il n'efface pas la ligne du DataGridView.

Il faut rafraichir la page manuellement pour qu'il s'efface du GridView.
J'ai essayé plusieurs solutions, mais aucune semble à marcher...
:arf:

Voilà mes codes:

Code:

1
2
3
4
5
<asp:GridView ID="lstDemandes" runat="server">
    <Columns>
        <asp:ButtonField CommandName="delete" Text="Supprimer" />
    </Columns>
</asp:GridView>

Le code-behind:

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
If (e.CommandName = "delete") Then
    Dim index As Integer = Convert.ToInt32(e.CommandArgument)
    Dim row As GridViewRow = Me.lstDemandes.Rows(index)
    strSQL = "SELECT T_demande_formation.* " & _
                 "FROM T_demande_formation " & _
                 "WHERE T_demande_formation.Demande=" & row.Cells(1).Text
    ObjetConnection = New OleDbConnection()
    ObjetConnection.ConnectionString = DRHConn
    ObjetConnection.Open()
    ObjetCommand = New OleDbCommand(strSQL)
    ObjetCommand.CommandTimeout = 0
    ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
    ObjetCommand.Connection() = ObjetConnection
    ObjetDataAdapter.Fill(ObjetDataSet, "T_demande_formation")
    ObjetDataTable = ObjetDataSet.Tables("T_demande_formation")
    Try
        ObjetDataTable.Rows(0).Delete()
        ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
        ObjetDataAdapter.Update(ObjetDataSet, "T_demande_formation")
        ObjetConnection = Nothing
        ObjetCommand = Nothing
        ObjetDataAdapter = Nothing
        Response.Redirect("frmDemandes.aspx")
    Catch
         Response.Write("Erreur 00000055: Erreur de connexion")
    End Try
End If

Je vous remercie en avance...

02/07/2009, 13h23
Plexi86
Bonjour.

Eh bien juste après la mise à jour de ta source de données, il te suffit de relancer le databind:
Code:

1 2 lstDemandes.databind()
02/07/2009, 13h57
Marc_27
Bonjour et merci pour ta reponse.

J'ai essayé plusieurs fois mais ça ne marche pas.

J'ai essayé en mettant entre
Code:

1 2 3 ObjetDataAdapter.Update(ObjetDataSet, "T_demande_formation") Me.lstDemandes.DataBind ObjetConnection = Nothing
J'ai essayé aussi:

Code:

Call RemplirTableau()

Mais rien ne marche pas...
02/07/2009, 14h05
Marc_27
J'ai trouvé quelque chose:

Si je mets une MsgBox dans form_Load:
Code:

1 2 3 4 Private Sub WebForm7_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load MsgBox("Page load") Call RemplirTableau() End Sub
Il supprime la ligne. Sans la MsgBox, il ne supprime pas!! :?
Aucune idée??

EDIT: ça sans avoir mis le DataBind...
03/07/2009, 06h45
Plexi86

Bonjour.

Une question pourquoi fais-tu une redirection à la fin du TRY? Est-ce vers la même page?

Cdt.
03/07/2009, 09h06
Marc_27

Je ne sais pas pourquoi, mais sans cette redirection (vers la memê page), j'ai l'erreur

Citation:

Erreur du serveur dans l'application '/'.

Lorsque je clique sur "Suprimmer".

J'ai fait d'autres essayes:

Si j'enleve le Response.Redirect("frmDemandes.aspx") dans le Try, memê avec le MsgBox la ligne ne se supprime pas.
Si j'enleve le MsgBox du Form_load et si je le mets avant Response.Redirect("frmDemandes.aspx") , la ligne est aussi bien supprimée.

La question devient alors:
Quelle est le role du MsgBox?
Code:

1 2 3 4 5 6 7 8 9 10 Try ObjetDataTable.Rows(0).Delete() ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter) ObjetDataAdapter.Update(ObjetDataSet, "T_demande_formation_bis") ObjetConnection = Nothing ObjetCommand = Nothing ObjetDataAdapter = Nothing MsgBox("1") Response.Redirect("frmDemandes.aspx") Catch

Je ne sais toujours pas pourquoi le DataSet n'ai pas marché, mais j'ai resolu en utilisant une requete non select:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub lstDemandes_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles lstDemandes.RowCommand
        If (e.CommandName = "delete") Then
            Dim index As Integer = Convert.ToInt32(e.CommandArgument)
            Dim row As GridViewRow = Me.lstDemandes.Rows(index)
            Try
                Dim connection As OleDbConnection = New OleDbConnection(DRHConn)
                connection.Open()
                Dim command As OleDbCommand = New OleDbCommand("DELETE FROM T_demande_formation WHERE T_demande_formation.Demande=" & row.Cells(1).Text, connection)
                Dim affectedrows As Integer = command.ExecuteNonQuery()
                connection.Close()
                Response.Redirect("frmDemandes.aspx")
            Catch
                Response.Write("Erreur 00000055: Erreur de connexion")
            End Try
        End If
    End Sub