PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 25 → [Exemplo]Executar Procedimento Armazenado (Procedure) MySQL desde o Windev
[Exemplo]Executar Procedimento Armazenado (Procedure) MySQL desde o Windev
Started by Willian Fernando, Oct., 31 2016 7:30 PM - 1 reply
Registered member
123 messages
Popularité : +46 (46 votes)
Posted on October, 31 2016 - 7:30 PM
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 modified, October, 31 2016 - 7:31 PM
Registered member
44 messages
Popularité : +7 (7 votes)
Posted on October, 31 2016 - 7:36 PM
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
Message modified, October, 31 2016 - 7:40 PM