1 2 3 4 5 6 7 8 9
| Dim i As Integer
dr_designations = ds_designations.Tables("articles_design").Rows(i)
dr_designations("adlibelle") = Me.dgvDesignation.CurrentRow.Cells("adlibelle").Value
dr_designations("adlangue") = Me.dgvDesignation.CurrentRow.Cells("adlangue").Value
da_designations.UpdateCommand = New SqlCommand("UPDATE articles_design SET adlangue=@Langue, adlibelle=@Libelle WHERE adlangue=@Langue and idarticle=" & Val(lblSKU.Text), cnx)
da_designations.UpdateCommand.Parameters.Add("@Langue", SqlDbType.Char, 2, "adlangue")
da_designations.UpdateCommand.Parameters.Add("@Libelle", SqlDbType.Char, 12, "adlibelle") |
Partager