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() |
Partager