Retorna o número do último registro inserido na tabela atual.
LastRec()
Nome | Tipo | Descrição |
---|---|---|
nRet | numérico | Retorna o número do último registro inserido na tabela atual. |
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 nHandle2 := -1 Local cTable := "MYTABLE" Local cRDD := "TOPCONN" Local nI := 0 // Abre a tabela em modo exclusivo DBUseArea( .T., cRDD, cTable, (cTable), .F., .F. ) // Insere 3 registros em uma tabela vazia for nI := 1 to 3 DBAppend( .F. ) (cTable)->MYFIELD := nI DBCommit() next nI conout( LastRec() ) // Exibe: 3 // Vai para o primeiro registro DBGoTop() // Marca todos os registros para exclusão while !eof() DBDelete() DBSkip() enddo // Apaga todos os registros marcados para exclusão __DBPack() conout( LastRec() ) // Exibe: 3 // Fecha a área de trabalho DBCloseArea() // Abre uma outra conexão com o SGBD nHandle2 := TCLink( "MSSQL/DSN1", "127.0.0.1", 7890 ) // Abre a tabela em modo exclusivo DBUseArea( .T., cRDD, cTable, (cTable), .F., .F. ) conout( LastRec() ) // Exibe: 3 // Fecha a área de trabalho DBCloseArea() // Desconecta do SGBD TCUnlink( nHandle2 ) TCUnlink( nHandle1 ) return