Update requiert un DeleteCommand

Salut,

Je veut faire une interface qui manipule une BDD Oracle , pour cela j'ai utiliser un DataGridView lié a la BDD

L'ajout d'une ligne dans la source marche mais supprimer une ligne engendre une exception :

Citation:

Update requiert un DeleteCommand valide lors du passage de la collection DataRow avec des lignes supprimées

J'ai essai tout les solution proposer dans ce forum mais c'est kif kif ca marche pas.

Mon Code :

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
Private Sub XtraForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DataSet1.EQUIPEDETRAVAIL' table. You can move, or remove it, as needed.
        Me.EQUIPEDETRAVAILTableAdapter.Fill(Me.DataSet1.EQUIPEDETRAVAIL)
 
    End Sub
 
 
 Private Sub Supprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SupprimerButton.Click
        Dim i, pos As Integer
        For i = 0 To Me.DataGridView1.Rows.Count - 1
            If Me.DataGridView1.Rows.Item(i).Selected Then
                pos = i
 
            End If
        Next
        Me.DataGridView1.Rows.RemoveAt(pos)
 
 
    End Sub
 
    Private Sub Ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AjouterButton.Click
        Dim i, pos As Integer
        For i = 0 To Me.DataGridView1.Rows.Count - 1
            If Me.DataGridView1.Rows.Item(i).Selected Then
                pos = i
 
            End If
        Next
        'Me.DataGridView1.Rows.Add(TextEdit1.Text, TextEdit2.Text)
        Dim dr As DataRow = DataSet1.EQUIPEDETRAVAIL.NewRow
        dr(0) = TextEdit1.Text
        dr(1) = TextEdit2.Text
        DataSet1.EQUIPEDETRAVAIL.Rows.Add(dr)
        'Me.DataGridView1.Rows.Add(TextEdit1.Text, TextEdit2.Text)
    End Sub
 
 
    Private Sub EnregistrerButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrerButton.Click
 
        Dim PatTableAdapter = New DataSet1TableAdapters.EQUIPEDETRAVAILTableAdapter
        EQUIPEDETRAVAILBindingSource.EndEdit()
 
        'Vérifiez que des modifications ont eu lieu
 
        If DataSet1.HasChanges Then
 
            'Appliquer les changements dans la base de données
 
            PatTableAdapter.Update(DataSet1.EQUIPEDETRAVAIL)
 
        End If
    End Sub
End Class