deleteaccount.aspx.vb

Website for Training and Palcement Officer

Imports System.Data
Imports System.Data.SqlClient

Partial Class tpo_Default
    Inherits System.Web.UI.Page
    Dim cs As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"
    Dim uid(10) As String
    Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles drlType.SelectedIndexChanged
        

    End Sub

    Protected Sub bnDelete_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles bnDelete.Click
        Dim con As SqlConnection = New SqlConnection(cs)
        Select Case drlType.SelectedIndex()
            Case 1
                Dim cmd1 As SqlCommand = New SqlCommand("delete from STUDPASSTAB where(UID=@uid) ", con)
                cmd1.Parameters.AddWithValue("@uid", lbxName.SelectedValue().ToString())
                Try
                    con.Open()
                    Dim i As Integer = cmd1.ExecuteNonQuery()
                    con.Close()
                    If i = 0 Then
                        lbError.Text = "Error in deleting account"
                    Else
                        'Dim cmd As SqlCommand = New SqlCommand("select UID,NAME from STUDTAB", con)
                        Dim item As ListItem = New ListItem()
                        item = lbxName.SelectedItem()
                        lbxName.Items.Remove(item)
                        'lbxName.ClearSelection()
                        Response.Redirect("~/co-ordinator/Success.aspx?ID=" + Request.QueryString("ID"))
                    End If
                    
                Catch ex As Exception
                    lbError.Text = ex.Message.ToString()
                End Try
        End Select
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim con As SqlConnection = New SqlConnection(cs)
        Select Case drlType.SelectedIndex()
            Case 1
                Dim cmd As SqlCommand = New SqlCommand("select UID,NAME from STUDTAB", con)
                Try
                    con.Open()
                    Dim dr As SqlDataReader = cmd.ExecuteReader()
                    If dr.Read() Then
                        For i As Integer = 0 To 9 Step 1
                            If Not dr.Read() Then
                                Exit For
                            End If
                            Dim item As ListItem = New ListItem(dr.GetString(1), dr.GetString(0))
                            'uid(i) = dr.GetString(0)
                            lbxName.Items.Add(item)
                            'dr.NextResult()
                        Next i
                    End If
                Catch ex As Exception

                End Try
            Case 2
                Dim cmd As SqlCommand = New SqlCommand("select UID,NAME from CORDTAB", con)
                Try
                    con.Open()
                    Dim dr As SqlDataReader = cmd.ExecuteReader()
                    If dr.Read() Then
                        For i As Integer = 0 To 9 Step 1
                            If Not dr.Read() Then
                                Exit For
                            End If
                            Dim item As ListItem = New ListItem(dr.GetString(1), dr.GetString(0))
                            'uid(i) = dr.GetString(0)
                            lbxName.Items.Add(item)
                            'dr.NextResult()
                        Next i
                    Else
                        lbError.Text = "Tere is no account to delete"
                    End If
                Catch ex As Exception
                End Try
            Case 3
                Dim cmd As SqlCommand = New SqlCommand("select UID,NAME from HRTAB", con)
                Try
                    con.Open()
                    Dim dr As SqlDataReader = cmd.ExecuteReader()
                    If dr.Read() Then
                        For i As Integer = 0 To 10 Step 1
                            If Not dr.Read() Then
                                Exit For
                            End If
                            Dim item As ListItem = New ListItem(dr.GetString(1), dr.GetString(0))
                            'uid(i) = dr.GetString(0)
                            lbxName.Items.Add(item)
                            'dr.NextResult()
                        Next i
                    End If
                Catch ex As Exception

                End Try
        End Select

    End Sub
End Class