Histórico da Página

...

Bloco de código

collapse	false

TCGenQry( < xPar1 >, < xPar2 >, < cQuery > )

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
xPar1	nil	Compatibilidade.	X


xPar2	nil	Compatibilidade.	X


cQuery	caractere	String contendo a query que será aberta.	X

Retorno

Nome	Tipo	Descrição
cRet	caractere	Retorna sempre uma string vazia.

Observações

Essa função determina que a próxima chamada à função DBuseAreaserá a abertura de uma query na conexão atual com um SGBD, e não de uma tabela física, quando utilizada a RDD "TOPCONN". Devido à dependência direta da chamada subsequente da função DbUseAreapara a abertura efetiva da query, foi adotada a convenção de chamar a função TCGenQry como terceiro parâmetro para a função DbUseArea.

A string contendo a query a ser aberta é enviada diretamente ao DBAccess, que por sua vez fará a execução do statement diretamente no SGBD em uso pela conexão, fará um "describe" das colunas de retorno do statement, e retornará em caso de sucesso a definição de colunas retornadas pela query. O Application Server, por sua vez, ao receber a confirmação de sucesso da operação e a definição de colunas, vai abrir a query como se fosse uma tabela física normal, sob o alias especificado como parâmetro para a função DbUseArea(), onde a estrutura de dados dessa tabela "virtual" corresponde a uma definição similar à retornada pela função DBStruct.

Nota

icon	true
title	Atenção

Ao abrirmos uma query no AdvPL, podemos retornar diretamente apenas campos "caractere" (Char ou VarChar do SGBD) e numéricos (INT e/ou FLOAT / DOUBLE / NUMERIC). Caso alguma coluna selecionada não atenda estes quesitos, ela será removida da estrutura de retorno no momento da abertura da query.

Devido aos campos do tipo "D" Data em AdvPL serem gravados no SGDB usando um campo do tipo "C" Caractere, este campo será retornado ao AdvPL como sendo um Caractere. É possível recuperar este campo com o tipo "D" Data do AdvPL usando a função TCSetField().

Uma Query aberta no AdvPL cria um cursor de leitura, que permite apenas duas instruções de navegação: DBKSip DBSkip(), para avançar para o próximo registro do cursor, e DBGoTop() – que fecha o cursor e abre novamente, submetendo a query novamente ao Banco de Dados. Um cursor no AdvPL não permite alteração (DBRLock(), REPLACE, FieldPut()), não permite voltar para registro anterior – DbSkip(-1) – e não permite ir direto ao último registro – DBGoBottom().

A TCGenQry só suporta statements de query (SELECT)leitura de registros – queries iniciadas com SELECT.

Exemplos

Bloco de código

language	cpp
theme	Eclipse
linenumbers	true
collapse	false

USER FUNCTION TEST()

  Local cJoin cAlias := "JOIN"
  Local cTable := "T1"
  Local cQry   := "SELECT field_name, field_type FROM t1 left join t2 on t1.field_name = t2.field_nick"
  
  TCLink()
  
  TCDelFile("T1")
  TCDelFile("T2")
  
  DBCreate("T1", {{"FIELD_NAME", "C", 10, 0}, ;
                  {"FIELD_TYPE", "C", 10, 0}}, "TOPCONN")
                  
  DBCreate("T2", {{"FIELD_NICK", "C", 10, 0}, ;
                  {"FIELD_AGE", "C", 10, 0}}, "TOPCONN")
                  
  DBUseArea(.T., "TOPCONN", cTable, (cTable), .F., .F. )
  
  (cTable)->( DBAppend( .F. ) )
  (cTable)->FIELD_NAME := "NOME"
  (cTable)->FIELD_TYPE := "TIPO"
  (cTable)->( DBCommit() )
  
  DBCloseArea()
  
  DBUseArea(.T., "TOPCONN", TCGenQry(NIL,NIL,cQry), (cJoincAlias) , .F., .T. )
  
  WHILE !Eof()
    CONOUT("FIELD_NAME = " + (cJoincAlias)->FIELD_NAME)
    CONOUT("FIELD_TYPE = " + (cJoincAlias)->FIELD_TYPE)
    DbSkip()
  ENDDO
  
  DBCloseArea()
  
  TCUnlink()
  
RETURN

O mesmo exemplo acima também pode ser escrito com COMANDOS do AdvPL – que em tempo de compilação são traduzidos para as chamadas das funções correspondentes.

Exemplo com comandos

Bloco de código

Árvore de páginas

Versões comparadas

Versão antiga 10

Nova versão 11

Chave

Parâmetros

Retorno

Observações

Exemplos

Exemplo com comandos

Veja também