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
|
Public Sub AjouterUtilisateur(ByVal newUser As MonAlbumLibrairie.Utilisateur) Implements ImyService.AjouterUtilisateur
Dim query As String
query = "INSERT INTO utilisateur (nom, prenom,adresse,idNiveau,pseudo,password) "
query += "VALUES (@nom,@prenom,@adresse,@idNiveau,@pseudo,@password)"
Dim cxString As New SqlConnection("Data Source=JEROME-PC\SQLEXPRESS;Initial Catalog=MonAlbum;Integrated Security=True")
Dim commande As SqlCommand = New SqlCommand(query)
OuvrirConnexion()
With commande.Parameters
.Add("@nom", SqlDbType.NVarChar, 50)
.Add("@prenom", SqlDbType.NVarChar, 50)
.Add("@adresse", SqlDbType.VarChar)
.Add("@idNiveau", SqlDbType.Int)
.Add("@pseudo", SqlDbType.VarChar, 15)
.Add("@password", SqlDbType.VarChar, 10)
End With
With commande
.Parameters("@nom").Value = newUser.nom
.Parameters("@prenom").Value = newUser.prenom
.Parameters("@adresse").Value = newUser.adresse
.Parameters("@idNiveau").Value = newUser.idNiveau
.Parameters("@pseudo").Value = newUser.pseudo
.Parameters("@password").Value = newUser.password
End With
OuvrirConnexion()
commande.ExecuteNonQuery()
FermerConnexion()
End Sub |
Partager