Discussion :

[nadlog]

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 :

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 :

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

[zOoOm_10]

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
28
29
30
31
32
33
34
35
36
37
38
39
 
 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)
 
 
  Dim conn1 As MySqlConnection
        Dim myCommand1 As New MySqlCommand
        Dim strQuery1 As String
        conn1 = New MySqlConnection()
        conn1.ConnectionString = "Data Source= localhost;user id= utilisateur ;password=1234;database=dolibarr"
 
        Try
 
            conn1.Open()
 
 
 
            strQuery1 = "delete from table where champ='" &Me.DataGridView1(0, (pos)).Value&  "'"
 
            myCommand1.Connection = conn1
            myCommand1.CommandText = strQuery1
            myCommand1.ExecuteNonQuery()
            MsgBox("OK")
 
 
        Catch myerror As MySqlException
 
                  MsgBox("echec")
        Finally
            conn1.Dispose()
        End Try
end sub