Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
Pagetitle | ||||
---|---|---|---|---|
|
Função: Select
...
Retorna o número da área de trabalho de um alias especificado.
Sintaxe
Bloco de código | ||
---|---|---|
| ||
Select( [ cAlias ] ) |
...
|
Parâmetros
...
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cAlias |
...
caractere | Indica o |
...
alias que será |
...
pesquisado. |
|
|
Retorno
...
Nome | Tipo |
---|
...
Descrição |
---|
...
nRet |
...
numérico | Retorna |
...
o número da área de trabalho |
...
do alias especificado |
...
. |
Observações
...
- nRet pode variar de 1
...
- ao valor especificado pela chave "MaxWorkAreas" na seção do ambiente no arquivo ini do AppServer. O valor padrão da chave é 1024.
- Se o parâmetro cAlias não for especificado, o retorno será o número da área de trabalho corrente.
- Caso
...
- cAlias seja especificado e o alias não exista, o retorno será 0 (zero).
- A função Sele faz a mesma coisa que a função Select.
- O retorno dessa função pode ser passada como parâmetro da função DBSelectArea, que selecionará a área de trabalho informada.
- Cada área de trabalho corresponde às informações de um único alias.
Exemplos
O exemplo abaixo utiliza a RDD "TOPCONN", mas a função pode ser utilizada com qualquer uma das RDDs válidas.
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
user function test1() Local nHandle1 := TCLink( "MSSQL/ |
...
...
DSN1", "127.0.0.1", 7890 )
Local cTable1 := "MYTABLE1"
Local cTable2 := "MYTABLE2"
Local cRDD := "TOPCONN"
// Cria a tabela
DBCreate( cTable1, { { "CPOC", "C", 10, 0 }, ;
{ "CPON", "N", 3, 0 }, ;
{ "CPOD", "D", 8, 0 } }, cRDD )
DBCreate( cTable1, { { "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( Select() ) // Exibe: 1
// Abre a tabela 2 em modo exclusivo para leitura criando uma área de trabalho
DBUseArea( .T., cRDD, cTable2, (cTable2), .F., .T. )
// Exibe o número da área de trabalho atual
conout( Select() ) // Exibe: 2
// Exibe o número da área de trabalho da tabela 1
conout( Select( cTable1 ) ) // Exibe: 1
// Exibe o número da área de trabalho da tabela 2
conout( Select( cTable2 ) ) // Exibe: 2
// Exibe o número da área de trabalho de um alias inexistente
conout( Select( "wrongalias" ) ) // Exibe: 0
// Fecha todas as áreas de trabalho
DBCloseAll()
// Abre a tabela 1 em modo exclusivo para leitura criando uma área de trabalho
DBUseArea( .T., cRDD, cTable1, (cTable1), .F., .T. )
// Abre a tabela 2 em modo exclusivo para leitura reaproveitando a área de trabalho atual
DBUseArea( .F., cRDD, cTable2, (cTable2), .F., .T. )
// Exibe o número da área de trabalho da tabela 2
conout( Select( cTable2 ) ) // Exibe: 1
// Exibe o número da área de trabalho da tabela 1
conout( Select( cTable1 ) ) // Exibe: 0, pois o alias da tabela 1 foi fechado pelo alias da tabela 2
// Fecha todas as áreas de trabalho
DBCloseAll()
// Apaga a tabela 1
TCDelFile( cTable1 )
// Apaga a tabela 2
TCDelFile( cTable2 )
// Desconecta
TCUnlink( nHandle1 )
return
|
Veja também
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas