Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
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
mais simples. 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 ou colunas de chave primária, 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 únicas ou compostas. 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 adimensional de cadeias de caracteres. Se a configuração da chave primária retornada for visKeySingle ou visKeyComposite, o método também retornará uma matriz de strings de nome de coluna de chave primária no parâmetro out 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 ou colunas de chave primária. 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 localiza 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 do 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.