UC知道VB和ACCESS做的系统,保存出错
来源：百度知道 编辑：UC知道 时间：2024/07/02 10:01:06
Private Sub CMDSave_Click()
If flag = False Then
Result = MsgBox("您确实要保存吗？", vbYesNo)
If Result = 6 Then
sql = "insert 电力能耗表(数量，日期，记录人) values (" & SL & ",'" & RQ & "','" & JLR & "')"
Set rs = ConnWZ.Execute(sql)
End If
End If
If flag = True Then
Result = MsgBox("您确实要保存吗？", vbYesNo)
If Result = 6 Then
If SL = "" Then SL = 0
sql = "update电力能耗表 set 数量=" & SL & ",日期='" & RQ & "',记录人='" & JLR & "'where 序号=" & PBH & ""
Set Rsrkpd = ConnWZ.Execute(sql)
CMDSave.Enabled = False
End If
End If
End Sub
黄色箭头指向Set rs = ConnWZ.Execute(sql)，求高手帮忙
If flag = False Then
Result = MsgBox("您确实要保存吗？", vbYesNo)
If Result = 6 Then
sql = "insert 电力能耗表(数量，日期，记录人) values (" & SL & ",'" & RQ & "','" & JLR & "')"
Set rs = ConnWZ.Execute(sql)
End If
End If
If flag = True Then
Result = MsgBox("您确实要保存吗？", vbYesNo)
If Result = 6 Then
If SL = "" Then SL = 0
sql = "update电力能耗表 set 数量=" & SL & ",日期='" & RQ & "',记录人='" & JLR & "'where 序号=" & PBH & ""
Set Rsrkpd = ConnWZ.Execute(sql)
CMDSave.Enabled = False
End If
End If
End Sub
黄色箭头指向Set rs = ConnWZ.Execute(sql)，求高手帮忙
sql = "insert 电力能耗表(数量，日期，记录人) values (" & SL & ",'" & RQ & "','" & JLR & "')"
这句value后面少了个单引号。
sql = "update 电力能耗表 set 数量=" & SL & ",日期='" & RQ & "',记录人='" & JLR & "' where 序号=" & PBH & ""
这句也是。数量后要单引号，参照：：日期 = ''
还有，顺便检查下connwz对象是不是准确连接上了数据库。
sql = "insert 电力能耗表(数量，日期，记录人) values (" & SL & ",'" & RQ & "','" & JLR & "')"
这句values后面SL字段少了个单引号，应该是'" & SL & "',insert 错误，应该是insert into 。
sql = "update 电力能耗表 set 数量=" & SL & ",日期='" & RQ & "',记录人='" & JLR & "' where 序号=" & PBH & ""
这句也是。数量后要单引号，应该是 数量='" & SL & "'，序号字段也少单引号，应该是序号='" & PBH & "'
sql = "update 电力能耗表 set 数量=" & SL & ",日期='" & RQ & "',记录人=&#