VB如何对ACCESS进行更新,删除,保存,需要代码.

来源：百度知道 编辑：UC知道 时间：2024/05/23 02:18:48
本人在做一个系统,但不知怎样能通过代码来实现修改,删除,保存.下面是我的部分代码,望哪位高手帮帮忙啊.
Private Sub CMDDel_Click()
Result = MsgBox("您确实要删除吗？", vbYesNo)
If Result = 6 Then
sql = "delete 电力能耗表 where 序号=" & PBH & ""
Set rs = ConnWZ.Execute(sql)
PBH = 0
Else
Exit Sub
End If
End Sub

Private Sub cmdEdit_Click()
CMDSave.Enabled = True
flag = True
SL.Locked = False
JLR.Locked = False
End Sub

Private Sub CMDFresh_Click()
PBH = 0
SL = ""
RQ.Value = Date
JLR = ""
SL.Locked = False
JLR.Locked = False
CMDSave.Enabled = False
CMDDel.Enabled = False
CMDEdit.Enabled = False
flag = False
End Sub

Private Sub CMDSave_Click()
If flag = False Then
Result = MsgBox("您确实要保存吗？", vbYesNo)
If Result = 6 Then
sql = "insert 电力能耗表(数量，日期，记录人) values (" & SL & ",'" & RQ & "','&

'添加数据
cnnUser.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\db.mpp;" & _
"Mode= ReadWrite | Share Deny None"
cnnUser.Open
With rstUser
Set .ActiveConnection = cnnUser
.CursorType = adOpenKeyset
End With
With rstUser
If .State = adStateOpen Then .Close
.Open "Select * from [messages] where nno= '" & pkey & "'", cnnUser, adOpenKeyset, adLockOptimistic
'判断pkey是否有记录 , 记录内是否包含皮重和毛重
If rstUser.Fields("maoz").Value <> 0 And rstUser.Fields("piz").Value <> 0 Then

MsgBox "已存数据，不可操作！", vbOKOnly, "