Chapter 13
End If
End Sub
Sub Wizard1_FinishButtonClick(ByVal sender As Object, _
ByVal e As System.Web.UI.WebControls.WizardNavigationEventArgs)
‘ Insert the order and order lines into the database Dim conn As SqlConnection = Nothing
Dim trans As SqlTransaction = Nothing Dim cmd As SqlCommand
Try
conn = New SqlConnection(ConfigurationManager.ConnectionStrings(“WroxUnited”).ConnectionString
)
conn.Open()
trans = conn.BeginTransaction
cmd = New SqlCommand() cmd.Connection = conn cmd.Transaction = trans
‘ set the order details
cmd.CommandText = “INSERT INTO Orders(MemberName, OrderDate, Name, “ & _ “Address, County, PostCode, Country, Total) “ & _
“VALUES (@MemberName, @OrderDate, @Name, “ & _ “@Address, @County, @PostCode, @Country, @Total)”
cmd.Parameters.Add(“@MemberName”, Data.SqlDbType.VarChar, 50) cmd.Parameters.Add(“@OrderDate”, Data.SqlDbType.DateTime) cmd.Parameters.Add(“@Name”, Data.SqlDbType.VarChar, 50) cmd.Parameters.Add(“@Address”, Data.SqlDbType.VarChar, 255) cmd.Parameters.Add(“@County”, Data.SqlDbType.VarChar, 50) cmd.Parameters.Add(“@PostCode”, Data.SqlDbType.VarChar, 15) cmd.Parameters.Add(“@Country”, Data.SqlDbType.VarChar, 50) cmd.Parameters.Add(“@Total”, Data.SqlDbType.Money)
cmd.Parameters(“@MemberName”).Value = User.Identity.Name cmd.Parameters(“@OrderDate”).Value = DateTime.Now() cmd.Parameters(“@Name”).Value = _
CType(Wizard1.FindControl(“txtName”), TextBox).Text cmd.Parameters(“@Address”).Value = _
CType(Wizard1.FindControl(“txtAddress”), TextBox).Text cmd.Parameters(“@County”).Value = _
CType(Wizard1.FindControl(“txtCounty”), TextBox).Text cmd.Parameters(“@PostCode”).Value = _
CType(Wizard1.FindControl(“txtPostCode”), TextBox).Text cmd.Parameters(“@Country”).Value = _
CType(Wizard1.FindControl(“txtCountry”), TextBox).Text cmd.Parameters(“@Total”).Value = Profile.Cart.Total
Dim OrderID As Integer