I have a stored procedure:
CREATE PROCEDURE [AddResident]
(
@residentID int OUTPUT,
@resNames [varchar](100),
@LName [varchar] (100),
@resAddress [varchar](50),
@resEMail [varchar](50),
@resPhone [varchar](50),
@statusID [int])
AS INSERT INTO [RHills].[dbo].[tblResidents]
( [resNames],
[LName],
[resAddress],
[resEMail],
[resPhone],
[statusID])
VALUES
( @resNames,
@LName,
@resAddress,
@resEMail,
@resPhone,
@statusID)
Select @@IDENTITY
GO
When I run this through the execute in Visual Web Developer 2005, it will update the database. When I enter this data in the webpage, it runs but does not update the database.
The code in the webpage is:
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim connectionString As String = WebConfigurationManager.ConnectionStrings("RHillsC onnectionString").ConnectionString
Dim con As New SqlConnection(connectionString)
Dim cmd As New SqlCommand("AddResident", con)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add(New SqlParameter("@resNames", SqlDbType.VarChar, 100))
cmd.Parameters("@resNames").Value = Me.txtNames.Text
cmd.Parameters.Add(New SqlParameter("@LName", SqlDbType.VarChar, 50))
cmd.Parameters("@LName").Value = Me.txtLName.Text
cmd.Parameters.Add(New SqlParameter("@address", SqlDbType.VarChar, 50))
cmd.Parameters("@address").Value = Me.txtAddress.Text
cmd.Parameters.Add(New SqlParameter("@email", SqlDbType.VarChar, 50))
cmd.Parameters("@email").Value = Me.txtEmail.Text
cmd.Parameters.Add(New SqlParameter("@phone", SqlDbType.VarChar, 15))
cmd.Parameters("@phone").Value = Me.txtPhone.Text
cmd.Parameters.Add(New SqlParameter("@statusID", SqlDbType.Int, 4))
cmd.Parameters("@statusID").Value = 1
cmd.Parameters.Add(New SqlParameter("@residentID", SqlDbType.Int, 4))
cmd.Parameters("@residentID").Direction = ParameterDirection.Output
Try
con.Open()
cmd.ExecuteNonQuery()
Catch ex As Exception
Finally
con.Close()
Me.txtLName.Text = ""
Me.txtNames.Text = ""
Me.txtPhone.Text = ""
Me.txtEmail.Text = ""
Me.txtAddress.Text = ""
End Try
End Sub
Why wont this update the database with the new data?