怎么回事,总是提示错误呢?源码如下:
Private Sub Submit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Submit.Click
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath("db/gdsfs4545.mdb"))
conn.Open()
Dim comm As New OleDbDataAdapter("Select id from admin where username='" & Username.Text & "'and password='" & Password.Text & "'", conn)
Dim comm2 As New OleDbCommand("Update admin Set password='" & Password.Text.ToString & "'", conn)
Dim ds As New DataSet
comm.Fill(ds, "userinfo")
If ds.Tables("userinfo").Rows.Count = 0 Then
Label1.Text = "您的用户名和密码不符,请重试!"
Else
comm2.ExecuteNonQuery()
Label1.Text = "密码修改成功!"
End If
异常详细信息: System.Data.OleDb.OleDbException: UPDATE 语句的语法错误。
Private Sub Submit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Submit.Click
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath("db/gdsfs4545.mdb"))
conn.Open()
Dim comm As New OleDbDataAdapter("Select id from admin where username='" & Username.Text & "'and password='" & Password.Text & "'", conn)
Dim comm2 As New OleDbCommand("Update admin Set password='" & Password.Text.ToString & "'", conn)
Dim ds As New DataSet
comm.Fill(ds, "userinfo")
If ds.Tables("userinfo").Rows.Count = 0 Then
Label1.Text = "您的用户名和密码不符,请重试!"
Else
comm2.ExecuteNonQuery()
Label1.Text = "密码修改成功!"
End If
异常详细信息: System.Data.OleDb.OleDbException: UPDATE 语句的语法错误。
为什么要这样做呢
看看数据有没有更新然后改为
Dim comm2 As New OleDbCommand("Update admin Set [password]='testing'", conn)再看看
where id=@id", conn)
comm.parameters.add("@password",password.text.tostring)
comm.parameters.add("@id",你要改密码的那一行的id值)comm2.ExecuteNonQuery()
conn.close()