coordacc.aspx.vb

Website for Training and Palcement Officer

Imports System.Data
Imports System.Data.SqlClient
Partial Class tpo_coordAcc
    Inherits System.Web.UI.Page
    Dim cs As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    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 CORDTAB (UID,NAME,STREAM,PHNO,MOB,EMAIL) values(@uid,@name,@stream,@phno,@mob,@email)", con)
            If drlStream.SelectedIndex() = 0 Then
                lbError.Text = "Please select stream"
                Exit Sub
            Else
                cmd.Parameters.AddWithValue("@stream", drlStream.SelectedValue().ToString())
            End If
            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("~/co-ordinator/CordHome.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

    End Sub
End Class