Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: 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
0 DamithSL 285
1 Zoltán Zörgő 170
2 OriginalGriff 140
3 BillWoodruff 125
4 Sergey Alexandrovich Kryukov 120
0 OriginalGriff 7,740
1 DamithSL 5,769
2 Sergey Alexandrovich Kryukov 5,424
3 Maciej Los 5,076
4 Kornfeld Eliyahu Peter 4,539


Advertise | Privacy | Mobile
Web03 | 2.8.141223.1 | Last Updated 22 Dec 2012
Copyright © CodeProject, 1999-2014
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