如何编辑访问数据库中的记录-visual basic

Question

我想编辑访问数据库中的特定记录，但我不断收到错误

这是我要编辑的数据库：访问数据库

这些是用户创建并存储在访问数据库中的抽认卡。我想要的是用户能够编辑难度，这样它就可以更多/更少地出现

这是模块：

Module Module1
Public Function runSQL(ByVal query As String) As DataTable
Dim connection As New OleDb.OleDbConnection("provider=microsoft.ACE.OLEDB.12.0;Data Source=flashcard login.accdb") 'Establishes connection to database
Dim dt As New DataTable 'Stores database in table called dt
Dim dataadapter As OleDb.OleDbDataAdapter
connection.Open() 'Opens connection
dataadapter = New OleDb.OleDbDataAdapter(query, connection)
dt.Clear() 'Clears datatable
dataadapter.Fill(dt) 'Fills datatable
connection.Close()
Return dt
End Function
End Module

这里是用户可以按下编辑数据库的按钮：

Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
Dim sql As String
sql = "UPDATE flashcards set difficulty = '" & TxtDifficulty.Text
runSQL(sql)
End Sub

用户应该能够通过在txtDifficulty.text 中输入的值来编辑数据库中的难度列

Answer 1

很高兴听到我发现撇号有问题。

我需要一个where语句，但我的问题是用户可以创建他们想要的任意多的抽认卡，那么我该如何编写where语句呢？

INSERT语句没有WHERE子句，但UPDATE有，并且通常由主键提供。

看看我是如何忽略mHasException并特别使用参数添加新记录的。在这种情况下，使用了List，但只需付出很少的努力，就可以传递DataRow数组。

下面是一个使用DataRow更新记录的示例。

要获取ms访问的其他代码示例，请参阅以下存储库。

最后，在上面的存储库中，我并没有讨论所有的可能性，但应该有足够的可能性让你继续前进。在查看代码时，我在添加参数的Add和AddWithValue之间切换，而Add是推荐的方式，但两者都显示出了差异。另请参阅Add与AddWithValue。