Office中国论坛/Access中国论坛

标题: 数据库升迁到SQL Server后报“运行时错误 '3622 ' 请问如何处理 [打印本页]

作者: sunwrsun 时间: 2016-3-4 12:36
标题: 数据库升迁到SQL Server后报“运行时错误 '3622 ' 请问如何处理
在本论坛中借鉴的一个Access软件注册例子，注册按钮的单击事件代码如下：

Private Sub 注册_Click()
If Len(Trim(Me.txtRegKey)) = 0 Then
      Msgbox "请输入注册码！", vbExclamation, "提示"
      Me.txtRegKey.SetFocus
      Exit Sub
End If

If Me.txtRegKey = UserCreateRegKey() Then
      CurrentDb.Execute "DELETE FROM sys_RegInfo"
      CurrentDb.Execute "INSERT INTO sys_RegInfo(RegKey) VALUES('" & Me.txtRegKey & "')"
      Msgbox "现在您可以不受限制的使用本软件，感谢您的支持！", vbInformation, "注册成功"
Else
      Msgbox "无效的注册码。", vbCritical, "注册失败"
End If
End Sub

      以上代码在Access环境的单机版使用时没有问题，但将数据库升迁到SQL Server后，点击注册按钮出现“运行时错误 '3622 '：当访问一个带有IDENTITY列的SQL SERVER表时，必须使用OpenDatabase的dbSeeChanges选项。”的提示。代码行CurrentDb.Execute "DELETE FROM sys_RegInfo"（呈现黄色），请教在SQL Server环境下，该代码如何设置？谢谢了！

作者: tmtony 时间: 2016-3-4 12:43
CurrentDb.Execute 后面加个参数 ,dbSeeChanges
就可以了

作者: sunwrsun 时间: 2016-3-4 12:46
站长回复真快，谢谢，我试试。

作者: sunwrsun 时间: 2016-3-4 13:06
搞定了，再次谢谢站长。

作者: xlb004 时间: 2016-3-5 18:07
dddddddd

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)