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
    Dim item As ListItem = New ListItem()
    Dim se As Integer = 0
    Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles drlType.SelectedIndexChanged
        ' Dim s As Integer = lbxName.SelectedIndex()
        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 item1 As ListItem = New ListItem(dr.GetString(1), dr.GetString(0))
                            'uid(i) = dr.GetString(0)
                            lbxName.Items.Add(item1)
                            'dr.NextResult()
                        Next i
                        'lbxName.SelectedIndex = s
                    Else
                        lbError.Text = "Tere is no account to delete"
                    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 item1 As ListItem = New ListItem(dr.GetString(1), dr.GetString(0))
                            'uid(i) = dr.GetString(0)
                            lbxName.Items.Add(item1)
                            'dr.NextResult()
                        Next i
                        'lbxName.SelectedIndex = s
                    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 item1 As ListItem = New ListItem(dr.GetString(1), dr.GetString(0))
                            'uid(i) = dr.GetString(0)
                            lbxName.Items.Add(item1)
                            'dr.NextResult()
                        Next i
                        'lbxName.SelectedIndex = s
                    End If
                Catch ex As Exception

                End Try
        End Select

    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", item.Value.ToString())
                Try
                    con.Open()
                    Dim i As Integer = cmd1.ExecuteNonQuery()
                    con.Close()
                    If i = 0 Then
                        lbError.Text = "Error in deleting account" + lbxName.SelectedValue.ToString()
                    Else
                        lbxName.Items.RemoveAt(se)
                    End If
                    'Dim cmd As SqlCommand = New SqlCommand("select UID,NAME from STUDTAB", con)

                    'item = lbxName.SelectedItem()
                    'lbxName.Items.Remove(item)
                    'lbxName.ClearSelection()
                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
        'If Not Me.IsPostBack() Then
        'Dim count As Integer = lbxName.Items.Count()
        'For c As Integer = 0 To count Step 1

        'Next
        'End If

    End Sub

    Protected Sub lbxName_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbxName.SelectedIndexChanged
        item = lbxName.SelectedItem()
        lbHidden.Text = item.Value.ToString()
        se = lbxName.SelectedIndex()
        lbxName.ClearSelection()
    End Sub
End Class