studenthome.aspx.vb

Website for Training and Palcement Officer

Imports System.Data
Imports System.Data.SqlClient

Partial Class student_StudentHome
    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
        Dim con As SqlConnection = New SqlConnection(cs)
        Dim cmd As SqlCommand = New SqlCommand("select * from STUDTAB where UID=@id", con)
        cmd.Parameters.AddWithValue("@id", Request.QueryString("ID"))
        Try
            con.Open()
            Dim dr As SqlDataReader = cmd.ExecuteReader()
            If Not (dr.Read()) Then
                Response.Redirect("~/student/CreateStud.aspx?ID=" + Request.QueryString("ID"))
            Else
                'Dim temp1 As String = ""
                lbUID.Text = dr.GetString(0)
                lbName.Text = dr.GetString(1)
                lbStream.Text = dr.GetString(2)
                txbAddress.Text = dr.GetString(3)
                If dr.IsDBNull(4) Then
                    lbMob.Text = "No" 'DBNull.Value.ToString()
                Else
                    lbMob.Text = dr.GetString(4)
                End If
                If dr.IsDBNull(5) Then
                    lbPhno.Text = "No" 'DBNull.Value.ToString()
                Else
                    lbPhno.Text = dr.GetString(5)
                End If
                lbAggregate.Text() = dr.GetValue(6).ToString()
                lbSSC.Text() = dr.GetValue(7).ToString()
                If dr.GetValue(9) = 100 Then
                    lbDiploma.Text = "No"
                    lbHSC.Text() = dr.GetValue(8) '.ToString()
                Else
                    lbDiploma.Text = dr.GetValue(9).ToString()
                    lbHSC.Text() = "No"
                End If
                lbDOB.Text() = dr.GetString(10)
                lbEmail.Text() = dr.GetString(11)
                lbLKT.Text() = dr.GetValue(12).ToString()
                lbTKT.Text() = dr.GetValue(13).ToString()
                lbYear.Text() = dr.GetString(14)
                If dr.IsDBNull(15) Then
                    lbFE.Text = "No"
                Else
                    lbFE.Text = dr.GetValue(15).ToString()

                End If
                lbSE.Text = dr.GetValue(16).ToString()
                lbTE.Text() = dr.GetValue(17).ToString()
                If dr.IsDBNull(18) Then
                    lbBE.Text = "No"
                Else
                    lbBE.Text = dr.GetValue(18).ToString()
                End If
            End If
            con.Close()
            'Response.Redirect("~/student/StudentHome.aspx?ID=" + Request.QueryString("ID"))
        Catch ex As Exception
            lbStatus.Text = ex.Message.ToString()
        End Try
    End Sub
End Class