Insere ou atualiza um parâmetro na TOP_PARAM.
TCSetParam( < cParam >, < cValue > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cParam | caractere | Indica o nome do parâmetro que será criado ou atualizado. | X | |
cValue | caractere | Indica o valor do parâmetro indicado em cParam. | X |
Nome | Tipo | Descrição |
---|---|---|
nRet | numérico | Retorna 0 (zero) se a operação foi completada com sucesso ou diferente em caso de erro. |
O teste abaixo considera que a tabela TOP_PARAM está vazia.
user function test1() Local nHandle1 := TCLink( "MSSQL/DSN1", "127.0.0.1", 7890 ) Local cAlias := "alias" Local cQuery := "" // Cria o parâmetro "PARAM1" com o valor "VALUE1" conout( TCSetParam( "PARAM1", "VALUE1" ) ) // Vai exibir: 0 // Atualiza o parâmetro "PARAM1" com o valor "VALUE2" conout( TCSetParam( "Param1", "VALUE2" ) ) // Vai exibir: 0 // Verifica quantos registros existem do parâmetro "PARAM1" cQuery := "SELECT COUNT( PARAM_VALUE ) AS CNT FROM TOP_PARAM WHERE PARAM_NAME='PARAM1'" DBUseArea( .T., cRDD, TCGenQry( , , cQuery ), (cAlias), .F., .T. ) conout( (cAlias)->CNT ) // Vai exibir: 1 DBCloseArea() // Pega o valor do parâmetro "PARAM1" cQuery := "SELECT PARAM_VALUE FROM TOP_PARAM WHERE PARAM_NAME='PARAM1'" DBUseArea( .T., cRDD, TCGenQry( , , cQuery ), (cAlias), .F., .T. ) conout( (cAlias)->PARAM_VALUE ) // Vai exibir: Value2 DBCloseArea() TCUnlink( nHandle1 ) return |