Método DataRecordset.GetPrimaryKey (Visio)

Obtém a configuração de chave primária e o nome de uma ou mais colunas de chaves primárias para o conjunto de registros de dados.

Observação

This Visio object or member is available only to licensed users of Visio Professional 2013.

Sintaxe

expressão. GetPrimaryKey (PrimaryKeySettings, PrimaryKey())

Expressão Uma expressão que retorna um objeto DataRecordset .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
PrimaryKeySettings Obrigatório VisPrimaryKeySettings Parâmetro de saída. A configuração de chave primária para o conjunto de registros de dados. Consulte Comentários para obter os valores possíveis.
PrimaryKey() Obrigatório String Parâmetro externo. Uma matriz de variáveis String.

Valor de retorno

Nada

Comentários

Use o método GetPrimaryKey para determinar a configuração de chave primária existente para um conjunto de registros de dados e o nome da coluna de chave primária ou colunas se uma chave primária tiver sido especificada. O método retorna a configuração de chave primária para o conjunto de registros de dados no parâmetro de saída PrimaryKeySettings, como o valor da enumeração VisPrimaryKeySettings. O padrão (quando nenhuma chave primária é especificada) é visKeyRowOrder, que significa que o Microsoft Visio identifica as linhas do conjunto de registros de dados por ordem das linhas.

Um conjunto de registros de dados para o qual uma chave primária foi especificada pode ter colunas de chave primária única ou composta. Uma chave primária de coluna única baseia a identificação da linha nos valores de uma única coluna. Uma chave primária composta usa duas ou mais colunas para identificar exclusivamente uma linha. Os valores possíveis para PrimaryKeySettings são mostrados nesta tabela.

Constant Valor Descrição
visKeyRowOrder 1 Usar a ordem das linhas como a chave primária.
visKeySingle 2 Usar uma única coluna como coluna de chaves primárias.
visKeyComposite 3 Usar várias colunas como colunas de chaves primárias.

Para o parâmetro PrimaryKey() out, passe uma matriz sem dimensões de cadeias de caracteres. Se a configuração de chave primária retornada for visKeySingle ou visKeyComposite, o método também retornará uma matriz de cadeias de caracteres de nome de coluna de chave primária no parâmetro PrimaryKey(). Se a configuração de chave primária for visKeyRowOrder, o padrão, o método retornará uma matriz vazia.

Use o método DataRecordset.SetPrimaryKey para especificar a configuração de chave primária para o conjunto de registros de dados, bem como o nome da coluna ou colunas que você deseja definir como a coluna de chave primária ou colunas. Ao definir as chaves primárias, verifique se a(s) coluna(s) selecionada(s) como coluna(s) de chaves primárias contém(êm) valores (ou conjuntos de valores) exclusivos para cada linha.

Exemplo

Essa macro do Microsoft Visual Basic for Applications (VBA) mostra como usar o método GetPrimaryKey para determinar a configuração de chave primária, bem como o nome da primeira coluna de chaves primárias. A macro encontra o conjunto de registros de dados criado mais recentemente associado ao documento e, se uma chave primária tiver sido especificada, imprime na janela Imediata o valor da configuração da chave primária e o nome da primeira coluna de chave primária para o conjunto de registros de dados. Se não houver nenhuma chave primária, ela imprimirá a configuração de chave primária e a declaração "No primary key".

Antes de executar essa macro, crie pelo menos um conjunto de registros de dados no documento atual e, se desejar, especifique uma chave primária usando o método SetPrimaryKey .

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.