#include 'totvs.ch'
#include 'topconn.ch'
// O exemplo abaixo abre uma Query em um alias chamado QRY,
// e imediatamente fecha a Query.
User Function TcQuery()
Local cQuery := 'SELECT * FROM AGENDA'
tclink()
// Usando o comando TCQUERY
TCQUERY (cQuery) ALIAS QRY NEW
USE
// Usando o comando USE com a função TCGenQry()
USE (TcGenQry(,,cQuery)) ALIAS QRY EXCLUSIVE NEW VIA "TOPCONN"
USE
// Chamando diretamente a função DbUseArea()
// No final das contas, os comandos acima acabam sendo traduzidos
// internamente para as chamadas das funções abaixo:
DbUseArea( .T. , 'TOPCONN' , TcGenQry( ,, cQuery) , "QRY" , .T. , .T. )
DbCloseArea()
Return
|