Histórico da Página

import.css=/download/attachments/3279126062824/newLayouttecnologia.css

...

...

Função: Field/FieldName

Retorna

...

o

...

nome

...

de

...

um

...

campo

...

de

...

uma

...

tabela

...

aberta.

Sintaxe

FieldName( <

 nPos > )

Parâmetros

...

 

Nome	Tipo	Descrição	Obrigatório	Referência

...

nPos

...

numérico

Indica a posição do campo na estrutura da tabela.

X

Retorno

...

...

...

...

Observações

• Caso não haja uma área de trabalho aberta com um alias, o programa será encerrado com ocorrência de erro recuperável "Work area not in use" e a função retornará uma string vazia ("").
• Se o parâmetro

...

• nPos for maior que o total de campos do alias atual

...

• , a função retornará uma string vazia ("").

...

• nPos começa em 1.
• A função Field faz a mesma coisa que a função FieldName.
• Essa função faz exatamente o contrário da função FieldPos

...

• , que retorna a posição do campo na estrutura da tabela a partir do nome do campo informado.
• nPos não leva em consideração os campos internos do sistema (Recno e Deleted).
• A existência de mais de uma conexão no mesmo programa para o mesmo SGBD não influencia o funcionamento da função.

Exemplos

O exemplo abaixo utiliza a RDD "TOPCONN", mas a função pode ser utilizada com qualquer uma das RDDs válidas.

user function test1()
  Local nHandle1 := TCLink( "MSSQL/DSN1", "127.0.0.1", 7890 )
  Local cTable1 := "MYTABLE1"
  Local cRDD := "TOPCONN"
  
  //

 Cria a tabela
  DBCreate( cTable1, { { "CPOC", "C", 10, 0 }, ;
                       { "CPON", "N",  3, 0 }, ;
                       { "CPOD", "D",  8, 0 }, ;
                       { "CPOL", "L",  1, 0 }, ;
                       { "CPOM", "M", 20*1024, 0 } }, cRDD )
  
  // Abre a tabela 1 em modo exclusivo para leitura criando uma área de trabalho
  DBUseArea( .T., cRDD, cTable1, (cTable1), .F., .T. )
  
  conout( FieldName( 0 ) ) // Vai exibir: ""
  conout( FieldName( 1 ) ) // Vai exibir: "CPOC"
  conout( FieldName( 2 ) ) // Vai exibir: "CPON"
  conout( FieldName( 3 ) ) // Vai exibir: "CPOD"
  conout( FieldName( 4 ) ) // Vai exibir: "CPOL"
  conout( FieldName( 5 ) ) // Vai exibir: "CPOM"
  conout( FieldName( 8 ) ) // Vai exibir: ""
  
  // Fecha a área de trabalho
  DBCloseArea()
  
  // Apaga a tabela
  TCDelFile( cTable1 )
  
  // Desconecta
  TCUnlink( nHandle1 )
return

Veja também

• FieldPos
• DBFieldInfo