rec.close（ADO中记录集关闭出错的问题！)

Question

Rec.Open ("JiGouBiao")
是这句错啦.有这样open的吗?

Answer 1

CheckError:
    Rec.close    If Err.Number = -2147217887 Then
        MsgBox "机构记录不能重复，请重新检查导入数据！", vbExclamation, "导入出错：" & Err.Number
        Exit Sub
    End If
End Sub

Answer 2

在关闭记录集前检查其属性State是否为adStateOpen才能关闭.如果记录集为空,关闭则会出错。

Answer 3

我终于找到原因了，，，原来竟是这样。。请看。。
CheckError:
    If Err.Number = -2147217887 Then
        Rec.CancelUpdate '放弃更新操作
        MsgBox "机构记录不能重复，请重新检查导入数据！", vbExclamation, "导入出错：" & Err.Number
        Exit Sub
    End If注：因为少了REC。CACELUPDATE，请大家不要再患我这样的错误