Sql vb消息显示

当我点击注册按钮时，即使我没有在列中输入任何内容，我也会得到测试

“注册成功”

。
如果成功插入数据库，我需要显示“注册成功”。
如果是故障，我需要它在同一标签上显示

“注册失败”

（

lblsuccessfail

）

导入System.Data.SqlClient
导入System.IO
部分类寄存器
继承System.Web.UI.Page
Dim cn作为新的SqlConnection（“数据源=localhost\MSSQL2012；初始目录=UserDetails；集成安全性=True”）
Dim cmd作为新的SqlCommand
Dim da作为新的SqlDataAdapter
受保护的子按钮1\u单击（发送者作为对象，e作为System.EventArgs）处理btnnew。单击
尝试
cn.Open（）
cmd=New SqlCommand（“插入到FirstProject（全名、用户名、密码、地址、性别）值（‘“&txtfullname.Text&’，‘“&txtsername.Text&’，‘“&txtpassword.Text&’，‘“&txtdAddress.Text&’，‘“&cbogener.Text&’，‘），cn）
如果txtfullname.Text=Nothing或lse txtsername.Text不是Nothing或txtpassword.Text.Equals（Nothing）或lse txtdaddress.Text=String.Empty或cbogender.Text.Equals（String.Empty），则抛出新异常（）
如果cmd.ExecuteNonQuery（），则lblsuccessfail.Text=lblsuccessfail.Text&“注册成功”
特例
lblsuccessfail.Text=lblsuccessfail.Text&“注册失败”
最后
cn.Close（）
结束尝试
端接头
受保护的子页加载（发送者作为对象，e作为System.EventArgs）处理Me.Load
端接头
受保护的子btnback\u单击（发送者作为对象，e作为系统.EventArgs）处理btnback。单击
重定向（“login.aspx”）
端接头
末级

ExecuteOnQuery返回插入的行数，因此，如果数据库接受空记录，则代码总是成功的。您需要在代码或数据库本身中添加对这种可能性的检查。顺便说一下，如果启用了Option Strict On警告您ExecuteOnQuery的问题并帮了自己一个忙，那么您的代码将永远不会编译。了解如何使用参数化查询。如果不向文本框添加任何内容，它仍会保存null。代码在插入之前不检查任何值。阅读有关空值的内容，并添加条件以检查它们。现在，如果列为空，则注册将失败。

Imports System.Data.SqlClient
Imports System.IO

Partial Class register
    Inherits System.Web.UI.Page


    Dim cn As New SqlConnection("Data Source=localhost\MSSQL2012;Initial Catalog=UserDetails;Integrated Security=True")
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter


    Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles btnnew.Click
        cn.Open()


        Try


            Dim Query As String

            Query = "INSERT INTO FirstProject (fullname,username,password,address,gender)VALUES('" & txtfullname.Text & "', '" & txtusername.Text & "','" & txtpassword.Text & "','" & txtaddress.Text & "','" & cbogender.Text & "')"

            cmd = New SqlCommand(Query, cn)


            If cmd.ExecuteNonQuery() Then

                lblsuccessfail.Text = lblsuccessfail.Text & " Registertration successful "

            End If

        Catch ex As Exception

            lblsuccessfail.Text = lblsuccessfail.Text & " Registertration unsuccessful "


        End Try

        cn.Close()
    End Sub

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnback_Click(sender As Object, e As System.EventArgs) Handles btnback.Click
        Response.Redirect("login.aspx")
    End Sub
End Class