Cabeçalho

TCSQLExec [AS]

Autor: Eurai Criado: 01/01/2016 Atualizado: 25/04/2025 Acesso a Dados

Postagem

Descrição

TCSQLExec [AS] - 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
tcsqlexec_-_resultado_01