VB 更新ACCESS
发布网友
发布时间：2022-12-25 03:23
共2个回答
热心网友
时间：2023-10-11 06:51
1. 你的所有DataConnection Object都没有做关闭，这个很危险，问题很可能出在这上
2. 不知道你 Form_Load 中的内容是什么，所以不好说到底错误是什么
3. 再有一点，你是想做，用户删除，还是想做用户密码更新
如果是删除，就不应该有AddNew
Private Sub 确认删除用户_Click()
Dim db As Database
Dim Rs As Recordset
Set db = OpenDatabase(App.Path & "\data.mdb", False, False, ";pwd=66666")
Set Rs = db.OpenRecordset("select * from [usertable] where [user]='" & Combo2.Text & "' and password='" & Text7.Text & "'")
If Combo2.Text <> "" Then
Rs.Delete
Else
MsgBox "错误"
End If
Rs.Close
db.Close
Set Rs=Nothing
Set 代表= Nothing
End Sub
如果是更新，则不需要先Delete在Update新数据，这里需要考虑一个Rs为空的问题
Private Sub 确认删除用户_Click()
Dim db As Database
Dim Rs As Recordset
Set db = OpenDatabase(App.Path & "\data.mdb", False, False, ";pwd=66666")
Set Rs = db.OpenRecordset("select * from [usertable] where [user]='" & Combo2.Text & "' and password='" & Text7.Text & "'")
If Not Rs.EOF Then
Rs("password") = Text7.Text
Rs("user") = Combo2.Text
Rs.Update
Else
MsgBox "错误"
End If
Rs.Close
db.Close
Set Rs=Nothing
Set 代表= Nothing
End Sub
热心网友
时间：2023-10-11 06:51
