Consulta

[D4rk Schn31d3r]

Tem como eu consultar, passando um parâmetro por vez, assim:

de.qryConsPesq param1

de.qryConsPesq param2

de.qryConsPesq param3

.

.

.

, ao invés de ter q fazer obrigatoriamente assim: de.qryConsPesq param1, param2, param3, ...

[Xevious]

Ta mas tu quer 3 pesquisas, uma depois da outra?

se for não encherguei a tua dificuldade

Mas se quer construir a consulta em 3 vezes

e depois fazer a consulta

também dá

é só manipular a string do comando SQL pra funcionar assim

[D4rk Schn31d3r]

Isso, quero passar um parâmetro por vez, como faço em delphi, isso porque em determinados parâmetros tenho 2 opções, e aí teria q usar o if, para passar 1 ou outro, tipo assim:

de.qryConsPesq param1

if Situação_A then

de.qryConsPesq param2A

else

de.qryConsPesq param2B

de.qryConsPesq param3

.

.

.

, e usando esse esquema: de.qryConsPesq param1, param2, param 3 ..., não tenho como usar a cláusula if, dentro dessa passagem de parâmetros, entendeu?

[D4rk Schn31d3r]

Alguém tem alguma idéia?

[D4rk Schn31d3r]

Consegui fazer uma gambiarra e resolver a situação, fiz assim:

dim prm1 as string
dim prm2 as string
dim prm3 as string

If situacao_A then
   prm1 = "A1"
else
   prm1 = "A2"
end if

If situacao_B then
   prm2 = "B1"
else
   prm2 = "B2"
end if

If situacao_C then
   prm3 = "C1"
else
   prm3 = "C2"
end if

.
.
.

de.qryConsPesq prm1, prm2, prm3

Ufaaaaaaa!!!

[William Rodrigues]

Que bom que conseguiu brother...

Continue assim...

E quando precisar é só dar um toque beleza

Abraços,

William Rodrigues