Je n'arrive pas à supprimer avec un DataSet

Version imprimable

J'ai ce code, dites-moi svp ce qui ne va pas et pourquoi je n'arrive pas à supprimer?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
        Dim cmd As SqlCommand = New SqlCommand("Select * from articles_design where idarticle =" & Val(Me.dgvDesignation.CurrentRow.Cells(0).Value), cnx)
        Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
        Dim ds As New DataSet
        Dim CmdBuild As SqlCommandBuilder
        ds.Clear()
        da.Fill(ds, "articles_design")
        '--
        Dim i As Integer
        ds.Tables("articles_design").Rows(i).Delete()
        CmdBuild = New SqlCommandBuilder(da)
        da.Update(ds, "articles_design")
        ds.Clear()
        da.Fill(ds, "articles_design")
        Dim dt As DataTable
        dt = ds.Tables("articles_design")
        Me.dgvDesignation.DataSource = dt
        Me.dgvDesignation.Refresh()

25/08/2008, 12h56
dietrich

a priori tu n initialise pas to i lorsque tu le declares
il faudrait que tu utilises une boucle

Même avec une boucle ca ne fonctionne pas, j'ai l'erreur suivante :

La génération SQL dynamique de DeleteCommand n'est pas prise en charge pour un SelectCommand qui ne retourne pas des informations de colonne clé.

Mon code est :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim i As Integer
        i = 0
        For i = 0 To ds.Tables(0).Rows.Count - 1
            ds.Tables("articles_design").Rows(i).Delete()
        Next i
        CmdBuild = New SqlCommandBuilder(da)
        da.Update(ds, "articles_design")
        ds.Clear()
        da.Fill(ds, "articles_design")
        Dim dt As DataTable
        dt = ds.Tables("articles_design")
        Me.dgvDesignation.DataSource = dt
        Me.dgvDesignation.Refresh()