Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

baladaclick

Request.QueryString

Por , em ASP Clássico

Recommended Posts

baladaclick    0

baladaclick
Postado

Galera é o seguinte, to tentando fazer um sisteminha de estoque. no meu banco tenho 2 tabelas, Regionais (onde estao cadastrados todas as filiais) com os campos Id_regional e Regional e a tabela Entrada (onde são cadastrados todos os produtos que entram) com os campos Id_regional, qtde_entrada, produto_entrada e data_entrada.

 

no banco access eu relacionei o id_regional da Regional com o id_regional da Entrada.

 

tenho uma pagina que printa todas as regionais, mas quando eu clico em qualquer regional ele não está pegando as entradas que eu fiz na respectiva regional. será que deu p entender?

 

tipo assim, quero que exiba todas as entradas da regional ribeirao preto(id_regional).

 

vou postar meu code

 

regionais.asp

<%PagAtual = Request.QueryString("PagAtual") 'página atualSet Conn= server.createobject("adodb.connection")DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../banco/estoque.mdb")Conn.Open DSNtestSet RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginaçãoSQL = " SELECT * FROM regionais "RS.Open SQL, conn, 3%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title><style type="text/css"><!--.style33 {	font-size: 14px;	font-weight: bold;	font-family: Verdana, Arial, Helvetica, sans-serif;}.style34 {	font-family: Verdana, Arial, Helvetica, sans-serif;	font-weight: bold;	font-size: 12px;}.style35 {font-family: Verdana, Arial, Helvetica, sans-serif}.style38 {font-size: 12px}.style39 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; }--></style></head><body><table width="100%" border="0" cellspacing="0" cellpadding="0">  <tr>	<td><div align="center" class="style33">Regionais</div></td>  </tr>  <tr>	<td> </td>  </tr>  <tr>	<td><div align="center" class="style34">	  <%'############## paginacao Introdução #################'------- Coloque aqui a quantidade de registros que você deseja por página --------SELECT CASE npCASE "1" NumPorPage = "1"CASE "15" NumPorPage = "15"CASE ELSE NumPorPage = "10"END SELECT'Const NumPorPage = 20'Verifica qual a página solicitadaDim PagAtualIF Request.QueryString("PagAtual") = "" ThenPagAtual = 1 'Primeira páginaElsePagAtual = Request.QueryString("PagAtual")End If'Cria conexão com o Banco de Dados, já abrir anteriormente'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset")'>>> FIZ EM CIMA RS.CursorLocation = 3 Acerta a posição do cursor . 3 ou adUseClientRS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros'Cria a String SQL'>>> FIZ EM CIMA Dim SQLpag'>>> FIZ EM CIMA SQLpag = "SELECT * FROM jogos"'>>> FIZ EM CIMA RS.Open SQLpag, Conn Abre o RecordSetRS.MoveFirst 'Move o RecorSet para o inícioRS.PageSize = NumPorPage 'Coloca a quantidade de páginasDim TotalPages 'Pega o número total de páginasTotalPages = RS.PageCountRS.AbsolutePage = PagAtual 'Configura a página atual'############## paginacao Introdução - FIM #################Count = 0 'Zera o contador'Inicia a Função DO, utilizando a quantidade de páginas especificadas'Ou seja ele irá executar a ação até que o valor Count seja menor que "20" como está no nosso exemploi = 0DO WHILE NOT RS.EOF And Count < RS.PageSize 'paginacao And Count < RS.PageSize' ----- linhas coloridas -------if i mod 2<>0 thencor = "#000000"elsecor = "#000000"end if'-------------------------------%>	  <a href="relatorio.asp?id=<%= rs("id_regional")%>">		<% = rs("regionais")%>		</a></div></td>  </tr>  <tr>	<td><span class="style38"></span></td>  </tr>  <tr>	<td><div align="center"><span class="style35"><span class="style38"><span class="style38"><span class="style35"><span class="style38"></span></span></span></span></span></div></td>  </tr>  <tr>	<td><div align="center" class="style39">	  <p>		<%	i = i+1 Count = Count + 1   'paginacao	RS.MoveNext	LOOP				'também paginacao%>	  </p>	  <p> </p>	  </div></td>  </tr>  <tr>	<td><div align="center" class="style39">	  <%'#####################inicio da paginação#################### Response.Write("<B><font color=""#006600"" size=""1"" face=""arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> <br> ")   'Mostra os botões: Anterior e Próxima, utilizando da opção de IF IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima	  Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") 	  Response.Write("<a href='relatorio.asp?PagAtual=" &  1 & "'>")	  Response.Write("Primeira") 	  Response.Write("</a></font></B>  ")	  	  Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") 	  Response.Write("<a href='relatorio.asp?PagAtual=" & PagAtual - 1 & "'>")	  Response.Write("Anterior") 	  Response.Write("</a></font></B>  ")	 Else	  Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") 	  Response.Write("Primeira") 	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") 	  Response.Write("Anterior") 	  Response.Write("</font></B>  ")End If'------------------- numero -------------------------'---------- Numero de numeros para ser mostrados ----   max_n_mostrados = 10intervalo = Int(max_n_mostrados /2)inicio = PagAtual - intervalofinal = PagAtual + intervaloIf CInt(inicio) <1 Then  inicio = 1 final = 10END IFIf CInt(final) > CInt(TotalPages) Then final = TotalPagesFor i = inicio To final	 If CInt(i)=CInt(PagAtual) Then		 Response.Write "<font color=""#000000"" size=""1"" face=""arial"">[ <B>" & i & "</B> <font color=""#000000"" size=""1"" face=""arial"">]</font>  "	 END IF	 If CInt(i) < CInt(PagAtual) Then	  Response.Write "<a href='relatorio.asp?PagAtual=" & i & "'>" & i & "</a>  "	 END IF	 If CInt(i) > CInt(PagAtual) Then		 Response.Write "<a href='relatorio.asp?PagAtual=" & i & "'>" & i & "</a>  "  END IFNext'------------------------------------------------------IF CInt(PagAtual) <> CInt(TotalPages) THEN'Se estiver na última página, mostra apenas o botão Anterior e Primeira	  Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">")	  Response.Write("<a href='relatorio.asp?PagAtual=" & PagAtual + 1 & "'>")	  Response.Write("Próxima")	  Response.Write("</a></font></B>  ")	  Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">")	  Response.Write("<a href='relatorio.asp?PagAtual=" & TotalPages & "'>")	  Response.Write("Ultima")	  Response.Write("</a></font></B>  ")Else	  Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">")	  Response.Write("Próxima")	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">")	  Response.Write("Ultima") 	  Response.Write("</font></B>  ")End If'################## fim paginação ########################%>	</div></td>  </tr></table></body></html>

 

relatorio.asp

<%Set Conn= server.createobject("adodb.connection")DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../banco/estoque.mdb")Conn.Open DSNtestSet RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginaçãoSQL = " SELECT * FROM regionais WHERE id_regional="&request.querystring("id")RS.Open SQL, conn, 3%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title><style type="text/css"><!--.style39 {color: #000000}.style32 {font-size: 10px}--></style></head><body><table width="100%" border="0" cellspacing="0" cellpadding="0">  <tr>	<td colspan="4">Regional - <span class="style39" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("id_regional")%></span></td>  </tr>  <tr>	<td colspan="4"> </td>  </tr>  <tr>	<td colspan="4"><strong>Entradas</strong></td>  </tr>  <tr>	<td width="18%"><div align="center">Qtde</div></td>	<td width="37%"><div align="center">Produto</div></td>	<td width="29%"><div align="center">Data</div></td>	<td width="16%"><div align="center"></div></td>  </tr>  <tr>	<td><div align="center"><span class="style32" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("qtde_entrada")%></span></div></td>	<td><div align="center"><span class="style32" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("produto_entrada")%></span></div></td>	<td><div align="center"><span class="style32" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("data_entrada")%></span></div></td>	<td> </td>  </tr></table></body></html>

acredito que deva ser alguma coisa errada no querystring. sei la.

 

quem puder me ajudar...

Compartilhar este post

Link para o post
Compartilhar em outros sites

NewUser    0

NewUser
Postado

usa o lopp se quiser listar todos!

 

 

 

 

<%Set Conn= server.createobject("adodb.connection")DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../banco/estoque.mdb")Conn.Open DSNtestSet RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginaçãoSQL = " SELECT * FROM regionais WHERE id_regional="&request.querystring("id")RS.Open SQL, conn, 3%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title><style type="text/css"><!--.style39 {color: #000000}.style32 {font-size: 10px}--></style></head><body><table width="100%" border="0" cellspacing="0" cellpadding="0">  <tr>'[b] inicia loop ate a fim da tabela de dados   <%while NOT rsRegistros.EOF%>	<td colspan="4">Regional - <span class="style39" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("id_regional")%></span></td>'finaliza loop[/b]	<%rsRegistros.movenextwend%>  </tr>  <tr>	<td colspan="4"> </td>  </tr>  <tr>	<td colspan="4"><strong>Entradas</strong></td>  </tr>  <tr>	<td width="18%"><div align="center">Qtde</div></td>	<td width="37%"><div align="center">Produto</div></td>	<td width="29%"><div align="center">Data</div></td>	<td width="16%"><div align="center"></div></td>  </tr>  <tr>	<td><div align="center"><span class="style32" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("qtde_entrada")%></span></div></td>	<td><div align="center"><span class="style32" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("produto_entrada")%></span></div></td>	<td><div align="center"><span class="style32" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("data_entrada")%></span></div></td>	<td> </td>  </tr></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito