Example Run an MS SQL Procedure with Windev, Webdev using HExecuteSQLQuery (Executar uma MS SQL Procedure com o Windev, Webdev usando o HExecuteSQLQuery) - WINDEV Mobile 2024 - Fóruns de programação

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... | | Português

Inicio → WINDEV Mobile 2024 → Example Run an MS SQL Procedure with Windev, Webdev using HExecuteSQLQuery (Executar uma MS SQL Procedure com o Windev, Webdev usando o HExecuteSQLQuery)

Example Run an MS SQL Procedure with Windev, Webdev using HExecuteSQLQuery (Executar uma MS SQL Procedure com o Windev, Webdev usando o HExecuteSQLQuery)

Iniciado por adrianoboller, jan., 08 2015 5:24 PM - 6 respostas

adrianoboller

Membro registado
3.659 mensagems
Popularité : +175 (223 votes)

Publicado em janeiro, 08 2015 - 5:24 PM

Example to Run an MS SQL Procedure with Windev, Webdev using HExecuteSQLQuery (Exemplo para Executar uma MS SQL Procedure com o Windev, Webdev usando o HExecuteSQLQuery)

CODIGO MSSQL:

--PEGA O VALOR DA ULTIMA CORRIDA

USE [producao]
GO

CREATE PROCEDURE NG0002_Procedure_UltimaCorrida
AS

DECLARE @num_corrida int;

SELECT @num_corrida = num_ultima_numera FROM numeracao WHERE ide_numera = 'ACT263_CORRIDA' AND num_ano_refere = year(getdate());

SELECT @num_corrida AS num_corrida;

return @num_corrida;

GO

CODIGO NO WINDEV, WEBDEV - USO EM WEBSERVICE:

//Executar procedure

   numero_corrida is int = 0
   MyProcedureUltimaCorrida is Data Source           
   IF HExecuteSQLQuery(MyProcedureUltimaCorrida, ConnNativa, hQueryWithoutCorrection,"NG0002_Procedure_UltimaCorrida") THEN
    HReadFirst(MyProcedureUltimaCorrida, num_corrida)
         WHILE HOut() = False       
                  ok = HReadNext(MyProcedureUltimaCorrida, num_corrida)
                  numero_corrida = MyProcedureUltimaCorrida.num_corrida
         END
   ELSE
          Error(HErrorInfo())
   END
   Trace(numero_corrida)

Veio valor sem dar erro no Trace()

Denunciar

Deve estar conectado para avaliar esta mensagem

adrianoboller

Membro registado
3.659 mensagems
Popularité : +175 (223 votes)

Publicado em janeiro, 08 2015 - 7:06 PM

Informação adicional:

http://doc.windev.com/en-US/…

Denunciar

adrianoboller

Membro registado
3.659 mensagems
Popularité : +175 (223 votes)

Publicado em janeiro, 09 2015 - 5:24 PM

HClose(dsIntegraIn_Destino_Criar)

sCodeSqlStoredProcedure is string = [
Insert_IntegraIn X_Id_IntegraOut, X_Data, X_Hora, 'X_Sql', 'X_IP', X_Flag_Atualiza, X_Id_Filial, 'X_Usuario', 'X_Programa', 'X_Nome_PC', 'X_Nome_Procedure', XFlag_Erro
]

sCodeSqlStoredProcedure = Replace(sCodeSqlStoredProcedure,"X_Id_IntegraOut",dsIntegraOut.Id_IntegraOut)
sCodeSqlStoredProcedure = Replace(sCodeSqlStoredProcedure,"X_Data",dsIntegraOut.Data)
sCodeSqlStoredProcedure = Replace(sCodeSqlStoredProcedure,"X_Hora",dsIntegraOut.Hora)
sCodeSqlStoredProcedure = Replace(sCodeSqlStoredProcedure,"X_Sql",dsIntegraOut.Sql)
sCodeSqlStoredProcedure = Replace(sCodeSqlStoredProcedure,"X_IP",dsIntegraOut.IP)
sCodeSqlStoredProcedure = Replace(sCodeSqlStoredProcedure,"X_Flag_Atualiza","0")
sCodeSqlStoredProcedure = Replace(sCodeSqlStoredProcedure,"X_Id_Filial",dsIntegraOut.Id_Filial)
sCodeSqlStoredProcedure = Replace(sCodeSqlStoredProcedure,"X_Usuario",dsIntegraOut.Usuario)
sCodeSqlStoredProcedure = Replace(sCodeSqlStoredProcedure,"X_Programa",dsIntegraOut.Programa)
sCodeSqlStoredProcedure = Replace(sCodeSqlStoredProcedure,"X_Nome_PC",dsIntegraOut.Nome_PC)
sCodeSqlStoredProcedure = Replace(sCodeSqlStoredProcedure,"X_Nome_Procedure",dsIntegraOut.Nome_Procedure)
sCodeSqlStoredProcedure = Replace(sCodeSqlStoredProcedure,"XFlag_Erro","0")

//info(sCodeSqlStoredProcedure)

//dsIntegraOut.Id_IntegraOut+","+dsIntegraOut.Data+","+dsIntegraOut.Hora+","+dsIntegraOut.Sql+","+dsIntegraOut.IP+",0,"+dsIntegraOut.Id_Filial+","+dsIntegraOut.Usuario+","+dsIntegraOut.Programa+","+dsIntegraOut.Nome_PC+","+dsIntegraOut.Nome_Procedure+",0"
//IF NOT HExecuteSQLQuery(dsIntegraIn_Destino_Criar,gctConectar_Destino, hQueryWithoutCorrection, "Insert_IntegraIn "+dsIntegraOut.Id_IntegraOut+","+dsIntegraOut.Data+","+dsIntegraOut.Hora+",'"+dsIntegraOut.Sql+"' , '"+dsIntegraOut.IP+"' ,0,"+dsIntegraOut.Id_Filial+", '"+dsIntegraOut.Usuario+"' , '"+dsIntegraOut.Programa+"' , '"+dsIntegraOut.Nome_PC+"' , '"+dsIntegraOut.Nome_Procedure+"',0") THEN
IF NOT HExecuteSQLQuery(dsIntegraIn_Destino_Criar,gctConectar_Destino, hQueryWithoutCorrection, sCodeSqlStoredProcedure) THEN
Error("HFSQL error: " + HErrorInfo())
ELSE
Info("OK!")
END

Denunciar

adrianoboller

Membro registado
3.659 mensagems
Popularité : +175 (223 votes)

Publicado em janeiro, 09 2015 - 5:25 PM

CREATE PROCEDURE Insert_IntegraIn
(
@Id_IntregraIN Int,
@Data FLOAT,
@Hora FLOAT,
@Sql VARCHAR(4999),
@IP VARCHAR(49),
@Flag_atualiza TINYINT,
@Id_Filial Int,
@Usuario VARCHAR(49),
@Programa VARCHAR(49),
@Nome_PC VARCHAR(49),
@Nome_procedure VARCHAR(49),
@Flag_Erro TINYINT)
AS
Begin
INSERT INTO IntegraIn (ID_INTEGRAIn, Data, Hora, Sql, IP, Flag_atualiza, Id_Filial, Usuario, Programa, Nome_PC, Nome_procedure, Flag_Erro) VALUES
(@Id_IntregraIN, @Data, @Hora, @Sql, @IP, @Flag_atualiza, @Id_Filial, @Usuario, @Programa, @Nome_PC, @Nome_procedure, @Flag_Erro)

Denunciar

BOLLER

Membro registado
3.659 mensagems
Popularité : +175 (223 votes)

Publicado em novembro, 07 2016 - 12:16 PM

Manual do comando:

http://help.windev.com/en-US/…

Para ter certeza que nao vai ter duplicados e vai incluir com segurança use:

hQueryWithoutCorrection

hQueryWithoutHFCorrection

hCheckDuplicates

hCheckIntegrity

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/

Denunciar

BOLLER

Membro registado
3.659 mensagems
Popularité : +175 (223 votes)

Publicado em dezembro, 27 2016 - 1:24 PM

Exemplo de HexecuteSqlQuery

SqlExecuta is string = [
Select * from clientes where codigo <= §codigo§
]

SqlExecuta  = Replace(SqlExecuta , "§codigo§", 100)

DS_Executa is Data Source

ok is boolean = HExecuteSQLQuery(DS_Executa, QueryDefault, SqlExecuta)

IF ok = True
            For each DS_Executa             
                   IF HFound(DS_Executa) = True                   
                            //leitura dos dados                  
                                     Info(DS_Executa.codigo, DS_Executa.Nome, DS_Executa.CPF)             
                  END//if      
           END//for

ELSE     
       Info(ErrorInfo())
END

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/

Denunciar

BOLLER

Membro registado
3.659 mensagems
Popularité : +175 (223 votes)

Publicado em fevereiro, 03 2017 - 2:51 PM

Exemplo

Procedure Existdatabase(TOKEN, CNPJ)

ok is boolean = False

Resultado, Msg is string = ""

IF TOKEN = GloToken AND CNPJ <> "" AND Length(CNPJ) = 14 AND IsNumeric(CNPJ) = True

 OkConn is boolean = HConnectionOpen(ConnModel)
 
 IF OkConn = True THEN
  
  SQL_Exec is string = [
                        sp_roteiroinicial01_existdatabase   '@CNPJ@'
  ]
  
  SQL_Exec = Replace(SQL_Exec,"@CNPJ@",CNPJ,IgnoreCase+WholeWord)  //Instrucao SQL
  
  QryAdriano  is Data Source
  
  ok = HExecuteSQLQuery(QryAdriano, ConnModel,hQueryWithoutCorrection, SQL_Exec) // <---Obrigatorio ter hQueryWithoutCorrection
  
  Resultado = ErrorInfo() + " " + HErrorInfo()
  
  IF ok = True THEN

   FOR EACH QryAdriano
             IF HFound(QryAdriano) = True
           Msg = QryAdriano.Existe
                               END
   END

   HFreeQuery(QryAdriano)
   
  END
  
 ELSE
  Msg = "Erro de conexão com o servidor" 
 END

ELSE
 
   Msg = "Token errado ou CNPJ errado"

END  

RESULT (Msg)

Denunciar

→ Voltar para WINDEV Mobile 2024