hracc.aspx.vb

Website for Training and Palcement Officer

Imports System.Data
Imports System.Data.SqlClient
Partial Class tpo_HRAcc
    Inherits System.Web.UI.Page
    Dim cs As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"
    Protected Sub bnSubmit_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles bnSubmit.Click
        Page.Validate()
        If Page.IsValid() Then
            Dim con As SqlConnection = New SqlConnection(cs)
            Dim cmd As SqlCommand = New SqlCommand("insert into HRTAB (UID,NAME,COMP,PHNO,MOB,EMAIL) values(@uid,@name,@compn,@phno,@mob,@email)", con)
            cmd.Parameters.AddWithValue("@compn", txbCompany.Text.ToString())
            cmd.Parameters.AddWithValue("@uid", txbUID.Text.ToString())
            cmd.Parameters.AddWithValue("@name", txbName.Text.ToString())
            If Not Equals(txbPhno.Text.ToString(), "") Then
                cmd.Parameters.AddWithValue("@phno", txbPhno.Text.ToString())
            Else
                cmd.Parameters.AddWithValue("@phno", DBNull.Value)
            End If
            If Not Equals(txbMob.Text.ToString(), "") Then
                cmd.Parameters.AddWithValue("@mob", txbMob.Text.ToString())
            Else
                cmd.Parameters.AddWithValue("@mob", DBNull.Value)

            End If
            cmd.Parameters.AddWithValue("@email", txbEmail.Text.ToString())
            Try
                con.Open()
                Dim i As Integer = cmd.ExecuteNonQuery()
                con.Close()
                If i = 0 Then
                    lbError.Text = "Problem in inserting the record"
                Else
                    Response.Redirect("~/HR/HRHome.aspx?ID=" + Request.QueryString("ID").ToString())
                End If
            Catch ex As Exception
                If ex.Message.ToString.Contains("PRIMARY KEY") Or ex.Message.ToString.Contains("FOREIGN KEY") Then
                    lbError.Text = "Please enter your UID correctly"
                Else
                    lbError.Text = "Error in database connection" + ex.Message.ToString()
                End If
            End Try

        End If

    End Sub

    Protected Sub bnCancel_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles bnCancel.Click
        Response.Redirect("~/Default.aspx")
    End Sub
End Class