/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
- Imports System.Data
- Imports System.Data.SqlClient
-
-
- Namespace e_desk
-
- Partial Class closeproblem_user
- Inherits System.Web.UI.Page
-
- #Region " Web Form Designer Generated Code "
-
- 'This call is required by the Web Form Designer.
- <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
-
- End Sub
-
-
- Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
- 'CODEGEN: This method call is required by the Web Form Designer
- 'Do not modify it using the code editor.
- InitializeComponent()
- End Sub
-
- #End Region
-
- Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'Put user code to initialize the page here
- Dim con As SqlConnection = New SqlConnection("Server=(local);uid=sa;database=eDesk")
- con.Open()
- If Not IsPostBack Then
- Dim str As String
- str = "select problemid from problems_master where userid='" + Session("username") + "' and status = 'Open'"
- Dim cmd1 As SqlCommand = New SqlCommand(str, con)
- Dim dr As SqlDataReader
- dr = cmd1.ExecuteReader()
- t5.DataSource = dr
- t5.DataBind()
- End If
- con.Close()
- con.Open()
- Dim cmd As New SqlCommand("select * from Problems_master where userid = '" + Session("username") + "'", con)
- DataGrid1.DataSource = cmd.ExecuteReader
- DataGrid1.DataBind()
- End Sub
-
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim s8 As String = t5.SelectedItem.Value
-
- Dim con As SqlConnection = New SqlConnection("Server=(local);uid=sa;database=eDesk")
- con.Open()
-
- Dim Str As String = "update problems_master set status='Close' where problemid=" + s8
-
- Dim cmd As SqlCommand
- cmd = New SqlCommand(Str, con)
- cmd.ExecuteNonQuery()
- Response.Write(" Reocrd deleted")
- End Sub
- End Class
-
- End Namespace