[Resolvido] Função SQL no ASP

Fells · Setembro 28, 2011

Minha base de dados do SQL Server tem vários dados de diferentes anos.

Por isso criei um método de separação na mesma base onde a coluna PK exibi-se assim: 200500001, 200500002 ..... 200600001, 200600002.... até o 201100001, 201100002 [....] 201100153.... e por aii vai... os 4 primeiros números são correspondentes ao ano e os 5 seguidos começam do 0 e vai até onde der... até ai beleza (só pra vocês entenderem).

Tenho um ASP que gera um "relatorio" desses dados e os exibe na intranet!

Descidi então gerar esse relátorio apenas com as informações do ano corrente... só que não consegui fazer rodar no ASP.

Eu abri o SQL Query Analyzer e fiz alguns testes e o que eu quero e consegui fazer lá no SQL é assim:

select * from Tabela
where year(getdate()) = left(CampoPK,4) 'Exemplo da PK 201100123
Order by CampoPK desc

ele me trouxe todos os dados onde a Coluna Chave Primaria tem seus 4 primeiros digitos igual ao ano, ou seja = a 2011

Exemplo: 201100001; 201100002; 201100003; 201100005 [.....] 201100254.

Os dados dos anos anteriores não vieram, que seriam: 20100000n; 20090000n; 20080000n; 20070000n; 20060000n e 20050000n.

Preciso implementar isso na minha página ASP e não estou sabendo como fazer...

xanburzum · Setembro 28, 2011

como você esta fazendo no ASP, você deve criar o objeto connectio para se conectar com o banco, crie o objeto recordset para executar a SQL,

e dê um response.write na sua string SQL para ver o que esta sendo passado

Fells · Setembro 29, 2011

Atualmente funciona assim...

Tenho um ASP principal (AtaVisita.asp)... nele (na página) coloquei uma figura, no canto inferior da pagina, de uma folha que quando a pessoa clica, abre uma página como se fosse um relatorio (encaminha o usuario para AtaVisitaRelatorio.asp) que exibe toooooodos os dados da Base SQL, ou seja, desde 2005. E o usuário pode imprimir esse relatorio.

Ai o pessoal disse pra fazer o seguinte, ao invés de uma 'imagem' no canto inferior da página que traz todos os dados... que colocasse "uma figura de relatorio" para cada ano! eh ai que entra aquela query que fiz no SQL mais que nao consegui inserir no ASP, ou melhor, que não sei como fazer no ASP.

Segue codigo do relatorio:

*** minha ideia eh replicar este ASP (um para cada ano), inserir aquela query alterando o ano que quero pegar e pronto. Mais não sei fazer. =/

<%
sql = "SELECT ContEng_AtaVisita.Numero, ContEng_AtaVisita.Cliente, ContEng_AtaVisita.Distribuicao, ContEng_AtaVisita.Emitente, ContEng_AtaVisita.Data, ContEng_AtaVisita.Assunto FROM ContEng_AtaVisita"
sql = sql & " ORDER BY Numero Desc"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Session("Gestao_conn"), 3

%>

<%
While not rs.eof
%>

<%

Num = Right(rs.Fields("Numero"),5)
Dt = mid(rs.Fields("Numero"),3,2)
Chave = num&" / "&Dt

%>

       <table cellspacing="0" width="100%">

         <tr>
           <td width="7%" align="center" style=" border-left: 1px solid gray; border-top: 1px solid gray"><font size = "2"><b>Numero</b></td>
           <td width="13%" align="center" style=" border-top: 1px solid gray"><font size = "2"><b>Cliente</b></td>
           <td width="20%" align="center" style=" border-top: 1px solid gray"><font size = "2"><b>Distribuição</b></td>
           <td width="16%" align="center" style=" border-right: 1px solid gray; border-top: 1px solid gray"><font size = "2"><b>Emitente</b></td>
         </tr>
     </table>

       <table cellspacing="0" width="100%">
 <tr>
	<td width="7%" align = "center" style=" border-left: 1px solid gray"><%response.write Chave%></td>
	<td width="13%" align = "center" ><%=rs.Fields("Cliente")%></td>
	<td width="20%" align = "center" ><%=rs.Fields("Distribuicao")%></td>
	<td width="16%" align = "center" style=" border-right: 1px solid gray" ><%=rs.Fields("Emitente")%></td>
</tr>
</table>


       <table cellspacing="0" width="100%">
         <tr>
           <td width="12%" align="center" style=" border-left: 1px solid gray"><font size = "2"><b>Data</b></td>
           <td width="80%" align="center" ><font size = "2"><b>Assunto</b></td>
           <td width="5%" align="center" style=" border-right: 1px solid gray"><font color = "#FFFFFF">-</td>
         </tr>
       </table>

       <table cellspacing="0" width="100%">
 <tr>
	<td width="12%" align = "center" style=" border-bottom: 1px solid gray; border-left: 1px solid gray" ><%=rs.Fields("Data")%></td>
	<td width="80%" align = "center" style=" border-bottom: 1px solid gray" ><%=rs.Fields("Assunto")%></td>
	<td width="5%" align = "center" style=" border-bottom: 1px solid gray; border-right: 1px solid gray"><font color = "#FFFFFF">-</td>
</tr>
</table>
<br>
<%
   rs.MoveNext
wend
%>


       <%

rs.close
%>

<br>
	<br>
<table align="left">
 <tr>
         <td>         
     <input type="image" src="\Imagens\Imprimir.jpg" onClick="print();return false" style="width: 23px;"> 
         </td>
 </tr>
 <tr>
  <td>
     <font color = "#27408B"><b>Imprimir Relatório
 </tr>
</table>


     </form>
 </body>
</html>

Vinicius Ianni · Setembro 30, 2011

Neste trecho:

year(getdate()) = left(CampoPK,4)

Você informa que quer o ano igual aos 4 primeiros digitos do campo.

Coloca um menor ou igual, que deve resolver.

xanburzum · Setembro 30, 2011

da um response.write na sua string SDQL para ver o que esta sendo passado, e verifique se gera algum erro ?

Fells · Outubro 3, 2011

[Resolvido]

Valeu galera...

Usei a dica do Vinicius.

Até mais.

xanburzum · Outubro 3, 2011

maravilha irmão, ficamos felizes que consegui, agora para maior aproveitamento e contribuição, poste o code completo como ficou.

Fells · Outubro 4, 2011

[RESOLVIDO]

Opaa... posto sim claro!

Peguei a dica do vinicius e dei uma alterada... mais a luz que precisva veio dele! kkkk

<%

Xsql = "SELECT ContEng_Solicit.NumSolicit, ContEng_Solicit.Cliente, ContEng_Solicit.Aplicacao, ContEng_Solicit.Produto, ContEng_Solicit.NomePeca, ContEng_Solicit.Data, ContEng_Solicit.Solicitante, ContEng_Solicit.TipoDeSolicitacao, ContEng_Solicit.TipoConstrutivo, ContEng_Solicit.ECN, ContEng_Solicit.StatusDesenhoMaterial FROM ContEng_Solicit"
Xsql = Xsql & " WHERE (NumSolicit > 201100000)"

Set x = Server.CreateObject("ADODB.Recordset")
x.Open Xsql, Session("Gestao_conn"), 3

While not x.eof

Num = Right(x.Fields("NumSolicit"),5)
Dt = mid(x.Fields("NumSolicit"),3,2)
Chave = num&" / "&Dt

%>

       <table cellspacing="0" width="100%">
         <tr>
           <td width="20%" align="center" style=" border-left: 1px solid gray; border-top: 1px solid gray"><font size = "2"><b>Numero</b></td>
           <td width="20%" align="center" style=" border-top: 1px solid gray"><font size = "2"><b>Cliente</b></td>
           <td width="20%" align="center" style=" border-top: 1px solid gray"><font size = "2"><b>Aplicação</b></td>
           <td width="20%" align="center" style=" border-top: 1px solid gray"><font size = "2"><b>Produto</b></td>
           <td width="20%" align="center" style=" border-top: 1px solid gray; border-right: 1px solid gray"><font size = "2"><b>Data</b></td>
  </tr>
     </table>

       <table cellspacing="0" width="100%">
 <tr>
	<td width="20%" align = "center" style=" border-left: 1px solid gray"><%response.write Chave%></td>
	<td width="20%" align = "center" ><%=x.Fields("Cliente")%></td>
	<td width="20%" align = "center" ><%=x.Fields("Aplicacao")%></td>
	<td width="20%" align = "center" ><%=x.Fields("Produto")%></td>
	<td width="20%" align = "center" style=" border-right: 1px solid gray"><%=x.Fields("Data")%></td>
</tr>
</table>

      <table cellspacing="0" width="100%">
         <tr>
           <td width="17%" align="center" style=" border-left: 1px solid gray"><font size = "2"><b>Solicitante</b></td>
           <td width="17%" align="center" ><font size = "2"><b>Tipo de Solicitação</b></td>
           <td width="17%" align="center" ><font size = "2"><b>Tipo Construtivo</b></td>
           <td width="17%" align="center" ><font size = "2"><b>Nome da Peça</b></td>
           <td width="17%" align="center" ><font size = "2"><b>ECN</b></td>
           <td width="17%" align="center" style=" border-right: 1px solid gray; "><font size = "2"><b>St. Desenho / Material</b></td>
         </tr>
     </table>

       <table cellspacing="0" width="100%">
 <tr>
	<td width="17%" align = "center" style=" border-left: 1px solid gray; border-bottom: 1px solid gray"><%=x.Fields("Solicitante")%></td>
	<td width="17%" align = "center" style=" border-bottom: 1px solid gray" ><%=x.Fields("TipoDeSolicitacao")%></td>
	<td width="17%" align = "center" style=" border-bottom: 1px solid gray" ><%=x.Fields("TipoConstrutivo")%></td>
	<td width="17%" align = "center" style=" border-bottom: 1px solid gray" ><%=x.Fields("NomePeca")%></td>
	<td width="17%" align = "center" style=" border-bottom: 1px solid gray" ><%=x.Fields("ECN")%></td>
	<td width="17%" align = "center" style=" border-bottom: 1px solid gray; border-right: 1px solid gray" ><%=x.Fields("StatusDesenhoMaterial")%></td>
</tr>
</table>
<br>
<%
   x.MoveNext
wend
%>

<%
x.close
%>

Vinicius Ianni · Outubro 4, 2011

Que bom que resolveu !!

Precisando, estamos ai :joia:

Arquivado

[Resolvido] Função SQL no ASP

Recommended Posts

Fells 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fells 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fells 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fells 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante