PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 25 → [Exemplo]Executar Procedimento Armazenado (Procedure) MySQL desde o Windev
[Exemplo]Executar Procedimento Armazenado (Procedure) MySQL desde o Windev
Iniciado por Willian Fernando, 31,oct. 2016 19:30 - 1 respuesta
Miembro registrado
123 mensajes
Popularité : +46 (46 votes)
Publicado el 31,octubre 2016 - 19:30
n_valor_demo is int = 1
s_valor_demo_string is string = "abc"
ds_result is Data Source
b_resultado is boolean
s_sql is string = "CALL pr_prueba ("+n_valor_demo+","+"'"+s_valor_demo_string+"')"
b_resultado = HExecuteSQLQuery(ds_result,AQUI_O_NOME_DA_CONEXÃO,hQueryDefault+hQueryWithoutCorrection,s_sql)
IF b_resultado = False THEN
//hay error, tratarlo
END


P.D: Atenção, deve ser montado manualmente a cadeia de SQL, então o cuidado deve ser tomado com as Strings, protegê-lo com aspas simples, prestar atenção com as vírgulas, e fechando o parêntese

--
Atte. Willian Fernando
Mensaje modificado, 31,octubre 2016 - 19:31
Miembro registrado
44 mensajes
Popularité : +7 (7 votes)
Publicado el 31,octubre 2016 - 19:36
Willian Fernando a écrit :
n_valor_demo is int = 1
s_valor_demo_string is string = "abc"
ds_result is Data Source
b_resultado is boolean
s_sql is string = "CALL pr_prueba ("+n_valor_demo+","+"'"+s_valor_demo_string+"')"
b_resultado = HExecuteSQLQuery(ds_result,AQUI_O_NOME_DA_CONEXÃO,hQueryDefault+hQueryWithoutCorrection,s_sql)
IF b_resultado = False THEN
//hay error, tratarlo
END


P.D: Atenção, deve ser montado manualmente a cadeia de SQL, então o cuidado deve ser tomado com as Strings, protegê-lo com aspas simples, prestar atenção com as vírgulas, e fechando o parêntese

--
Atte. Willian Fernando
Message modifié, 31 octobre 2016 - 15:31



Olá Willian!

Bacana seu método, o meu já um pouco diferente (só na string e na função)

Eu de costume já faço a minha execução do script com SQLExec e monto minha string e depois aplico o replace() desta para uma string que será executada no SQLExec.

queryA is string = [
CALL prd_excluirEnem(@id@,'@motivo@',@idusuario@)
]

queryExec is string = ""

queryExec = Replace(queryA,"@id",glID)
queryExec = Replace(queryA,"@motivo",s_Motivo)
queryExec = Replace(queryA,"@idusuario",dIDUser)

SQLExec(queryExec,"Q_CallExcluirEnem")

[...]


Um Abraço!

--
Analista de Sistemas Jr
www.arsistemas.com.br
Pai da Alícia e Marido da Andréa <3
Mensaje modificado, 31,octubre 2016 - 19:40