yandex
loader

please wait

  • Garry Buttler Feb-12-2019 06:49:53 AM ( 1 month ago )

     

    My DataGrid in Web page created using VB.Net 2003 obtains data from SQL and contains a Flag column. Each row has a button column added, so that the Flag for a row can change between 'Active' and 'Inactive' with a single click.

     

    Here is the code:

    Private Sub CellClick(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) Handles DataGrid1.ItemCommand
    
        Session("Emp") = e.Item.Cells(2).Text
        Session("Course") = e.Item.Cells(0).Text
        Session("Flag") = e.Item.Cells(8).Text
    
        'Change Flag Status in SQL
        If Session("Flag") = "Active" Then
            Dim updateState As String = "update [DB3].[dbo].[EMP_COURSE]" _
                                & "set [Flag] = 'Inactive'" _
                                & "where Employee_No = '" & Session("Emp") & "'" _
                                & "and CourseCode = '" & Session("Course") & "'"
    
            Dim conn = SQLDB
            Dim command As New SqlCommand(updateState, conn)
    
    
            conn.open()
            command.ExecuteNonQuery()
            conn.close()
    
            conn.dispose()
            command.Dispose()
    
        ElseIf Session("Flag") = "Inactive" Then
            Dim updateState As String = "update [SQLDB3].[dbo].[EMP_COURSE]" _
                                & "set [Flag] = 'Active'" _
                                & "where Employee_No = '" & Session("Emp") & "'" _
                                & "and CourseCode = '" & Session("Course") & "'"
    
            Dim conn = SQLDB
            Dim command As New SqlCommand(updateState, conn)
    
    
            conn.open()
            command.ExecuteNonQuery()
            conn.close()
    
            conn.dispose()
            command.Dispose()
    
        End If
    
        'auto-refresh page
        Response.Redirect(HttpContext.Current.Request.Url

Please login

Similar Discussion

Recommended For You