PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV 25 → WX - QUERY SQL COM CLAUSULA IN
WX - QUERY SQL COM CLAUSULA IN
Started by BOLLER, Apr., 19 2017 1:32 AM - No answer
#1
Registered member
3,659 messages
Popularité : +175 (223 votes)
Posted on April, 19 2017 - 1:32 AM
EDT_CampoTela = "10; 20; 30"

Qry_TabelaX
SELECT * FROM TABELA WHERE CAMPO1 IN {paramValoresCampoTela}


//QUERY SQL COM CLAUSULA IN

Valor01, valor02, valor03 are string

Ok = HExecuteQuery(Qry_TabelaX, ConnectHFSQL, hQueryDefault+hQueryWithoutCorrection , Edt_CampoTela)

IF ok = True

For each Qry_TabelaX

IF HFound(Qry_TabelaX)

Valor01 = Qry_TabelaX.campo01

Valor02 = Qry_TabelaX.campo02

Valor03 = Qry_TabelaX.campo03

END

END

END

Info(Valor01, valor02, valor03)



or

EDT_CampoTela = "10; 20; 30"


//QUERY SQL COM CLAUSULA IN

Qry_TabelaX is Data Source

SQL_Execute is string = [
SELECT * FROM TABELA WHERE CAMPO1 IN '@ValoresCampoTela@'
]

SQL_Execute = Replace(SQL_Execute, "@ValoresCampoTela@", EDT_CampoTela)

Valor01, valor02, valor03 are string

Ok = HExecuteSQLQuery(Qry_TabelaX, ConnectHFSQL, hQueryDefault+hQueryWithoutCorrection, Edt_CampoTela)

IF ok = True

For each Qry_TabelaX

IF HFound(Qry_TabelaX)

Valor01 = Qry_TabelaX.campo01

Valor02 = Qry_TabelaX.campo02

Valor03 = Qry_TabelaX.campo03

END

END

END

Info(Valor01, valor02, valor03)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Go back to WINDEV 25