DataRecordsets.GetLastDataError 方法 (Visio)

获取 Active X 数据对象 (ADO) 错误代码、ADO 说明和数据记录集 ID，它们与添加新数据记录集或刷新现有数据记录集中的数据时生成的错误关联。

注意

此 Visio 对象或成员仅供 Visio Professional 2013 的授权用户使用。

语法

表达式。GetLastDataError (DataErrorCode、 DataErrorDescription、 RecordsetID)

表达 返回 DataRecordsets 对象的表达式。

参数

名称	必需/可选	数据类型	说明
DataErrorCode	必需	Long	Out 参数。 最后一个错误的 ADO 错误代码。
DataErrorDescription	必需	字符串	Out 参数。 最后一个错误的 ADO 说明。
RecordsetID	必需	Long	Out 参数。 生成或触发错误的数据记录集的 ID。

返回值

Nothing

注解

在 Microsoft Visio 中会生成 ADO 错误的数据相关操作包括：向活动文档的 DataRecordsets 集合中添加新的 DataRecordset 对象，以及刷新现有数据记录集中的数据。

如果与数据相关的操作成功， GetLastDataError 方法返回 RecordsetID = 0，DataErrorCode = 0，DataErrorDescription = “” (空字符串) 。

如果尝试添加数据记录集生成错误，该方法将返回 RecordsetID = 0，以及错误代码和说明。

如果尝试刷新现有数据记录集中的数据时导致生成错误，并且 Visio 知道是哪个数据记录集导致错误，则 GetLastDataError 返回该数据记录集的 ID。

但是，也可能是 Visio 不知道具体哪个数据记录集导致了错误。 仅当尝试刷新数据记录集（数据记录集是与数据源共享相同连接的数据记录集之一）时，才会发生这种情况。 这是因为当刷新这类组（称为事务型 数据记录集）中一个数据记录集中的数据时，该组中的所有数据记录集都会得到刷新。 在这种情况下，如果在刷新组中的所有 datarecordset 之前刷新操作失败，则 Visio 将回滚到该点之前成功完成的所有 datarecordset 的刷新。

如果之后调用 GetLastDataError，该方法返回以下内容：

• 对其调用 Refresh 方法以启动随后失败的刷新操作的数据记录集的 ID。

• 尽管不知道失败是否与您将其 ID 传递给 GetLastDataError 方法的数据记录集明确相关，但失败的刷新操作会生成错误消息。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 宏显示了如何使用 GetLastDataError 方法来获取与最后一个数据错误关联的 ADO 错误代码、说明和数据记录集 ID。

Public Sub GetLastDataError_Example() 
 
    Dim vsoDataRecordsets As Visio.DataRecordsets 
    Dim lngCode As Long 
    Dim strDescription As String 
    Dim lngID As Long 
     
    Set vsoDataRecordsets = Visio.ActiveDocument.DataRecordsets 
     
    vsoDataRecordsets.GetLastDataError lngCode, strDescription, lngID 
     
    Debug.Print "Error code: ", lngCode 
    Debug.Print "Error description: ", strDescription 
    Debug.Print "Data recordset ID: ", lngID 
 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。