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
| Public Shared Function AddGroup(ByVal mod As modele) As Integer
Dim RetValue As Integer = 0
Dim sb As New StringBuilder()
If model.id = 0 Then
sb.Append("insert into groupe (nom_groupe,user_creat_group,description) ")
sb.Append("values (@titre,@user_creat_group,@description)")
Else
'$$$ a finir le update
End If
Using conn As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\ASPNETDB.MDF;" _
& "Integrated Security=True;User Instance=True")
conn.Open()
Using Cmd As New SqlClient.SqlCommand(sb.ToString, conn)
Cmd.Parameters.Add(New SqlParameter("@titre", mod.titre))
Cmd.Parameters.Add(New SqlParameter("@user_creat_group", mod.resp_creat_group))
Cmd.Parameters.Add(New SqlParameter("@description", mod.description))
RetValue = Cmd.ExecuteNonQuery()
End Using
End Using
Return RetValue
End Function |
Partager