WebForm1.aspx.vb Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (Page.IsValid) Then
'当各项值都通过验证时
'与Access数据库进行链接
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" + Server.MapPath("sample.mdb")
Dim myConn As OleDbConnection = New OleDbConnection(strConn)
'打开链接
myConn.Open()
Dim StrSQL As String
StrSQL = "Select * From zhuce Where username='" + txtName.Text + "'"
Dim myCommand As OleDbCommand = New OleDbCommand(StrSQL, myConn)
'用reader对象来查询用户名是否已经存在
Dim reader As OleDbDataReader
reader = myCommand.ExecuteReader()
If reader.Read() Then
'若存在
'Message.InnerHtml = "<p align=center><B>该用户已经存在!</B>"
Response.Write("该用户已经存在!") reader.Close()
Else
'不存在,则将该用户信息增加到数据库
reader.Close()
StrSQL = "INSERT INTO zhuce VALUES('" + txtName.Text + "','" + txtPassWord.Text + "','" + txtEmail.Text + "')"
myCommand = New OleDbCommand(StrSQL, myConn)
'执行插入语句
myCommand.ExecuteNonQuery()
' Message.InnerHtml = "<p align=center><B>注册成功!</B>"
Response.Write("注册成功!")
End If
'关闭链接
myConn.Close()
End If
End Sub第一个问题:Response.Write("该用户已经存在!"),这语句没有用.
第二个问题: '执行插入语句
提示操作必须使用一个可更新的查询。行 66:myCommand.ExecuteNonQuery()
If (Page.IsValid) Then
'当各项值都通过验证时
'与Access数据库进行链接
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" + Server.MapPath("sample.mdb")
Dim myConn As OleDbConnection = New OleDbConnection(strConn)
'打开链接
myConn.Open()
Dim StrSQL As String
StrSQL = "Select * From zhuce Where username='" + txtName.Text + "'"
Dim myCommand As OleDbCommand = New OleDbCommand(StrSQL, myConn)
'用reader对象来查询用户名是否已经存在
Dim reader As OleDbDataReader
reader = myCommand.ExecuteReader()
If reader.Read() Then
'若存在
'Message.InnerHtml = "<p align=center><B>该用户已经存在!</B>"
Response.Write("该用户已经存在!") reader.Close()
Else
'不存在,则将该用户信息增加到数据库
reader.Close()
StrSQL = "INSERT INTO zhuce VALUES('" + txtName.Text + "','" + txtPassWord.Text + "','" + txtEmail.Text + "')"
myCommand = New OleDbCommand(StrSQL, myConn)
'执行插入语句
myCommand.ExecuteNonQuery()
' Message.InnerHtml = "<p align=center><B>注册成功!</B>"
Response.Write("注册成功!")
End If
'关闭链接
myConn.Close()
End If
End Sub第一个问题:Response.Write("该用户已经存在!"),这语句没有用.
第二个问题: '执行插入语句
提示操作必须使用一个可更新的查询。行 66:myCommand.ExecuteNonQuery()
Response.End