DataRecordset.GetPrimaryKey-Methode (Visio)

Artikel
04/07/2023

Ruft die Primärschlüsseleinstellung und den Namen der Primärschlüsselspalten für das Datenrecordset ab.

Hinweis

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

Syntax

Ausdruck. GetPrimaryKey (PrimaryKeySettings, PrimaryKey())

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

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
PrimaryKeySettings	Erforderlich	VisPrimaryKeySettings	Ausgabeparameter. Die Primärschlüsseleinstellung für das Datenrecordset. Mögliche Werte finden Sie in den Hinweisen.
PrimaryKey()	Erforderlich	String	Ausgabeparameter. Ein Array von String-Variablen.

Rückgabewert

Nichts

Bemerkungen

Verwenden Sie die GetPrimaryKey-Methode , um die vorhandene Primärschlüsseleinstellung für ein Datenrecordset und den Namen der Primärschlüsselspalte bzw. -spalten zu bestimmen, wenn ein Primärschlüssel angegeben wurde. Die Methode gibt die Primärschlüsseleinstellung für das Datenrecordset im PrimaryKeySettings out-Parameter als Wert aus der VisPrimaryKeySettings-Enumeration zurück. Der Standardwert (wenn kein Primärschlüssel angegeben wurde) ist visKeyRowOrder. Dies bedeutet, dass Microsoft Visio Datenrecordsetzeilen nach Zeilenreihenfolge identifiziert.

Ein Datenrecordset, für das ein Primärschlüssel angegeben wurde, kann einzelne oder zusammengesetzte Primärschlüsselspalten aufweisen. Bei Primärschlüsseln mit einer Spalte basiert die Zeilenidentifikation auf den Werten in einer einzelnen Spalte. Ein zusammengesetzter Primärschlüssel verwendet zwei oder mehr Spalten, um eine Zeile eindeutig zu ermitteln. Mögliche Werte für PrimaryKeySettings werden in dieser Tabelle angezeigt.

Konstante	Wert	Beschreibung
visKeyRowOrder	1	Verwenden der Zeilenreihenfolge als Primärschlüssel
visKeySingle	2	Verwenden einer einzelnen Spalte als Primärschlüsselspalte
visKeyComposite	3	Verwenden mehrerer Spalten als Primärschlüsselspalten

Übergeben Sie für den PrimaryKey()-Out-Parameter ein dimensionsloses Array von Zeichenfolgen. Wenn die zurückgegebene Primärschlüsseleinstellung visKeySingle oder visKeyComposite ist, gibt die Methode auch ein Array von Primärschlüsselspaltennamenszeichenfolgen im PrimaryKey()-Out-Parameter zurück. Ist die Primärschlüsseleinstellung auf visKeyRowOrder festgelegt (Standard), gibt die Methode ein leeres Array zurück.

Verwenden Sie die DataRecordset.SetPrimaryKey-Methode , um die Primärschlüsseleinstellung für das Datenrecordset sowie den Namen der Spalte oder Spalten anzugeben, die Sie als Primärschlüsselspalte oder -spalten festlegen möchten. Stellen Sie beim Festlegen von Primärschlüsseln sicher, dass die Spalten, die Sie als Primärschlüsselspalten auswählen, für jede Zeile eindeutige Werte (oder Wertsätze) enthalten.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie Sie die GetPrimaryKey-Methode verwenden können, um die Primärschlüsseleinstellung für ein Datenrecordset sowie den Namen der ersten Primärschlüsselspalte zu bestimmen. Das Makro findet das zuletzt erstellte Datenrecordset, das dem Dokument zugeordnet ist, und wenn ein Primärschlüssel angegeben wurde, gibt im Direktfenster den Wert der Primärschlüsseleinstellung und den Namen der ersten Primärschlüsselspalte für das Datenrecordset aus. Wenn kein Primärschlüssel vorhanden ist, werden die Primärschlüsseleinstellung und die Anweisung "Kein Primärschlüssel" ausgegeben.

Erstellen Sie vor dem Ausführen dieses Makros mindestens ein Datenrecordset im aktuellen Dokument, und geben Sie bei Bedarf mithilfe der SetPrimaryKey-Methode einen Primärschlüssel an.

Public Sub GetPrimaryKey_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intCount As Integer 
    Dim astrPrimaryKeyColumns() As String 
    Dim vsoKeySettings As VisPrimaryKeySettings 
 
 
    intCount = ThisDocument.DataRecordsets.Count 
    Set vsoDataRecordset = ThisDocument.DataRecordsets(intCount) 
    vsoDataRecordset.GetPrimaryKey vsoKeySettings, astrPrimaryKeyColumns 
 
    If vsoKeySettings = visKeyRowOrder Then 
        Debug.Print vsoKeySettings, "No primary key" 
    Else 
        Debug.Print vsoKeySettings, astrPrimaryKeyColumns(0) 
    End If 
    
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