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
 
<pre>
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 &gt; 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 OriginalGriff 490
1 Sergey Alexandrovich Kryukov 395
2 Maciej Los 285
3 ProgramFOX 265
4 CHill60 200
0 OriginalGriff 490
1 Sergey Alexandrovich Kryukov 395
2 Maciej Los 285
3 ProgramFOX 265
4 CHill60 200


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