Descrição
MSParseFull [AS] - Analisa uma string SQL – Structured Query Language, escrita em MSSQL – Microsoft Structured Query Language, e converte para a sintaxe de um dos bancos de dados relacionais homologados..
|
Sintaxe
| MSParseFull( <cSQL>, <cBD>, <@cErro>, <@cSaida>, <lbIsQuery> ) |
Parâmetros
| Par |
Nome |
Tipo |
Descrição |
Default |
Obg |
Ref |
01
|
cSQL
|
Caracter
|
Indica a string SQL, escrita em MSSQL, que será convertida
|
|
X |
|
| 02 |
cBD
|
Caracter
|
Indica o nome do banco de dados para o qual será convertida string SQL
|
|
X |
|
| 03 |
cErro
|
Caracter
|
Indica a mensagem de erro, retornada pela função MSParseError(). Caso vazio, nenhum erro foi retornado
|
|
|
X |
|
04
|
cSaida
|
Caracter
|
Indica a string SQL convertida. Caso tenha ocorrido erro, o retorno será apenas até onde foi realizada a conversão para auxiliar na localização do erro no SQL original
|
|
|
X |
| 05 |
lbIsQuery
|
Boolean
|
Indica se, verdadeiro (.T.), é uma query simples (Exemplo: Select); caso contrário, falso (.F.), procedures
|
|
|
|
Retorno
| Retorno |
Tipo |
Descrição |
| nRet |
Numérico
|
Retorna 1, se realizar a conversão corretamente; caso contrário, 0, se ocorrer erro na conversão
|
Exemplo
#INCLUDE "TOTVS.CH"
User Function MSParseFull()
Local cQuery := ""
Local cErro := ''
Local cRet := ''
cQuery := "create proc sp_Teste (@dtInicial char(10), @dtFinal char(18), @ben_id char(6)) " + chr(13)
cQuery += "as " + chr(13)
cQuery += "declare " + chr(13)
cQuery += " @id integer = 1, " + chr(13)
cQuery += " @din money, " + chr(13)
cQuery += " @hoje date " + chr(13)
cQuery += "begin " + chr(13)
cQuery += " select distinct " + chr(13)
cQuery += " j.nav_n2 navio, " + chr(13)
cQuery += " isnull(g.proc_nome,'NAO DEVOLVIDO') local_dev, " + chr(13)
cQuery += " dateadd(hour, 2, b.data_saida) " + chr(13)
cQuery += " from tabela1 a, " + chr(13)
cQuery += " tabela2 b " + chr(13)
cQuery += " where a.dt_entrada between convert(datetime,@dtInicial,103) and convert(datetime,@dtFinal,103) " + chr(13)
cQuery += " and a.cliente = b.cliente " + chr(13)
cQuery += "end " + chr(13)
cQuery += "go "
MSParseFull( cQuery,"INFORMIX", @cErro, @cRet )
If !Empty( cErro )
Conout( 'Erro: ' + cErro )
Else
Conout( 'Retorno: ' + cRet )
Endif
Return( Nil )
Resultado
Informações adicionais
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
