updatepayees.aspx.vb

java voice chat based on java core ,, u need to extract it and run,, it is siimplee

Imports System.Data.SqlClient
Public Class updatepayees
    Inherits System.Web.UI.Page
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents lblmsg As System.Web.UI.WebControls.Label
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

#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
        If Not Page.IsPostBack Then
            GetPayees()
        End If
    End Sub

    Sub GetPayees()
        Dim con As New SqlConnection(Application("cs"))
        Dim da As New SqlDataAdapter("select * from payees where acno = @acno", con)
        da.SelectCommand.Parameters.Add("@acno", SqlDbType.VarChar, 10).Value = Session("acno")
        Dim ds As New DataSet()
        da.Fill(ds, "payees")
        DataGrid1.DataSource = ds.Tables(0)
        DataGrid1.DataBind()
    End Sub

    Private Sub DataGrid1_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.EditCommand
        DataGrid1.EditItemIndex = e.Item.ItemIndex
        GetPayees()
    End Sub

    Private Sub DataGrid1_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.CancelCommand
        DataGrid1.EditItemIndex = -1
        GetPayees()
    End Sub

    Private Sub DataGrid1_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand
        Dim payee As String
        Dim nickname As String

        payee = e.Item.Cells(2).Text
        nickname = CType(e.Item.Cells(3).Controls(0), TextBox).Text

        Dim con As New SqlConnection(Application("cs"))
        con.Open()
        Dim cmd As New SqlCommand("update payees set  nickname = @nickname where acno = @acno and payee = @payee", con)
        cmd.Parameters.Add("@nickname", SqlDbType.VarChar, 20).Value = nickname
        cmd.Parameters.Add("@acno", SqlDbType.VarChar, 10).Value = Session("acno")
        cmd.Parameters.Add("@payee", SqlDbType.VarChar, 10).Value = payee
        Try
            cmd.ExecuteNonQuery()
            lblmsg.text = "Updation Sucessful"
            DataGrid1.EditItemIndex = -1
            GetPayees()
        Catch ex As Exception
            lblmsg.text = "Error --> " & ex.Message
        Finally
            con.Close()
        End Try

    End Sub

    Private Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.DeleteCommand
        Dim payee As String
        payee = e.Item.Cells(2).Text
        Dim con As New SqlConnection(Application("cs"))
        con.Open()
        Dim cmd As New SqlCommand("delete from  payees   where acno = @acno and payee = @payee", con)
        cmd.Parameters.Add("@acno", SqlDbType.VarChar, 10).Value = Session("acno")
        cmd.Parameters.Add("@payee", SqlDbType.VarChar, 10).Value = payee
        Try
            cmd.ExecuteNonQuery()
            lblmsg.Text = "Deletion Is Sucessful!"
            GetPayees()
        Catch ex As Exception
            lblmsg.Text = "Error --> " & ex.Message
        Finally
            con.Close()
        End Try

    End Sub
End Class