Méthode DataRecordset.GetRowData (Visio)
Obtient les données dans toutes les colonnes de la ligne spécifiée.
Notes
Cet objet ou ce membre Visio est disponible uniquement pour les titulaires d’une licence d’utilisation de Visio Professionnel 2013.
expression. GetRowData (DataRowID)
Expression Expression qui renvoie un objet DataRecordset .
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. |
Variant()
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.
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
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.