注册一个新用户不会插入数据库 [英] sign up a new user won`t inserted in database

问题描述

当我按下提交按钮时，它不会将信息插入数据库!!

我的代码有什么问题？

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

推荐答案

你忘了执行 insert 命令。

像Richard说的那样，你设置了SQL Insert命令，但是你从未说过它。

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

这篇关于注册一个新用户不会插入数据库的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！