Algum programador aqui conhece o DAO

Question

Eu tenho que descobrir qual o campo que tem a chave primaria em uma tabela , pelo ADO disseram que nao d� so pelo DAO gostaria de saber se vc sabe como fazer isso ?

Banco de Dados : Access
Compilador : Delphi

Muito OBrigado pela sua Aten��o !!!

Anonymous · Answer

N�o sei se ajuda mas tenho o codigo que voc� precisa em VBA:
Esta fun��o mostra o nome de todos os �ndices e os campos que comp�e o �ndice. Acredito que com um pouco de modifica��o voc� ter� o que quer. Basta lembrar que chave prim�ria � sempre um �ndice chamado �PrimaryKey�.

Private Function teste()
Dim dbs As Database
Dim tdf As TableDef
Dim idx As Index
Dim fld As Field

Set dbs = CurrentDb

Set tdf = dbs.TableDefs(�tblConfiguracoes�)

For Each idx In tdf.Indexes
For Each fld In idx.Fields
MsgBox ��ndice: � & idx.Name & � � & vbNewLine & _
�Campo: � & fld.Name
Next fld
Next idx

Set fld = Nothing
Set idx = Nothing
Set tdf = Nothing
Set dbs = Nothing
End Function

Programadorjlle · Answer

[quote:a9f61dcc7f=�welgomes�]N�o sei se ajuda mas tenho o codigo que voc� precisa em VBA:Esta fun��o mostra o nome de todos os �ndices e os campos que comp�e o �ndice. Acredito que com um pouco de modifica��o voc� ter� o que quer. Basta lembrar que chave prim�ria � sempre um �ndice chamado �PrimaryKey�.Private Function teste()    Dim dbs As Database    Dim tdf As TableDef    Dim idx As Index    Dim fld As Field        Set dbs = CurrentDb        Set tdf = dbs.TableDefs(�tblConfiguracoes�)        For Each idx In tdf.Indexes        For Each fld In idx.Fields            MsgBox ��ndice: � & idx.Name & � � & vbNewLine & _                   �Campo: � & fld.Name        Next fld    Next idx        Set fld = Nothing    Set idx = Nothing    Set tdf = Nothing    Set dbs = NothingEnd Function[/quote:a9f61dcc7f]me ajudou mais como jogo isso no delphi ?...