Hello,
I am working through the “Build Your Own ASP.NET4 Website” book and am at the part where you build the AdmimTools.apsx page. I have it all working fine and wanted to venture out on my own and add a little additional functionality.
Essentially I have a button at the top (newEmpButton) that when clicked will clear the form of any values and enable the visibility of a new button (addEmpButton). A label also appears that tell the user to enter the informatoin and click (addEmpButton) to submit. Then the user is redirected back to the same page where the list of employees is now refreshed with the employee that was just added.
The data is not entered and I receive the “dbErrorLabel” message. I have searched the code for hours trying different things to no avail. The error resides in the addEmpButton_Click Sub.
Can anyone help me figure out what the issue is?
*Note: the @EmployeeID and @DepartmentID are assigned a value as they are not part of the form layout and cannot be Null. These values are the next incremental value in my database in this table.
Protected Sub newEmpButton_Click(sender As Object, e As System.EventArgs) Handles newEmpButton.Click
addEmpLabel.Text = "Please enter new employee info below and click ADD EMPLOYEE<br />"
nameTextBox.Text = ""
userNameTextBox.Text = ""
addressTextBox.Text = ""
cityTextBox.Text = ""
stateTextBox.Text = ""
zipTextBox.Text = ""
homePhoneTextBox.Text = ""
extensionTextBox.Text = ""
mobilePhoneTextBox.Text = ""
updateButton.Enabled = False
deleteButton.Enabled = False
updateButton.Enabled = False
addEmpButton.Visible = True
addEmpButton.Enabled = True
End Sub
Protected Sub addEmpButton_Click(sender As Object, e As System.EventArgs) Handles addEmpButton.Click
If Page.IsValid Then
Dim conn As SqlConnection
Dim comm As SqlCommand
Dim connectionString As String = ConfigurationManager.ConnectionStrings("Dorknozzle").ConnectionString
conn = New SqlConnection(connectionString)
comm = New SqlCommand( "INSERT INTO Employees (EmployeeID, DepartmentID, Name, " & _
"Username, Password, Address, City, State, Zip, HomePhone, Extension, MobilePhone) " & _
"VALUES (@EmployeeID, @DepartmentID, @Name, @Username, @Password, @Address, @City, @State, @Zip, @HomePhone " & _
"@Extension, @MobilePhone)", conn)
comm.Parameters.Add("@EmployeeID", System.Data.SqlDbType.Int)
comm.Parameters("@EmployeeID").Value = 14
comm.Parameters.Add("@DepartmentID", System.Data.SqlDbType.Int)
comm.Parameters("@DepartmentID").Value = 8
comm.Parameters.Add("@Name", System.Data.SqlDbType.NVarChar, 50)
comm.Parameters("@Name").Value = nameTextBox.Text
comm.Parameters.Add("@Username", System.Data.SqlDbType.NVarChar, 50)
comm.Parameters("@Username").Value = userNameTextBox.Text
comm.Parameters.Add("@Password", System.Data.SqlDbType.NVarChar, 50)
comm.Parameters("@Password").Value = "heather"
comm.Parameters.Add("@Address", System.Data.SqlDbType.NVarChar, 50)
comm.Parameters("@Address").Value = addressTextBox.Text
comm.Parameters.Add("@City", System.Data.SqlDbType.NVarChar, 50)
comm.Parameters("@City").Value = cityTextBox.Text
comm.Parameters.Add("@State", System.Data.SqlDbType.NVarChar, 50)
comm.Parameters("@State").Value = stateTextBox.Text
comm.Parameters.Add("@Zip", System.Data.SqlDbType.NVarChar, 50)
comm.Parameters("@Zip").Value = zipTextBox.Text
comm.Parameters.Add("@HomePhone", System.Data.SqlDbType.NVarChar, 50)
comm.Parameters("@HomePhone").Value = homePhoneTextBox.Text
comm.Parameters.Add("@Extension", System.Data.SqlDbType.NVarChar, 50)
comm.Parameters("@Extension").Value = extensionTextBox.Text
comm.Parameters.Add("@MobilePhone", System.Data.SqlDbType.NVarChar, 50)
comm.Parameters("@MobilePhone").Value = mobilePhoneTextBox.Text
Try
conn.Open()
comm.ExecuteNonQuery()
Response.Redirect("AdminTools.aspx")
Catch
dberrorlabel.Text = "Error adding new employee!"
Finally
' Close the connection
conn.Close()
End Try
End If
LoadEmployeesList()
End Sub