Descrição
| Executa uma sentença de sintaxe SQL (Structured Query Language).. |
Sintaxe
| TCSQLExec( <cSQL> ) |
Parâmetros
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
| 01 |
cSQL |
Caracter |
Indica a string que contém a sentença que será informada à função e executada no banco de dados |
X |
Retorno
| Retorno | Tipo | Descrição |
| nRet | Numérico |
Retorna o status da execução. Se menor que 0 indica que a sentença não foi executada com sucesso |
Exemplo
#INCLUDE "TOTVS.CH" User Function TCSQLExec() Local cSQL := "" If !TCIsConnected() MsgAlert( "Sem conexão com o banco de dados", 'UniversoADVPL' ) Return( Nil ) Endif If !"MSSQL" $ TCGetDB() MsgStop( TCGetDB() + " - Nao tratado!", 'UniversoADVPL' ) Return( Nil ) Endif cSQL := "INSERT INTO" If TCSQLExec(cSQL) < 0 MsgStop( "TCSQLError() " + TCSQLError(), 'UniversoADVPL' ) Return( Nil ) Else MsgInfo( "Executado com Sucesso!!!", 'UniversoADVPL' ) Endif Return( Nil )
Resultado
Informações adicionais
|
cSQL depende do banco |
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎