| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 492 人关注过本帖
标题:求助 修改操作无法执行(vb+access)
取消只看楼主 加入收藏
mm88mm
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-5-12
收藏
 问题点数:0 回复次数:0 
求助 修改操作无法执行(vb+access)
执行该操作时,显示无法修改
自己看了下发现是txtSql出了问题,我把AND 考勤编号=' " & Trim(txtCNum) & " '"删除后,可以保存数据了,但是由于该表我的主键是编号和考勤编号,其中编号是外键,我必需得让修改条件是两个同时满足,请高手帮忙解决下。到底问题在哪,要怎么改?

Private Sub cmdModify_Click()
On Error GoTo DealError
If Trim(txtAttend) = "" Then
MsgBox "出勤不能为空!", vbCritical, "员工信息管理"
txtAttend.SetFocus



Else
txtSQL = "update 考勤绩效 set 出勤 ='" & Trim(txtAttend) & "',旷工='" & Trim(txtAbsence) & "',请假= '" & Trim(txtAsk) & "' , 加班='" & Trim(txtOvertime) & "',工分='" & Trim(txtScore) & "',销售额='" & Trim(txtSell) & "'" & " where 编号='" & Trim(txtNum) & "' AND 考勤编号=' " & Trim(txtCNum) & " '"




objCn.Execute txtSQL, isupdated
If isupdated > 0 Then


MsgBox "信息已被成功修改!", vbInformation, "修改信息"
Else
MsgBox "无法修改!", vbCritical, "修改信息"
End If
End If
Exit Sub
DealError:
msg = "程序执行出错,错误信息如下:" & vbCrLf & Err.Description
ShowError msg
End Sub
搜索更多相关主题的帖子: access 
2006-05-14 02:08
快速回复:求助 修改操作无法执行(vb+access)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015239 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved