import.css=/download/attachments/6062824/tecnologia.css

Define a área de trabalho especificada como ativa.

Sintaxe

DBSelectArea( < xArea > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

xArea

qualquer

Indica a área de trabalho que ficará ativa.

X

 

Observações

Exemplos

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 cTable2 := "MYTABLE2"
  Local cRDD := "TOPCONN"
  
  // Cria a tabela
  DBCreate( cTable1, { { "CPOC", "C", 10, 0 } }, cRDD )
  
  DBCreate( cTable2, { { "CPOC", "C", 10, 0 } }, cRDD )
  
  // 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 criando uma área de trabalho
  DBUseArea( .T., cRDD, cTable2, (cTable2), .F., .T. )
  
  // Inclui um registro na tabela 2, sem especificar o alias, usando o atual
  DBAppend( .F. )
  CPOC := "AA"
  DBCommit()
  
  // Seleciona a tabela 1
  DBSelectArea( cTable1 )

  // Inclui um registro na tabela 1, sem especificar o alias, usando o atual
  DBAppend( .F. )
  CPOC := "BB"
  DBCommit()

  // Inclui um registro na tabela 2, passando o alias da tabela 2
  (cTable2)->( DBAppend( .F. ) )
  (cTable2)->CPOC := "CC"
  (cTable2)->( DBCommit() )
  
  // 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