import.css=/download/attachments/6062824/tecnologia.css |
Muda o alias de uma área de trabalho aberta.
DBChangeAlias( < cOldAlias >, < cNewAlias > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cOldAlias | caractere | Indica o alias aberto de uma tabela. | X |
|
cNewAlias | caractere | Indica o novo alias da tabela. | X |
|
Nome | Tipo | Descrição |
---|---|---|
LRet | lógico | Retorna se o alias foi alterado ou não. |
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 cTable1 := "MYTABLE2" Local cNewAlias := "" Local cRDD := "TOPCONN" // Vai exibir .F., pois cTable1 não está aberto cNewAlias := "MYALIAS" conout( DBChangeAlias( cTable1, cNewAlias ) ) // Abre a tabela 1 em modo exclusivo criando uma área de trabalho DBUseArea( .T., cRDD, cTable1, (cTable1), .F., .F. ) // Abre a tabela 2 em modo exclusivo criando uma área de trabalho DBUseArea( .T., cRDD, cTable2, (cTable2), .F., .F. ) // Vai exibir .F., pois cNewAlias contém um nome inválido cNewAlias := "OLD" + cTable1 conout( DBChangeAlias( cOldAlias, cNewAlias ) ) // Vai exibir o valor do campo MYFIELD da tabela 1 // pois o alias cTable1 está aberto conout( (cTable1)->MYFIELD ) // Vai exibir .T. cNewAlias := cTable1 + "NEW" conout( DBChangeAlias( cTable1, cNewAlias ) ) // Vai dar erro tentar exibir o valor do campo MYFIELD da tabela 1 // pois o alias cTable1 não está mais aberto conout( (cTable1)->MYFIELD ) // Vai exibir o valor do campo MYFIELD da tabela 1 // pois o alias cNewAlias está aberto conout( (cNewAlias)->MYFIELD ) // Desconecta TCUnlink( nHandle1 ) return |