Categories

See More
Popular Forum

MBA (4887) B.Tech (1769) Engineering (1486) Class 12 (1030) Study Abroad (1004) Computer Science and Engineering (988) Business Management Studies (865) BBA (846) Diploma (746) CAT (651) B.Com (648) B.Sc (643) JEE Mains (618) Mechanical Engineering (574) Exam (525) India (462) Career (452) All Time Q&A (439) Mass Communication (427) BCA (417) Science (384) Computers & IT (Non-Engg) (383) Medicine & Health Sciences (381) Hotel Management (373) Civil Engineering (353) MCA (349) Tuteehub Top Questions (348) Distance (340) Colleges in India (334)
See More
( 10 months ago )

How to get DataGrid to change data row without the need to refresh page? [VB.Net 2003]

General Tech Bugs & Fixes
Max. 2000 characters
Replies

usr_profile.png
Garry Buttler

User

( 10 months 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
			
        

what's your interest