vb.net msaccess更新,请问有什么问题,为什么不更新我的数据库?
我不知道是什么问题, 有人能帮忙吗 我已经安装了运行程序所需的所有东西vb.net msaccess更新,请问有什么问题,为什么不更新我的数据库?,vb.net,ms-access-2010,Vb.net,Ms Access 2010,我不知道是什么问题, 有人能帮忙吗 我已经安装了运行程序所需的所有东西 Public Sub main1_Click(sender As Object, e As EventArgs) Handles main1.Click scorestanding.Text = standingscore provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" dataFile = "Database\user.mdb
Public Sub main1_Click(sender As Object, e As EventArgs) Handles main1.Click
scorestanding.Text = standingscore
provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
dataFile = "Database\user.mdb"
connString = provider & dataFile
myConnection.ConnectionString = connString
myConnection.Open()
Dim str As String
str = "UPDATE login set[scorestand] = '" & scorestanding.Text & "' Where [username] = '" & Label1.Text & "'"
Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
Try
cmd.CommandText = "UPDATE login set[scorestand] = '" & scorestanding.Text & "' Where [username] = '" & Label1.Text
cmd.ExecuteNonQuery()
cmd.Dispose()
myConnection.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.Close()
main.Show()
End Sub
str = "UPDATE login set[scorestand] = '" & scorestanding.Text & "' Where [username] = '" & Label1.Text & "'"
Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
Try
cmd.CommandText = "UPDATE login set[scorestand] = '" & scorestanding.Text & "' Where [username] = '" & Label1.Text
cmd.ExecuteNonQuery()
cmd.Dispose()
myConnection.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.Close()
main.Show()
End Sub
它没有任何eror,但也不做任何操作。设置断点-它们很友好,很好。你需要跨过这一步,看看它在哪里断裂。我可以告诉你有很多问题……如果没有错误,可能是where条件是故障点。创建一个变量,例如Dim Results为Integer=0,然后Results=cmd.ExecuteOnQuery。检查结果的值,如果不满足-1或0的where条件,而如果预期更新一条记录,则应返回1。另一方面,请考虑使用参数而不是为查询连接字符串。