数据库升迁到SQL Server后报“运行时错误 '3622 ' 请问如何处理

sunwrsun

在本论坛中借鉴的一个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

CurrentDb.Execute 后面加个参数 ,dbSeeChanges
就可以了

sunwrsun

站长回复真快，谢谢，我试试。

sunwrsun

搞定了，再次谢谢站长。

xlb004

dddddddd