以下的程序在编译后提示From语句有错,Insert语句语法有错,我找了半天没找出来,大家帮我看一下!Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\VB.NET\Test.mdb")
con.Open()
Dim cmd As New OleDbCommand("Select count(*) from User where UserName='" & txtUserName.Text & "'", con)
Dim reader As OleDbDataReader
Dim logincount As Integer
logincount = Convert.ToInt32(cmd.ExecuteScalar())
If logincount <> 0 Then
Response.Write("<p text=#0000ff Font-size=32 >对不起,您所填入的用户名已经有人使用!</p><br>")
Response.Write("<p text=#0000ff Font-size=32 >请更换其他名称再进行注册!</p>")
Else
Dim sqlstr As String
sqlstr = "Insert Into User Values( '" & txtUserName.Text + "'," _
+ "'" + txtUserPwd.Text & "'," & "'" & txtEmail.Text + "')"
cmd.CommandText = sqlstr
cmd.ExecuteNonQuery()
Response.Write("您的个人信息已提交!")
End If
cmd.Dispose()
con.Dispose()
End Sub
+ "'" + txtUserPwd.Text & "'," & "'" & txtEmail.Text + "')"