Méthode DataRecordset.GetRowData (Visio)

Article
04/07/2023

Obtient les données dans toutes les colonnes de la ligne spécifiée.

Remarque

Cet objet ou ce membre Visio est disponible uniquement pour les titulaires d’une licence d’utilisation de Visio Professionnel 2013.

Syntaxe

expression. GetRowData (DataRowID)

Expression Expression qui renvoie un objet DataRecordset .

Parameters

Nom	Requis/Facultatif	Type de données	Description
DataRowID	Obligatoire	Long	ID de la ligne dans le jeu d'enregistrements de données à partir duquel vous voulez extraire des données.

Valeur renvoyée

Variant()

Remarques

Pour obtenir les ID de ligne de toutes les lignes du jeu d’enregistrements de données, utilisez la méthode GetDataRowIDs . Reportez-vous à l’exemple fourni dans cette rubrique.

Si vous transférez un ID de ligne zéro pour le paramètre IDLigneDonnées, la méthode GetRowData renvoie les noms des colonnes dans le jeu d'enregistrements de données. Si vous transférez tout autre ID de ligne valide différent de zéro, la méthode GetRowData renvoie des valeurs pour toutes les colonnes de la ligne spécifiée, dans le même ordre que celui des noms de colonne que la méthode renvoie lorsque vous transférez la valeur zéro.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) montre comment utiliser les méthodes GetDataRowIDs et GetRowData pour retourner l’ID de ligne de chaque ligne, puis obtenir les données stockées dans chaque colonne de chaque ligne du jeu d’enregistrements de données spécifié. La macro obtient le nombre de tous les jeux d’enregistrements de données associés au document actif et obtient les données de ligne pour celui qui a été ajouté le plus récemment. Elle parcourt toutes les lignes du jeu d’enregistrements de données puis, pour chaque ligne, elle parcourt l’ensemble des colonnes incluses dans cette ligne. Le code affiche les informations renvoyées dans la fenêtre Exécution.

Avant d'exécuter cette macro, créez au moins un jeu d'enregistrements de données dans le document actif.

Notez que la macro transfère une chaîne vide à la méthode GetDataRowIDs pour contourner le filtrage et pour obtenir toutes les lignes dans le jeu d'enregistrements. Après avoir exécuté la macro, notez que le premier jeu de données affiché (correspondant à la première ligne de données) contient les en-têtes pour toutes les colonnes de données dans le jeu d'enregistrements de données.

Public Sub GetRowData_Example() 
 
     
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intCount As Integer 
    Dim lngRowIDs() As Long 
    Dim lngRow As Long 
    Dim lngColumn As Long 
    Dim varRowData As Variant 
 
    'Get the count of all data recordsets in the current document. 
    intCount = ThisDocument.DataRecordsets.Count 
 
    Set vsoDataRecordset = ThisDocument.DataRecordsets(intCount) 
 
    'Get the row IDs of all the rows in the data recordset 
    lngRowIDs = vsoDataRecordset.GetDataRowIDs("") 
 
    'Iterate through all the records in the data recordset. 
    For lngRow = LBound(lngRowIDs) To UBound(lngRowIDs) + 1 
        varRowData = vsoDataRecordset.GetRowData(lngRow) 
 
        'Print a separator between rows 
        Debug.Print "------------------------------" 
 
       'Print the data stored in each column of a particular data row. 
        For lngColumn = LBound(varRowData) To UBound(varRowData) 
            Debug.Print varRowData(lngColumn) 
        Next lngColumn 
    Next lngRow 
 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via