VB如何对Access数据库中已经查询到的数据进行修改

改为如下，用循环方法，先在数据库中找到要修改记录的ID后, 再修改。
Private Sub Commandxiugai_Click()
Dim K As Integer
Dim rs As ADODBRecordset
Dim conn As ADODBConnection
Dim sqlStr As String
Set conn = New ADODBConnection
Set rs = New ADODBRecordset
connConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=E:\雅颜の小铺会员管理系统\xinjianhymdb;Persist Security Info=False"
sqlStr1 = "select from xjhy”
rsOpen sqlStr1, conn, adOpenKeyset, adLockOptimistic
If Not rsEOF Then
rsMoveFirst
End If
For K = 1 To rsRecordCount
If rs（”ID”）=trim(Text1text) then
r提交修改s("MONEY”)=Val(Text3Text)
rsUpdate
MsgBox "修改成功！", vbOKOnly
Goto 100
End if
rsMoveNext
Next K
MsgBox "修改失败！", vbOKOnly
100
Rsclose
Set conn=nothing
End sub

以上就是关于VB如何对Access数据库中已经查询到的数据进行修改全部的内容，包括:VB如何对Access数据库中已经查询到的数据进行修改、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！