Método DataRecordsets.GetLastDataError (Visio)

Obtiene el código de error Active X Data Objects (ADO), la descripción ADO y el identificador del conjunto de registros de datos asociados a un error provocado al agregar un nuevo conjunto de registros de datos o al actualizar los datos de uno existente.

Nota:

Este objeto o miembro Visio solo se encuentra disponible para los usuarios con licencia de Visio Professional 2013.

Sintaxis

expresión. GetLastDataError (DataErrorCode, DataErrorDescription, RecordsetID)

Expresión Expresión que devuelve un objeto DataRecordsets .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
DataErrorCode	Necesario	Long	Parámetro de salida. Código de error ADO del último error.
DataErrorDescription	Obligatorio	String	Parámetro de salida. Descripción ADO del último error.
RecordsetID	Necesario	Long	Parámetro de salida. Identificador del conjunto de registros de datos que ha generado o desencadenado el error.

Valor devuelto

Nothing

Comentarios

Algunas de las operaciones relacionadas con datos que pueden generar errores ADO en Microsoft Visio son agregar un nuevo objeto DataRecordset a la colección DataRecordsets del documento activo y actualizar los datos de un conjunto de registros de datos existente.

Si una operación relacionada con datos se realiza correctamente, el método GetLastDataError devuelve RecordsetID = 0, DataErrorCode = 0 y DataErrorDescription = "" (una cadena vacía).

Si al intentar agregar un conjunto de registros de datos se genera un error, el método devuelve RecordsetID = 0, así como el código de error y la descripción.

Si se produce un error al intentar actualizar los datos de un conjunto de registros de datos existente, y si Visio sabe cuál es el conjunto de registros de datos que provocó el error, GetLastDataError devuelve el identificador del conjunto de registros de datos.

Sin embargo, es posible que Visio no sepa específicamente qué conjunto de registros de datos generó el error. Esto solo puede ocurrir cuando se intenta actualizar un conjunto de registros de datos que es uno de un grupo de conjuntos de registros de datos que comparten la misma conexión con un origen de datos. Esto se debe a que cuando se actualizan los datos de un conjunto de registros de datos de dicho grupo (denominados conjuntos de registros de datos con transacciones ), se actualizan todos los conjuntos de registros de datos del grupo. En esta situación, si se produce un error en la operación de actualización antes de que se actualicen todos los conjuntos de registros de datos del grupo, Visio revierte la actualización de los conjuntos de registros de datos completados correctamente hasta ese momento.

Si, a continuación, llama a GetLastDataError, este método devuelve lo siguiente:

• El identificador del conjunto de registros de datos desde el que llamó al método Refresh para empezar la operación de actualización que posteriormente provocó el error.

• El mensaje de error generado por la operación de actualización, aunque no hay forma de saber si el error está relacionado con el conjunto de registros de datos cuyo identificador pasó al método GetLastDataError.

Ejemplo:

La siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar el método GetLastDataError para obtener el código de error y la descripción ADO, así como el identificador del conjunto de registros datos asociado con el último error de datos.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.