addpayee.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 addpayee
    Inherits System.Web.UI.Page
    Protected WithEvents txtAcno As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnDetails As System.Web.UI.WebControls.Button
    Protected WithEvents txtName As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtBranch As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtNickName As System.Web.UI.WebControls.TextBox
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents lblmsg As System.Web.UI.WebControls.Label
    Protected WithEvents btnAdd As System.Web.UI.WebControls.Button

#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
    End Sub

    Private Sub btnDetails_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDetails.Click
        ' get details of account
        Dim con As New SqlConnection(Application("cs"))
        Dim dr As SqlDataReader
        Try
            con.Open()
            Dim cmd As New SqlCommand("select * from accounts where acno = @acno", con)
            cmd.Parameters.Add("@acno", SqlDbType.VarChar, 10).Value = txtAcno.Text
            dr = cmd.ExecuteReader()
            If dr.Read() Then
                ' display remaing information
                txtName.Text = dr.Item("cname")
                txtBranch.Text = dr.Item("branch") & "," & dr.Item("city")
                txtNickName.Enabled = True
                btnAdd.Enabled = True
            Else
                lblmsg.Text = "Invalid Account Number!"
            End If
        Catch ex As Exception
            lblmsg.Text = "Error --> " & ex.Message
        Finally
            dr.Close()
            con.Close()
        End Try
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim con As New SqlConnection(Application("cs"))
        Try
            con.Open()
            Dim cmd As New SqlCommand("insert into payees values(@acno,@payee,@nickname,getdate())", con)
            cmd.Parameters.Add("@acno", SqlDbType.VarChar, 10).Value = Session("acno")
            cmd.Parameters.Add("@payee", SqlDbType.VarChar, 10).Value = txtAcno.Text
            cmd.Parameters.Add("@nickname", SqlDbType.VarChar, 30).Value = txtNickName.Text
            cmd.ExecuteNonQuery()
            lblmsg.Text = "Payee Added Successfully!"
            txtAcno.Text = ""
            txtNickName.Text = ""
            txtName.Text = ""
            txtBranch.Text = ""
            txtNickName.Enabled = False
            btnAdd.Enabled = False
        Catch ex As Exception
            lblmsg.Text = "Error -->" & ex.Message
        Finally
            con.Close()
        End Try

    End Sub
End Class