一个用户注册程序,点了提交按钮没反映。今天非弄出来不可
一个用户注册程序,点了提交按钮没反映。今天非弄出来不可,高手进!
我是用asp.net+sql做的.我照书上说的先试了下,不验证,直接加4个TEXTBOX,曾做登陆的时候有个表user,里面有uid,uname,upassword,uemail.然后就直接插入数据试了下,不报错,点了没反映.程序如下:Private Sub Submit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Submit.Click
Dim connectionstring As String
Dim mycon As SqlConnection
Dim mycom As SqlCommand
mycon = New SqlConnection( "server=COOL-7N7Q6EFTJP;uid=sa;pwd=123;database=users ")
'建立操作数据库的命令
Dim strinsert As String
strinsert = "insert into userinfo(uname,upassword,uemail) values(@NAME,@PASSWORD,@EMAIL) "
mycom = New SqlCommand(strinsert, mycon)
mycom.Parameters.Add(New SqlParameter( "@NAME ", SqlDbType.NVarChar))
mycom.Parameters( "@NAME ").Value = Username.Text
mycom.Parameters.Add(New SqlParameter( "@PASSWORD ", SqlDbType.NVarChar))
mycom.Parameters( "@PASSWORD ").Value = Password.Text
mycom.Parameters.Add(New SqlParameter( "@EMAIL ", SqlDbType.NVarChar))
mycom.Parameters( "@EMAIL ").Value = Email.Text
Dim added As Integer
mycon.Open()
Try
added = mycom.ExecuteNonQuery
If added > 0 Then
Response.Redirect( "login.aspx ")
End If
Catch err As Exception
Trace.Write(err.Message)
Finally
If (Not mycon Is Nothing) Then
mycon.Close()
End If
End Try
我是用asp.net+sql做的.我照书上说的先试了下,不验证,直接加4个TEXTBOX,曾做登陆的时候有个表user,里面有uid,uname,upassword,uemail.然后就直接插入数据试了下,不报错,点了没反映.程序如下:Private Sub Submit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Submit.Click
Dim connectionstring As String
Dim mycon As SqlConnection
Dim mycom As SqlCommand
mycon = New SqlConnection( "server=COOL-7N7Q6EFTJP;uid=sa;pwd=123;database=users ")
'建立操作数据库的命令
Dim strinsert As String
strinsert = "insert into userinfo(uname,upassword,uemail) values(@NAME,@PASSWORD,@EMAIL) "
mycom = New SqlCommand(strinsert, mycon)
mycom.Parameters.Add(New SqlParameter( "@NAME ", SqlDbType.NVarChar))
mycom.Parameters( "@NAME ").Value = Username.Text
mycom.Parameters.Add(New SqlParameter( "@PASSWORD ", SqlDbType.NVarChar))
mycom.Parameters( "@PASSWORD ").Value = Password.Text
mycom.Parameters.Add(New SqlParameter( "@EMAIL ", SqlDbType.NVarChar))
mycom.Parameters( "@EMAIL ").Value = Email.Text
Dim added As Integer
mycon.Open()
Try
added = mycom.ExecuteNonQuery
If added > 0 Then
Response.Redirect( "login.aspx ")
End If
Catch err As Exception
Trace.Write(err.Message)
Finally
If (Not mycon Is Nothing) Then
mycon.Close()
End If
End Try