Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Pagetitle
MSParse
MSParse

Analisa e converte uma string SQL - Structured Query Language, escrita em MSSQL - Microsoft Structured Query LanguageStored Procedure escrita em SQL ANSI, para um dos bancos de dados relacionais homologados.

...

Bloco de código
collapsefalse
MSParse( < cSQL >, <[ cBDlComp >], [< lIsQuerycBD ]> )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cSQL

caractere

Indica a string SQL,

Stored Procedure escrita em

MSSQL

SQL ANSI, que será convertida.

X

 

lComp

lógico

Parâmetro de compatibilidade. Deve ser informado o valor nulo ( NIL ).

 

 

cBD

caractere

Indica o nome do banco de dados para o qual será convertida

string SQL - Structured Query Language

Stored Procedure.

X

lIsQuery

lógico

Indica se, verdadeiro (.T.), é uma query simples (Exemplo: Select); caso contrário, falso (.F.), procedures.

 

Retorno

Nome

Tipo

Descrição

cResult

caractere

Retorna a

string SQL

Stored Procedure convertida para o banco em questão, ou retorna uma string vazia caso exista algum erro ou impossibilidade na conversão da procedure.

Observações

  • Recomendamos a utilização da função MSParseFull(), pois contempla todas as características dessa função com mais funcionalidades.

...

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
user Functionfunction exemplo()

  TCLink()
  
  cSQL := " Create Procedure PROC_EXAMPLE(@outStr char(64) OUTPUT, @outValue int OUTPUT) As " + ;
          " Begin " + ;
          "   select @outStr = 'Teste' " + ;
          "   select @outValue = 100 " + ;
          " End "
          
  // verifique o banco de dados utilizado para atribuir no segundo parametro da função MSParse
  cResult := MSParse(cSQL, "ORACLE", .F.)
  
  conout(cResult)
  
  TCSPExec(cResult)
  
  if TCSPExist("PROC_EXAMPLE") == .T.
    conout("Procedure criada com sucesso!")
  endif
  
  TCUnlink()
  
Return

...