/e_desk/closeproblem_user.aspx.vb

http://github.com/shafiqissani/eDesk-Systems · Visual Basic · 61 lines · 42 code · 15 blank · 4 comment · 0 complexity · e1df95210560d428f0c18aa6881dcb93 MD5 · raw file

  1. Imports System.Data
  2. Imports System.Data.SqlClient
  3. Namespace e_desk
  4. Partial Class closeproblem_user
  5. Inherits System.Web.UI.Page
  6. #Region " Web Form Designer Generated Code "
  7. 'This call is required by the Web Form Designer.
  8. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  9. End Sub
  10. Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
  11. 'CODEGEN: This method call is required by the Web Form Designer
  12. 'Do not modify it using the code editor.
  13. InitializeComponent()
  14. End Sub
  15. #End Region
  16. Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  17. 'Put user code to initialize the page here
  18. Dim con As SqlConnection = New SqlConnection("Server=(local);uid=sa;database=eDesk")
  19. con.Open()
  20. If Not IsPostBack Then
  21. Dim str As String
  22. str = "select problemid from problems_master where userid='" + Session("username") + "' and status = 'Open'"
  23. Dim cmd1 As SqlCommand = New SqlCommand(str, con)
  24. Dim dr As SqlDataReader
  25. dr = cmd1.ExecuteReader()
  26. t5.DataSource = dr
  27. t5.DataBind()
  28. End If
  29. con.Close()
  30. con.Open()
  31. Dim cmd As New SqlCommand("select * from Problems_master where userid = '" + Session("username") + "'", con)
  32. DataGrid1.DataSource = cmd.ExecuteReader
  33. DataGrid1.DataBind()
  34. End Sub
  35. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  36. Dim s8 As String = t5.SelectedItem.Value
  37. Dim con As SqlConnection = New SqlConnection("Server=(local);uid=sa;database=eDesk")
  38. con.Open()
  39. Dim Str As String = "update problems_master set status='Close' where problemid=" + s8
  40. Dim cmd As SqlCommand
  41. cmd = New SqlCommand(Str, con)
  42. cmd.ExecuteNonQuery()
  43. Response.Write(" Reocrd deleted")
  44. End Sub
  45. End Class
  46. End Namespace