DataRecordset.GetDataRowIDs-Methode (Visio)

Ruft ein Array der IDs aller Zeilen im Datenrecordset ab.

Hinweis

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

Syntax

Ausdruck. GetDataRowIDs (CriteriaString)

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

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
CriteriaString	Erforderlich	String	Eine Zeichenfolge, die den Richtlinien entspricht, die in der ADO-API (Microsoft ActiveX Data Object) zum Festlegen der ADO.Filter-Eigenschaft angegeben wurde.

Rückgabewert

Long()

HinwBemerkungeneise

Verwenden Sie die GetDataRowIDs-Methode , um ein Array der IDs aller Zeilen in einem Datenrecordset abzurufen, wobei jede Zeile einen einzelnen Datensatz darstellt. Die GetDataRowIDs-Methode verwendet als Parameter eine Kriterienzeichenfolge, bei der es sich um eine Zeichenfolge handelt, die den Richtlinien entspricht, die in der ADO-API zum Festlegen des ADO angegeben sind . Filtereigenschaft . Durch die Angabe geeigneter Kriterien und der Verwendung von UND- und ODER-Operatoren zum Separieren von Klauseln können Sie die Informationen im Datenrecordset filtern, um nur bestimmte Datenrecordset-Zeilen selektiv zurückzugeben. Wenn Sie keinen Filter anwenden möchten (um alle Zeilen abzurufen), übergeben Sie eine leere Zeichenfolge ("").

Weitere Informationen zu Kriterienzeichenfolgen finden Sie unter Filter-Eigenschaft in der ADO 2.8-API-Referenz.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mithilfe der Methoden GetDataRowIDs und GetRowData die Zeilen-ID der einzelnen Zeilen zurückgeben und die Daten dann in jeder Spalte der einzelnen Zeilen des angegebenen Datenrecordsets speichern. 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 GetDataRowIDs_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.