Sql 论循环过程中的误差

Sql 论循环过程中的误差,sql,sql-server,ms-access,vba,Sql,Sql Server,Ms Access,Vba,我有一个代码设置,它将数据从另一个表插入到一个表中,并设置在一个循环上。我想让它检查,看看它应该上传的记录是否真的上传了,如果没有,我想让它再试一次,然后在第二次尝试后,如果它仍然不能,我想让它终止代码。基本上: 在这段代码运行之前,先运行连接检查,然后如果记录上载了连接,那么在循环过程中,我希望它运行select语句来查找刚刚上载到新表上的记录。如果它找到了,那么它将继续下一条记录,如果它没有找到,它将再试一次,如果它仍然无法找到,那么它将停止。这是我验证连接的一种方法 这是一种在实际上传过程

我有一个代码设置,它将数据从另一个表插入到一个表中,并设置在一个循环上。我想让它检查,看看它应该上传的记录是否真的上传了,如果没有,我想让它再试一次,然后在第二次尝试后,如果它仍然不能,我想让它终止代码。基本上:

在这段代码运行之前,先运行连接检查,然后如果记录上载了连接,那么在循环过程中,我希望它运行select语句来查找刚刚上载到新表上的记录。如果它找到了,那么它将继续下一条记录,如果它没有找到,它将再试一次,如果它仍然无法找到,那么它将停止。这是我验证连接的一种方法

这是一种在实际上传过程中测试连接的方法,因此我不必在每次记录后都进行连接检查,从而节省了时间。我只是不确定如何在循环中建立一个On-Error,有什么想法吗?代码的底部如下所示:

qdf.ReturnsRecords = False
On Error GoTo Update_qdfError
qdf.Execute dbFailOnError
On Error GoTo 0

rs.MoveNext
Loop

rs.Close

Set qdf = Nothing
Set cdb = Nothing
Set rs = Nothing
Exit Function

Update_qdfError:
For Each err In DAO.Errors
    MsgBox err.Description, vbCritical, "Error " & err.Number
Next

End Function

由于VBA没有结构化错误处理,您可以通过设置y,然后检查y,在循环中一次测试一行错误。首先,对其进行设置,使其落在下一行代码上,如下所示

On Error Resume Next
然后,测试

Do While rs.EOF
    rs.Fields("fieldName").value =value
    if Err.Number >0 then
        'you had an error

    end if
Loop

我应该在哪里添加这个?