De Request.form Para Query Sql

[Guinho.TI]

Preciso alterar um número padrão de uma query para um valor que o usuário digitar. A Query era assim:

... SrtSQl = SrtSQL&" and (StDev(duracao)/Avg(duracao) > 4)"

Então, fiz o seguinte:

**Inseri o campo no formulário

<input class=""textarea"" type=""text"" name=""md"" id=""md"" size=8 value='4' >

** E alterei a query

... SrtSQl = SrtSQL&" (StDev(duracao)/Avg(duracao) > ' " & Request.form("md") & " ')"

Ocorre que, o formulário não lê o valor digitado e retorna da segunte forma

...and (StDev(duracao)/Avg(duracao) > '')

O que eu devo fazer???

[webdeveloper]

O form e a query estã em páginas diferentes???

[Guinho.TI]

Sim!

na verdade esta aplicação roda na Intranet da Empresa e nõ fui eu quem desenvolveu, somento faço manutenção.

Existe uma página com o FORM, outra com a QUERY e outra que exibe os resultados e a paginação. Mesmo sendo desta forma, a query funciona corretamente. O problemas está quando eu inseri o Request.Form....

Abc

[webdeveloper]

Checa no form o que tem na linha <form action...> verifica se o method é POST ou GET.

[marcos_804]

Cara já tive problemas parecidos... por isso eu acho que voce não está capturando o valor do campo corretamente...

Tente fazer os seguintes passos:

1 - Verifique se o método é POST ou GET, como descreveu o nosso amigo.

2 - Tente chamar o valor do form dentro de uma variavel

3 - Imprima o valor para você saber o comportamento da pagina.

Assim:

MinhaVariavel = request.Form("meuFormQueVemPeloMetodoPost");

response.write("O valor é: "& MinhaVariavel)
response.end 'Pare de executar o codigo nesta linha

Tenta aí...

Ou então passa o Cod que eu dou 1 Olhada...

flow.

[Guinho.TI]

Bom, conforme vocês me sugeriram, verifiquei o método e criei o Response.write.

O método é POST e quando eu crio o response.write ele retorna vazio...

a=Request.form("md")

b=request.form("desvio")

response.write("O valor de MD é: "& a)

Response.write("<br>")

response.write("O valor de DESVIO é: "& B)

O valor é:

O valor é:

Vou colar o trecho do código pra vocês verem: (O CODEBOX nã esta funcionando, por isso vou colar..)

FORMULÁRIO

text = text&"<FORM name=""JobsMF"" id=""JobsMF"" action=""FormInter.asp"" method=post>"&chr(13)&""

'******************************************************

'* PARÂMETROS DE BUSCA - MÍNIMO DE OCORRÊNCIAS NO JOB *

'******************************************************

text = text&" <TR>"&chr(13)&""

text = text&" <TD width=""10%"" align=""right""><img src=""img\check1.gif""></TD>"&chr(13)&""

text = text&" <TD width=""32%"" class=""filtro"" align=""right"">"&chr(13)&""

text = text&" Mín. de Ocorrências:     "&chr(13)&""

text = text&" </TD> "&chr(13)&""

text = text&" <TD> "&chr(13)&""

text = text&" <input class=""textarea"" type=""text"" name=""md"" id=""md"" size=8 value='9' ></span> "&chr(13)&""

text = text&" </TD> "&chr(13)&""

text = text&" </TR>"&chr(13)&""

'*************************************************************************

'* PARÂMETROS DE BUSCA - RAZÃO DESVIO PADRÃO DIVIDIDO PELA DURAÇÃO MÉDIA *

'*************************************************************************

text = text&" <TR>"&chr(13)&""

text = text&" <TD width=""10%"" align=""right""><img src=""img\check1.gif""></TD>"&chr(13)&""

text = text&" <TD width=""25%"" class=""filtro"" align=""right"">"&chr(13)&""

text = text&" Desvio Padrão:     "&chr(13)&""

text = text&" </TD> "&chr(13)&""

text = text&" <TD> "&chr(13)&""

text = text&" <input class=""textarea"" type=""text"" name=""desvio"" id=""desvio"" size=8 value='3.9' ></span> "&chr(13)&"" text = text&" </TD> "&chr(13)&""

text = text&" </TR>"&chr(13)&""

text = text&"</FORM>"&chr(13)&""

Response.write(text)

QUERY (Página do ACTION)

Dim SrtSQl

Dim desvio,md

Dim Tabela

Dim oConn

Dim iRS

Tabela = "HIS_jobs"

SrtSQL = " SELECT nome_job, Count(*) AS cnt, Max(duracao) AS MaxDur, Min(duracao) AS MinDur, Avg(duracao) AS MedDur, "

SrtSQL = SrtSQL& "CONVERT(decimal(10,2), (StDev(duracao))) as DESDUR, "

SrtSQL = SrtSQL& "CONVERT(decimal(10,2), (StDev(duracao)/Avg(duracao))) as per FROM "&Tabela&""

SrtSQL = SrtSQL&" GROUP BY nome_job having (Count(*) > '"&Request.form("md")&"') and (Avg(duracao) <> 0 ) and " '"&Request.Form("md")&"'

SrtSQL = SrtSQL&" (StDev(duracao)/Avg(duracao) > '"&Request.Form("desvio")&"')"

Set iRS = Server.CreateObject("ADODB.Recordset")

iRS.Open SrtSQL, oConn, 3, 1

Desde já agradeço

[ ]'s

Editado Julho 17, 2007 por Guinho.TI