Relatório

[Ratu 0]

ql eh a linha 51?

[shumi 0]

ql eh a linha 51?

essaresponse.write ("<td>" & rspreco("preco") & sql6 & "</td>")

[Ratu 0]

<%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))If NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd Ifcod = Request.Form("cod")estabelecimento = Request.Form("estabelecimento")uf = Request.Form("uf")Sql3="Select distinct(data) From preco_nosso where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"'"Set rs3=Conexcao.Execute(Sql3)Sql4= "Select Distinct(produto) From preco_nosso where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"'"Set rs4 = Conexcao.Execute(Sql4)%><table> <tr> <td> </td> <% do while NOT rs3.EOF %> <td> <%=rs3("data")%> </td> <% rs3.MoveNext loop %> </tr><%do while NOT rs4.EOF%> <tr> <td> <%=rs4("produto")%> </td> <% ' NESTE PONTO QUE ESTA O X DA QUESTÃO, você VAI FAZER UM LOOPING NAS DATAS NOVAMENTE ' ENTAUM você VAI TER A DATA E O PRODUTO, AI você VAI FAZER UM SELECT, E EXIBIR O PRECO ESPECIFICO Set rs3=Conexcao.Execute(Sql3) do while NOT rs3.EOF Sql6="Select preco From preco_nosso where data = '"&rs3("data")&"' AND produto ='"&rs4("produto")&"' and campanha='"&campanha&"' and estabelecimento='"&estabelecimento&"'" SET rspreco = Conexcao.Execute(Sql6) response.write ("<td>" & rspreco("preco") & "</td>") rs3.MoveNext loop %> </tr><% rs4.MoveNext loop%></table>tenta assim se naum der ao invez disso: response.write ("<td>" & rspreco("preco") & "</td>") coloca isso response.write ("<td>" & sql6 & "</td>") e me fala oq acontece!

[shumi 0]

tenta assim se naum der ao invez disso: response.write ("<td>" & rspreco("preco") & "</td>")

 

coloca isso response.write ("<td>" & sql6 & "</td>")

 

e me fala oq acontece!

 

Assim :

 

response.write ("<td>" & rspreco("preco") & "</td>")

 

deu aquele mesmo erro na linha 51

 

e assim:

response.write ("<td>" & sql6 & "</td>")

 

retornou varias SQLs

 

Veja:

28/3/2006 4/4/2006

Produto 10 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 10' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 10' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 11 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 11' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 11' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 12 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 12' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 12' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 13 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 13' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 13' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 14 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 14' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 14' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 15 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 15' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 15' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 16 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 16' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 16' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 17 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 17' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 17' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 18 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 18' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 18' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 19 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 19' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 19' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 2 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 2' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 2' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 3 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 3' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 3' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 4 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 4' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 4' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 5 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 5' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 5' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 6 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 6' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 6' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 7 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 7' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 7' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 8 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 8' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 8' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 9 Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 9' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto =' Produto 9' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

Produto 1 Select preco From preco_nosso where data = '28/3/2006' AND produto ='Produto 1' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' Select preco From preco_nosso where data = '4/4/2006' AND produto ='Produto 1' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

[Ratu 0]

é o seguinte, ele da akele erro pq??!! pq naum acha nenhum registro com o select q você montou

 

Select preco From preco_nosso where data = '28/3/2006' AND produto =' Produto 10' and campanha='' and estabelecimento='A ANGELONI e CIA - 30593'

 

eh o seguinte, você tem que selecionar naquela tabela q você me mostrou, o preco onde a data for igual ao da data atual do LOOPING e o Produto tb for igual ao do looping, a lógica esta aí, os loopings um dentro do outro, tente entender a lógica, naum vai ser sempre que vou te dar o peixe!!!

 

Agora te fazo 1 pergunta: esta query no seu SELECT --> and campanha='' and estabelecimento='A ANGELONI e CIA - 30593' é necessária???? eu acho que naum!! tire ela e execute denovo, mas com o response.write ("<td>" & rspreco("preco") & "</td>")

 

e se o erro persistir, altere para o outro response.write, e pegue 1 SELECT e execute-o no query analiser, as vezes ajuda a detectar o erro.

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[shumi 0]

Ratu,

 

Eu uso banco de dados Access para essa aplicação.

E essa parte:

and campanha='"&campanha&"' and estabelecimento='"&estabelecimento&"'"

 

é necessario, pois essa pagina na verdade é um filtro, na pagina anterior eu tenho um select box onde tem a cidade ai o user seleciona a cidade desejada e no outro select box aparece os estabelecimentos ai quando o user clicar em enviar cai nessa pagina que estamos fazendo...

 

Enquanto a logica que você falou eu entendi, mas looping eu não sei fazer direito, pois sou iniciante no ASP ainda! http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

[Ratu 0]

<table> <tr><td> </td><%do while NOT rs3.EOF%><td><%=rs3("data")%> </td><%rs3.MoveNextloop%></tr><%do while NOT rs4.EOF%><tr><td><%=rs4("produto")%></td><%' NESTE PONTO QUE ESTA O X DA QUESTÃO, você VAI FAZER UM LOOPING NAS DATAS NOVAMENTE' ENTAUM você VAI TER A DATA E O PRODUTO, AI você VAI FAZER UM SELECT, E EXIBIR O PRECO ESPECIFICOSet rs3=Conexcao.Execute(Sql3)do while NOT rs3.EOFSql6="Select preco From preco_nosso where data = '"&rs3("data")&"' AND produto ='"&rs4("produto")&"' and campanha='"&campanha&"' and estabelecimento='"&estabelecimento&"'" SET rspreco = Conexcao.Execute(Sql6) if rspreco.EOF then response.write("<td> SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!!</td>") else response.write ("<td>" & rspreco("preco") & "</td>") end ifrs3.MoveNextloop%></tr><%rs4.MoveNextloop%></table>Vamo lah executa assim, você tem q entender pq está acontecendo o erro, o miolo é o resultado de um select q contem as coordenadas do produto e da data....bom, deste jeito, teoricamente ele tem que montar a estrutura da tabela, vamos ver oq acontece!

[shumi 0]

Ratu,Eu entendi o que você quer me mostrar.você faz uma SQL pra exibir os produtos e outra pra exibir as datas.ai cria as variaveis que execulta as SQLs.No miolo você faz um select do proço comparando a data e o produto...eu mudei meu script para o script q você me passou e exibiu isso:

28/3/2006 4/4/2006 Produto 10 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 11 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 12 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 13 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 14 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 15 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 16 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 17 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 18 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 19 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 2 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 3 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 4 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 5 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 6 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 7 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 8 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 9 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! Produto 1 SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!! SQL ERRADO, PQ NAUM RETORNOU NENHUM REGISTRO!!

Ele não encontrou o valor e foi para a outra função do if... http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

[Ratu 0]

cara, eu naum tenho + ideias doq pode estar errado....:(

[shumi 0]

beleza Ratu, você ajudou pra caramba maninho!!!valeu pela ajuda e pela disposição!!Obrigadovou ver se consigo pensar em algo, esse programa tem que estar funfando na sexta(amanhã) sem falta cara! to ferrado!!!

[shumi 0]

Ratu,

Sabe o que é estranho cara...

 

eu fiz assim:

<%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))If NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd Ifcod = Request.Form("cod")estabelecimento = Request.Form("estabelecimento")uf = Request.Form("uf")Sql6="Select preco from preco_nosso where campanha='"&campanha&"' and estabelecimento='"&estabelecimento&"'"'Sql6="Select * From preco_nosso where campanha='"&campanha&"' and estabelecimento='"&estabelecimento&"'" SET rspreco=Conexcao.Execute(Sql6) While not rspreco.eofresponse.write(rspreco("preco"))rspreco.movenextwend%>

ai esta meu script inteiro, fiz isso só pra testar.

e não retornou nada...

pq isso acontece???

talves esta ai o problema...

[Ratu 0]

entaum testa fazer o select do preco só com os filtros de data e de produto como eu tinha dito antes, e testa, quem arrisca naum petisca...

[shumi 0]

Fiz só assim então...

<%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))If NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd Ifcod = Request.Form("cod")estabelecimento = Request.Form("estabelecimento")uf = Request.Form("uf")Sql3="Select distinct(data) From preco_nosso where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"'"Set rs3=Conexcao.Execute(Sql3)Sql4= "Select Distinct(produto) From preco_nosso where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"'"Set rs4 = Conexcao.Execute(Sql4)Sql6="Select preco From preco_nosso where data = '"&rs3("data")&"' AND produto ='"&rs4("produto")&"'"SET rspreco=Conexcao.Execute(Sql6) While not rspreco.eofresponse.write(rspreco("preco"))rspreco.movenextwend%>

e deu o erro:

Microsoft OLE DB Provider for ODBC Drivers erro '80040e07' [Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério. /sis/relatorio_acoes_lojas_.asp, line 21

http://forum.imasters.com.br/public/style_emoticons/default/upset.gif Putz Rato sabe o que eu acho que ta pegando.o Preço e a data é numerico né?tem alguma coisa a ver?

[shumi 0]

Eu fiz assim:

Sql6="Select * From preco_nosso where estabelecimento='"&estabelecimento&"' and campanha='"&cod&"' and produto='"&rs4("produto")&"'"

e funfou, mas quando coloco a data assim:

Sql6="Select * From preco_nosso where estabelecimento='"&estabelecimento&"' and campanha='"&cod&"' and produto='"&rs4("produto")&"' and data='"&rs3("data")&"'"

da o erro:

ADODB.Recordset erro '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. /sis/relatorio_acoes_lojas_.asp, line 20

é só por a data que da erro...

[Ratu 0]

em qual linha esta dando erro?? na hora de executar a query?da um response.write nela e um response.end pra ver

[shumi 0]

na hora que coloco a condição para a data... o resto vai! só a data que da erro...

[Ratu 0]

q erro, em q linha, e como você fez, jah eh dificil debugar um sistema, ainda + de longe... seja + detalhista

[shumi 0]

quando faço um response.write na data vem a data certa 23/03/2006 só na sql que ão funfaDesculpa Ratu.veja meu script esta assim:

<%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))If NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd Ifcod = Request.Form("cod")estabelecimento = Request.Form("estabelecimento")uf = Request.Form("uf")Sql3="Select distinct(data) From preco_nosso where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"'"Set rs3=Conexcao.Execute(Sql3)Sql4= "Select Distinct(produto) From preco_nosso where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"'"Set rs4 = Conexcao.Execute(Sql4)Sql6="Select * From preco_nosso where estabelecimento='"&estabelecimento&"' and campanha='"&cod&"' and produto='"&rs4("produto")&"' and data='"&rs3("data")&"'"SET rspreco=Conexcao.Execute(Sql6) While not rspreco.eofresponse.write(rspreco("preco"))rspreco.movenextwend%>

e deu o erro:

Microsoft OLE DB Provider for ODBC Drivers erro '80040e07' [Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério. /sis/relatorio_acoes_lojas_.asp, line 21

a linha 21 éSET rspreco=Conexcao.Execute(Sql6) e eu debuguei somente com a SQL da data e veio a data certa assim dd/mm/aaaa, mas no meu banco de dados a data esta 16-marco-2006(não sei se influi), mas quando coloco a clausula where na sql6 da o erro acima citado.estranho ne!

[Ratu 0]

pega esta data e faz assim entaumdia = day(rs("data"))mes = month(rs("data"))ano = year(rs("data"))data = day & "/" & mes & "/" & anoe coloca ela no select... se naum funcionar inverte o mes e o dia...e se naum funcionar dnovo seilah!!

[shumi 0]

Ratu,

Fiz assim:

 

 

<%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))If NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd Ifcod = Request.Form("cod")estabelecimento = Request.Form("estabelecimento")uf = Request.Form("uf")Sql3="Select distinct(data) From preco_nosso where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"'"Set rs3=Conexcao.Execute(Sql3)response.write(rs3("data"))Sql4= "Select Distinct(produto) From preco_nosso where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"'"Set rs4 = Conexcao.Execute(Sql4)response.write(rs4("produto"))Sql6="Select * From preco_nosso where estabelecimento='"&estabelecimento&"' and campanha='"&cod&"' and produto='"&rs4("produto")&"' and data='"&rs3("data")&"'"SET rs6=Conexcao.Execute(Sql6) While not rs6.eofresponse.write(rs6("preco"))rs6.movenextwend%>

e troquei a configuração do meu banco pra texto no campo data.

 

e escreveu o resultado certinho!!!!!!!

 

Vou tentar adaptar o que você tinha me passado!

 

Valeu maninho!!!!!!!!!!!!!