DataRecordset.GetRowData-Methode (Visio)

Artikel
04/07/2023

Ruft die Daten in allen Spalten in der angegebenen Zeile ab.

Hinweis

Dieses Visio-Objekt oder dieses Visio-Mitglied ist nur für lizenzierte Benutzer von Visio Professional 2013 verfügbar.

Syntax

Ausdruck. GetRowData (DataRowID)

Ausdruck Ein Ausdruck, der ein DataRecordset-Objekt zurückgibt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
DataRowID	Erforderlich	Long	Die ID der Zeile im Datenrecordset, aus der Daten abgerufen werden sollen.

Rückgabewert

Variant()

Hinweise

Verwenden Sie die GetDataRowIDs-Methode , um die Zeilen-IDs aller Zeilen im Datenrecordset abzurufen. Siehe dazu das Beispiel in diesem Thema.

Wenn Sie die Zeilen-ID null für den DataRowID-Parameter übergeben, gibt die GetRowData-Methode die Namen der Spalten im Datenrecordset zurück. Wenn Sie eine andere gültige Zeilen-ID als null übergeben, gibt die GetRowData-Methode Werte für alle Spalten in der angegebenen Zeile in der gleichen Reihenfolge wie die Spaltennamen zurück, die die Methode beim Übergeben von 0 (null) zurückgibt.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie Sie die Methoden GetDataRowIDs und GetRowData verwenden können, um die Zeilen-ID jeder Zeile zurückzugeben und dann die in jeder Spalte in jeder Zeile des angegebenen Datenrecordsets gespeicherten Daten abzurufen. Das Makro ruft die Anzahl aller Datenrecordsets ab, die dem aktuellen Dokument zugeordnet sind, und ruft Zeilendaten für das zuletzt hinzugefügte ab. Es durchläuft alle Zeilen im Datenrecordset und dann für jede Zeile alle Spalten in der Zeile. The code displays the information returned in the Immediate window.

Erstellen Sie vor dem Ausführen dieses Makros mindestens ein Datenrecordset im aktuellen Dokument.

Beachten Sie, dass das Makro eine leere Zeichenfolge an die GetDataRowIDs-Methode übergibt, um das Filtern zu umgehen und alle Zeilen im Recordset abzurufen. Nach dem Ausführen des Makros enthält die erste Datengruppe, die angezeigt wird (entsprechend der ersten Datenzeile) die Überschriften für alle Datenspalten im Datenrecordset.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über