Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/6062824/tecnologia.css

Pagetitle
TCSPExec
TCSPExec

Executa Função que executa uma stored procedure do no banco de dados atual.

Sintaxe

aResult := tcSPExec(<cStoredProcedure>[, <xParam>])

Bloco de código
collapsefalse
TCSPExec( < cStoredProcedure >, [ xParam ] )

Parâmetros

Indica o nome  

Nome

Tipo

Descrição

Obrigatório

Referência

cStoredProcedure

caractere

Nome

ParâmetroTipoObrigatórioDescrição
cStoredProcedureCaractere(seleção)

da stored procedure a ser executada.

X

 

xParam

Qualquer

caractere

Indica uma ou mais expressões, separadas por vírgula, indicando os parâmetros necessários para a execução da stored procedure.

 

 

Retorno

Nome

Tipo

Descrição

aResult

Array

vetor

Retorna um array que contêm os valores de retorno da stored procedure. O retorno será nulo se nenhum valor for retornado pela stored procedure ou ocorrer algum erro na chamada da procedure.

Exemplo

...

Exemplos

Exemplo de stored procedure para o banco SQL Serverjá existente no banco de dados.

Bloco de código
languagesql
themeEclipse
linenumberstrue
Create Procedure USRTESTE( @IN_VALUE@inValue int, @OUT_STR@outStr char(64) OUTOUTPUT, @OUT_VALUE@outValue int OUTOUTPUT) As
Begin
  set @OUT_STR@outStr = 'Teste'
  set @OUT_VALUE@outValue = @IN_VALUE@inValue + 3
End 

 

Exemplo de chamada AdvPL


End
code
Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
#include "totvs.ch"
User Function exemploteste()

  Local aResult := {}
  aResult := TCSPEXEC("USRTESTE", 100)
  
  IF empty(aResult)
    Conout('Erro na execução da Stored Procedure : '+TcSqlError())
  Else
    Conout("Retorno String : "+aResult[1])
    Conout("Retorno Numerico : "+str(aResult[2]))
    MsgInfo("Procedure Executada")
  Endif
  
Return

Veja também