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
|
Private Function ModifierAstuce(ByRef Id As Integer, ByVal XIdType As Integer, Nom As String, Description As String, Code As String, Note As String, Remarque As String, Commentaire As String, Lien As String) As Boolean
Dim SQL As String
ParametroConexion()
MaConexion.Open()
MaCommande = MaConexion.CreateCommand()
SQL = "UPDATE T_ASTUCEPROG (XIdTypeAstuce, NomAstuce, DescripAstuce, CodeAstuce, NoteAstuce, RemAstuce, CommentAstuce, LienAstuce) VALUES(@XIdType, @Nom, @Description, @Code, @Note, @Remarque, @Commentaire, @Lien) WHERE (IdAstuce "
MaCommande.CommandText = SQL
MaCommande.Parameters.AddWithValue("@XIdType", XIdType)
MaCommande.Parameters.AddWithValue("@Nom", Nom)
MaCommande.Parameters.AddWithValue("@Description", Description)
MaCommande.Parameters.AddWithValue("@Code", Code)
MaCommande.Parameters.AddWithValue("@Note", Note)
MaCommande.Parameters.AddWithValue("@Remarque", Remarque)
MaCommande.Parameters.AddWithValue("@Commentaire", Commentaire)
MaCommande.Parameters.AddWithValue("@Lien", Lien)
If MaCommande.ExecuteNonQuery() = 1 Then
' Ajout effectué
Else
' Erreur
MaConexion.Close()
MaCommande.Dispose()
Return False
End If
SQL = " SELECT MAX(IdAstuce) FROM T_ASTUCEPROG"
MaCommande.CommandText = SQL
Id = MaCommande.ExecuteScalar()
MaConexion.Close()
MaCommande.Dispose()
Return True
End Function
Private Sub Bp_modifier_Astuce_Click(sender As Object, e As EventArgs) Handles Bp_modifier_Astuce.Click
Dim Idencour As Integer
If ModifierAstuce(Idencour, CB_Type.SelectedValue, TB_NomAstuce.Text, TB_DescripAstuce.Text, RTBCode.Text, RTB_NoteAstuce.Text, RTB_RemAstuce.Text, RTB_CommentAstuce.Text, TB_LienAstuce.Text) Then ' reçoit le nouvel ID par ByRef de NouvelId
MesAstuces.Tables(NomTableAstuces).Rows.Add(Idencour, CB_Type.Text, TB_NomAstuce.Text, TB_DescripAstuce.Text, RTBCode.Text, RTB_NoteAstuce.Text, RTB_RemAstuce.Text, RTB_CommentAstuce.Text, TB_LienAstuce.Text) ' Si ok, on ajoute au DataTable
End If
End Sub |
Partager