Define a área de trabalho especificada como ativa.
DBSelectArea( < xArea > )
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
xArea | qualquer | Indica a área de trabalho que ficará ativa. | X |
|
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