Office中国论坛/Access中国论坛

标题: 对SQL链接表进行delete时的问题 [打印本页]
作者: jackysu78    时间: 2009-11-24 19:22
标题: 对SQL链接表进行delete时的问题
请各位朋友指导如何解决该问题！即执行如下代码时弹出“运行时错误3622，当访问一个带有IDENTITY列的SQL表时，必须使用opendatabase的dbseechanges选项。”
  1. Private Sub Command4_Click()
  2. If IsNull(Me.对象ID.Value) = True Then
  3. MsgBox ("“对象ID不能为空，请先确定待删除的对象ID!”"), vbExclamation + vbOKOnly, "系统提示"
  4. Me.对象ID.SetFocus
  5. Else

  7.     If MsgBox("您确定要删除ID为：'" & Me.对象ID.Value & "'的出入场记录吗?", vbYesNo, "系统提示") = vbYes Then
  8.     CurrentDb().Execute "delete from dbo_vipinout where dbo_vipinout.id in( " & Me.对象ID.Value & ")"
  9.     MsgBox ("已经删除'" & Me.对象ID.Value & "'的出入场记录！"), vbInformation + vbOKOnly, "系统提示"
  10.     Call Command5_Click
  11.     Else
  12.     Call Command5_Click
  13.     Me.对象ID.SetFocus
  14.     End If
  15.    
  16. End If
  17. End Sub

  19. Private Sub Command5_Click()
  20. Me.对象ID.Value = Null
  21. Me.出入场异常查看子窗体.Requery
  22. End Sub
复制代码
作者: jackysu78    时间: 2009-11-24 19:49
路过的朋友、版主，谁能指导一下？谢谢！
作者: jackysu78    时间: 2009-11-24 20:14
自已找了个比较笨的办法，通过执行一个删除查询来处理
作者: todaynew    时间: 2009-11-25 07:00
CurrentDb.Execute 运行出错时，用docmd.runsql一般可行。什么原因不大清楚。
作者: jackysu78    时间: 2009-11-25 19:05
谢谢回复！
好象docmd.runsql 也有问题
DoCmd.OpenQuery目前可以，删除查询
作者: jackysu78    时间: 2009-11-25 19:07
不好意思，docmd.runsql可行，谢谢



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3