Retorna o nome de um campo de uma tabela aberta.
Field( < nPos > )
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
nPos | numérico | Indica a posição do campo na estrutura da tabela. | X |
|
Nome | Tipo | Descrição |
---|---|---|
cRet | caractere | Retorna uma string contendo o nome do campo especificado. |
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( Field( 0 ) ) // Vai exibir: "" conout( Field( 1 ) ) // Vai exibir: "CPOC" conout( Field( 2 ) ) // Vai exibir: "CPON" conout( Field( 3 ) ) // Vai exibir: "CPOD" conout( Field( 4 ) ) // Vai exibir: "CPOL" conout( Field( 5 ) ) // Vai exibir: "CPOM" conout( Field( 8 ) ) // Vai exibir: "" // Fecha a área de trabalho DBCloseArea() // Apaga a tabela TCDelFile( cTable1 ) // Desconecta TCUnlink( nHandle1 ) return