Click here to Skip to main content
12,244,322 members (56,848 online)
Rate this:
 
Please Sign up or sign in to vote.
See more: VB ASP.NET VB.NET
When I press submit button it does not insert information into database !!
what`s wrong with my code ?

Public Class SignUps
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IsPostBack Then
            Dim con As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("RegconnectionString").ConnectionString)
            con.Open()
 
        End If
    End Sub
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnReg.Click
        Dim con As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("RegconnectionString").ConnectionString)
        Dim inscmd As String = "insert into Registration (UserName, Password, Email) values (@UserName, @Password, @Email)"
        Dim insertUser As SqlCommand = New SqlCommand(inscmd, con)
        Dim userCount As Int32 = GetUserCount(txtName.Text)
        If userCount > 0 Then
            LblWarning.Visible = True
        Else
            insertUser.Parameters.AddWithValue("@UserName", txtName.Text)
            insertUser.Parameters.AddWithValue("@Password", txtPass.Text)
            insertUser.Parameters.AddWithValue("@Email", txtEmail.Text)
            lblsucc.Visible = True
            ' Show message and then Redirect
            ClientScript.RegisterStartupScript(Page.GetType(), "Message", "alert('successfully doen');window.location='Default.aspx';", True)
        End If
 
    End Sub
 
    ' Method to check existence 
    Public Shared Function GetUserCount(ByVal userName As String) As Int32
        Const sql = "SELECT COUNT(*) FROM Registration where username = @UserName"
        Using con As New SqlConnection(ConfigurationManager.ConnectionStrings("RegconnectionString").ConnectionString)
            Using cmd = New SqlCommand(sql, con)
                cmd.Parameters.AddWithValue("@UserName", userName)
                con.Open()
                Using reader = cmd.ExecuteReader()
                    If reader.HasRows Then
                        reader.Read()
                        Dim count As Int32 = reader.GetInt32(0)
                        Return count
                    End If
                End Using
            End Using
        End Using
    End Function
 

 

End Class
Posted 22-Dec-12 5:25am
conanzz307
Rate this: bad
 
good
Please Sign up or sign in to vote.

Solution 1

You forgot to execute the insert command.
  Permalink  
Rate this: bad
 
good
Please Sign up or sign in to vote.

Solution 2

Like Richard said, you setup the SQL Insert command, but you never exectued it.
  Permalink  

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month


Advertise | Privacy | Mobile
Web02 | 2.8.160426.1 | Last Updated 22 Dec 2012
Copyright © CodeProject, 1999-2016
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100