PROCEDURE STOCKEE => INSERTION DES DONNEES DANS UNE TABLE

--PROCEDURE STOCKEE AJOUT 

create  proc ajout 

--DELCARATIONS VARIABLES
@insertnom       varchar(20),
@insertprenom    varchar(20),
@insertadresse   varchar(50),
@insertville     varchar(30),
@inserttelephone varchar(20)


--REQUETE INSERTION DS LA TABLE UTILISATEURS
as
insert  into dbo.utilisateurs (nom, prenom, adresse, ville, telephone)
--VALEURS 
 values (@insertnom, @insertprenom, @insertadresse, @insertville, @inserttelephone)



'-----  FORMULAIRE AJOUT DE CONTACT -----------

'ENREGISTREMENT DES DONNEES DS LA BASE
    Sub BtnValide_Click(sender As Object, e As EventArgs)
    
       ' ---- VARIABLE CONTENANT LA PAGE DE REDIRECTION ----
    dim RedirectionURL as string= "AfficheFile.aspx"
    
    
     '----  SI LE TEXTBOXNOM EST VIDE ON AFFICHE UN P TIT MESSAGE ERREUR ---
    
      IF (txtboxnom.text = "") then
         labelerreur.text = "Veuillez completer le formulaire svp...!"
    
      ' ----SINON ON ENvOIT TOUTES LES DONNEES A LA PROCEDURE STOCKEE ---
    
      Else
    
      ' --- RECUPERATION CONNECTION  DS LE FICHIER GLOBAL.ASAX ---
        myConnection = Ctype(Session("myConnection"),sqlConnection)
    
    
       '--- DECLARATION -------
        Dim  Mycommand as new sqlcommand
        MyCommand = New SqlCommand("ajout",MyConnection)
        MyCommand.CommandType = commandType.StoredProcedure
        Dim CommandAdapter As SqlDataAdapter
    
        '---- PARAMETRE PASSE A LA PROCEDURE STOCKEE => AJOUT -----
        '---- ON PLACE DONC LES VALEURS CONTENUES DS LES TEXTBOX ----
        '---  DS LES VARIABLES POUR LA PROCEDURE STOCKEE      ----
        Mycommand.parameters.add("@insertnom", SqlDbType.nvarchar).value = Txtboxnom.text
        Mycommand.parameters.add("@insertprenom", SqlDbType.nvarchar).value = TxtBoxprenom.text
        Mycommand.parameters.add("@insertadresse", SqlDbType.nvarchar).value = TxtBoxad.text
        Mycommand.parameters.add("@insertville", SqlDbType.nvarchar).value = TxtBoxvi.text
        Mycommand.parameters.add("@inserttelephone", SqlDbType.nvarchar).value =TxtBoxtel.text
    
        '----GESTION ERREURS -----------
    
    
        Try
         ' ---ici on met le code à exécuter risquant d’engendrer l’erreur
    
          '----- EXECUTE LA COMMANDE -----
         'Exécute une instruction Transact-SQL sur la connexion et peut retourner
         ' le nombre de lignes affectées
    
          Mycommand.ExecuteNonQuery()
    
          '---- REDIRECTION -------
          Response.Redirect(RedirectionURL)
    
    
    
        Catch
          ' ---ici on place le code à exécuter si l’erreur se produit
          labelerreur.text = "Une erreur s'est produite"
    
    
        End Try
         ' ----- FERMETURE CONNECTION ------
          Myconnection.close()
    
    'FIN
    end if
    
    
    End Sub

Télécharger le zip