Discussion :

[Marc_27]

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...


Voilà mes codes:

Code :

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

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 :

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
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...

[Plexi86]

Bonjour.

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

Code :

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

1
2
lstDemandes.databind()

[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 :

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

1
2
3
ObjetDataAdapter.Update(ObjetDataSet, "T_demande_formation")
Me.lstDemandes.DataBind
ObjetConnection = Nothing

J'ai essayé aussi:

Code :

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

Call RemplirTableau()

Mais rien ne marche pas...

[Marc_27]

J'ai trouvé quelque chose:

Si je mets une MsgBox dans form_Load:

Code :

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

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...

[Plexi86]

Bonjour.

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

Cdt.

[Marc_27]

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

Erreur du serveur dans l'application '/'.

Lorsque je clique sur "Suprimmer".

[Marc_27]

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 :

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

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

[Marc_27]

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

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
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