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 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82
| Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
'-------------------------------------
' Variables declaration
'-------------------------------------
Dim objCommand As SqlCommand
Dim objParam As SqlParameter
Dim dt_KeywordsID As DataTable = New DataTable("produit")
Dim dtc_KeywordsID As DataColumn
Dim myConnection As SqlConnection = New SqlConnection("data source=UC033\DEV;integrated security=SSPI;initial catalog=BUDGET2")
'-------------------------------------
' Create a connection to SQL Server
'-------------------------------------
objCommand = New SqlCommand("dbo.spd_produit_insert", myConnection)
objCommand.CommandType = CommandType.StoredProcedure
objCommand.Connection.Open()
'-------------------------------------
' Create parameters for sp
'-------------------------------------
objParam = objCommand.Parameters.Add("@nom", SqlDbType.VarChar, 50)
objParam.Value = nom.Text
'-------------------------------------
' Prepare table as parameter
'-------------------------------------
dtc_KeywordsID = New DataColumn()
dtc_KeywordsID.ColumnName = "id_produit"
dt_KeywordsID.Columns.Add(dtc_KeywordsID)
'-------------------------------------
' Store procedure execution
'-------------------------------------
objCommand.ExecuteNonQuery()
'-------------------------------------
' Close the connexion object
'-------------------------------------
objCommand.Connection.Close()
'-----------------------------------------------------------------------------------------------------------
'creation d'une collection pour conserver l'état de la page et verifier que tous les champs soit remplis
'-----------------------------------------------------------------------------------------------------------
Dim save_state As New Collection
Dim colErrorMessages As New Collection
If nom.Text = "" Then
colErrorMessages.Add(1, "Vous devez renseigner le champ Nom.")
Else
save_state.Add("nom", nom.Text)
End If
Session("StatePage") = save_state
Session("error") = colErrorMessages
'---------------------------
'message de confirmation
'---------------------------
Session("lblvalidation") = "l'ajout est bien effectuer"
Response.Redirect("message.aspx")
End Sub |
Partager