更新某一行的数据其实质就是修改某一行的数据。
修改和删除某一行数据基本上都是以ID为依据进行操作的,因为只有ID没有重复值。
你的窗体上添加一个text2控件,用来填写某一行的ID。
如果这个窗体是用来登记“坏点”的,那么还要添加一个“更新”的命令按钮。
Private Sub Command1_Click() '单击更新按钮
On Error Resume Next
Dim sc As Integer
sc = MsgBox("确实修改这条记录吗?", vbOKCancel, "提示信息")
If sc = 1 Then
'运行时如果用户点击的是MsgBox提示框的"确定"按钮,返回值是1
Dim conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim Str1 As String'下一行中的
Access_db.mdb 换成你登记坏点的表名称
Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Access_db.mdb;Jet OLEDB:Database Password="
conn.Open Str1
strsql = "select * from 坏点 where ID =" & Val(Text2.Text) & ""
RS.Open strsql, conn, 3, 3
If RS!ID = Val(Text2.Text) Then
'由于系统数据库使用的是自动编号作为主键
'因此以ID编号字段的内容作为判断的依据
'rs!中的!是变量类型定义符号
RS!设备编号 = Combo1.Text
RS!抽屉台车 = Combo2.Text
RS!维修内容 = Text1.Text
RS!坏点位置 = Combo3.Text
RS!确认状态 = Combo4.Text
RS!更新时间 = now
'需要在你登记“坏点”的access表中添加一个字段,以记录维修和更新的时间,用来指标考核
RS.Update
RS.Close
conn.Close
MsgBox "修改记录成功!"
Else
MsgBox "不存在此记录!"
Exit Sub
End If
End If
End Sub
使用代码时请与你表中的字段校对一下。
仅供参考