Ir para conteúdo
chocomilki

Mostrar somente aulas do Mê atual

Recommended Posts

Olá Amigos, 

 

Estou com uma dificuldade em minha consulta.. preciso que ao informar o nome do Professor ela me mostre somente as aulas que ele deu no atual mês , mas ele mostra todos.. 

 

Tentei usar a função abaixo sem sucesso :

 

	<%
	varMesAtual = month(date())

strSQL = "Select * from Aulas where MONTH(ven)="& varMesAtual

 
 Set ObjRs = cnnSearch.Execute(strSQL)

%>

Segue o código completo:

 

<%

Dim strURL     

Dim cnnSearch 
Dim rstSearch  
Dim strDBPath  

Dim strSQL    
Dim strSearch  
inicio = Timer

'#Função que tira todos os acentos das palavras
function TiraAcento(StrAcento)
 for i = 1 to len(StrAcento) 
  Letra = mid(StrAcento, i, 1)
  Select Case Letra
   Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"
   Letra = "A"
   Case "é","É","ê","Ê","Ë","ë","È","è"
   Letra = "E"
   Case "í","Í","ï","Ï","Ì","ì"
   Letra = "I"
   Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"
   Letra = "O"
   Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"
   Letra = "U"
   Case "ç","Ç"
   Letra = "C"
   Case "ñ"
   Letra = "N"
  End Select
  texto = texto & Letra
 next
 TiraAcento = texto
end function 


strURL = Request.ServerVariables("URL")

strSearch = Request.QueryString("search")

%>

 <title>WEB ADMIN</title>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<body bgcolor="#FFFFFF">
<link rel="stylesheet" media="screen" href="style.css" />


<table width="1" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F2FFF2">
  <tr>
    <td bgcolor="#FFFFFF" width="812">
    <table width="515" border="0" cellpadding="2" style="border-collapse: collapse" height="1">
<tr>
          <td bgcolor="#FFFFFF" height="4" colspan="2" width="667">
            <p align="left">
            <span style="font-size: 14pt">Relação de&nbsp; Aulas por Professor</span></td>
        </tr>            
<tr>
          <td bgcolor="#FFFFFF" valign="middle" height="1" width="569">
            <form action="<%= strURL %>" method="get">
              <div align="left"> 
                <b><font face="Arial" style="font-size: 8pt">&nbsp;</font></b><b><font face="Arial" style="font-size: 8pt"><br>
                <br>
                &nbsp;Informe o Professor </font>
                </b> 
                <span style="font-size: 11pt; font-weight: 400"><input type="text" placeholder="Categoria" size="55" name="search" value="<%= strSearch %>"></span><span style="font-size: 8pt"><font face="Arial" color="#008000">
                </font>
                </span>
                <font face="Arial" color="#008000">
                <input name="submit" type="submit" value="busca" style="font-size: 8 pt; font-weight: bold; background-color: #00699C; color:#FFFFFF; " /><span style="font-size: 8pt">
                </span>
                </font>
              </div>
            </form>
            <p align="center"> 
                <font face="Arial" style="font-size: 8pt"> 
              
                
                <%
If strSearch <> "" Then
	
       	strDBPath = Server.MapPath("Noticias.mdb")
        
Const adUseClient = 3
	
	Set cnnSearch = Server.CreateObject("ADODB.Connection")
	
cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
cnnSearch.CursorLocation = adUseClient

	
	varMesAtual = month(date())

strSQL = "Select * from Aulas where MONTH(ven)="& varMesAtual

 
 Set ObjRs = cnnSearch.Execute(strSQL)


	



strSQL = "SELECT nome,data,horario,unidade,ven,id " _
		& "FROM Aulas " _
		& "WHERE nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
		& "OR ven LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
		& "ORDER BY id;"

	Set rstSearch = cnnSearch.Execute(strSQL)
intContador = rstSearch.RecordCount



	%> 
	
	 
		</font>
            </p></td>
          <td bgcolor="#FFFFFF" valign="top" height="1" width="94">
            <p align="center">
            <font face="Arial" style="font-size: 8pt"><a title="Imprimir" href="a">
            <script language="JavaScript1.2">
<!--
function DoPrinting(){
if (!window.print){
alert("Use o Netscape  ou Internet Explorer \n nas versões 4.0 ou superior!")
return
}
window.print()
}
//-->
            </script>
            </a>

            </font></td>
        </tr>
      </table>
      <p align="left">
        <font face="Century Gothic" style="font-size: 8pt"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#6E9F4D">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#1D2447">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ( Foram encontradas&nbsp;<%=intContador%> 
        ocorrências )</font></b></font></p>
      <div align="center" style="width: 502; height: 246"> 
        <table width="690" border="0" cellpadding="4" cellspacing="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111" height="1">
<tr> 
            <th width="39" bgcolor="#525252" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0" height="21"><strong>
            <font face="Arial" style="font-size: 8pt" color="#FFFFFF">Cod</font></strong></th>
            <th width="627" bgcolor="#525252" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0" height="21">
            <strong><font color="#FFFFFF"><span style="font-size: 8pt">Nome do 
            Professor</span></font></strong></th>
            <th width="627" bgcolor="#525252" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0" height="21">
            <strong><font color="#FFFFFF"><span style="font-size: 8pt">Data</span></font></strong></th>
            <th width="627" bgcolor="#525252" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0" height="21">
            <strong><font color="#FFFFFF"><span style="font-size: 8pt">Horário</span></font></strong></th>
            <th width="627" bgcolor="#525252" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0" height="21">
            <strong><font color="#FFFFFF"><span style="font-size: 8pt">Núcleo</span></font></strong></th>
            <th width="184" bgcolor="#FFFFFF" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0" height="21">&nbsp;</th>
          </tr>

          
          <%
      
	Do While Not rstSearch.EOF
		%><font face="Century Gothic" style="font-size: 8pt"> </font>
          <tr>
          <%
          
          	id = Trim(rstSearch.Fields("id"))
              	Response.Write "<TR style='cursor=hand;' id="& id&" onclick=""consultarClick('"&id&"')""; class='"&fundo&"' "
		Response.Write " onmouseover=""this.className='inputMouse';"" "
		Response.Write " onmouseout=""this.className='"&fundo&"';"">"
		%><font face="Century Gothic" style="font-size: 8pt"> </font> 
            <td width="39" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D" bgcolor="#FFFFFF" height="1"><font size="1" face="Arial"><%= rstSearch.Fields("id").Value %></font></td>
            <td width="627" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D" bgcolor="#FFFFFF" height="1"><font size="1" face="Arial"><%= rstSearch.Fields("nome").Value %></font></td>
            <td width="627" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D" bgcolor="#FFFFFF" height="1"><font size="1" face="Arial"><%= rstSearch.Fields("ven").Value %></font></td>
            <td width="627" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D" bgcolor="#FFFFFF" height="1"><font size="1" face="Arial"><%= rstSearch.Fields("horario").Value %></font></td>
            <td width="627" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D" bgcolor="#FFFFFF" height="1"><font size="1" face="Arial"><%= rstSearch.Fields("unidade").Value %></font></td>
            <td width="184" align="left" style="border-style: none; border-width: medium; " bordercolor="#6E9F4D" height="1">
              &nbsp;</td>
          </tr>
          <%

		rstSearch.MoveNext
	Loop
	%><font face="Century Gothic" style="font-size: 8pt"> </font>
        </table>
        <p align="left">
            <font face="Arial" style="font-size: 8pt">

            <input type="image" src="ico_imprimir.jpg" border="0" OnClick="javascript:DoPrinting()" name="I1" alt="Imprimir"></font><p align="left"><b>
        <font face="Century Gothic" style="font-size: 8pt" color="#1D2447">Sua busca foi processada em 
        <%response.write FormatNumber( Timer - inicio, 2 )%>
        segundos.</font><font face="Century Gothic" style="font-size: 8pt" color="#6E9F4D"><br>
        </font></b>
        <font face="Century Gothic" style="font-size: 8pt">
        <%
	
	rstSearch.Close
	Set rstSearch = Nothing
	cnnSearch.Close
	Set cnnSearch = Nothing
End If

%> </font>
      </div></td>
  </tr>
</table>
<p align="left">&nbsp;</p>

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ola,

strSQL = "Select * from Aulas where MONTH(ven)="& varMesAtual

strSQL - " ...." o que tiver fora ...tipo & varMesAtual não é levado em conta !
 

tenta:

strSQL = "Select * from Aulas where MONTH(ven)=&varMesAtual"

 

Veja se isso ajuda 
 

month(Date()) 2
 
day(Date()) 15
 
year(Date()) 2018
 
month(Now()) 2
 
day(Now()) 15
 
year(Now()) 2018
 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá,

 

Retorna o seguinte erro:

 

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'MONTH(ven)=&varMesAtual'.

 

Abs

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá,

 

Coloquei desta forma e não retornou erro:

 

strSQL = "Select * from Aulas where MONTH(data)='"&varMesAtual&"'"

Porém ele mostra independente do nome que digitar na pesquisa ela mostra todos que estão cadastrados dentro da tabela no mês de fevereiro.. e não o nome de quem eu pesquisar....

 

Att

Compartilhar este post


Link para o post
Compartilhar em outros sites
Em 12/02/2018 at 23:27, chocomilki disse:

<% varMesAtual = month(date())

strSQL = "Select * from Aulas where MONTH(ven)="& varMesAtual

Set ObjRs = cnnSearch.Execute(strSQL) %>

esse trecho esta correto porem só retornará fevereiro e quando estivermos em março só retornará março... a questão é essa linha...
varMesAtual = month(date())

 

deveria pelo menos assim:

varMesAtual = request("campomes") ' nesse campo colocaria o número direto ou faria um combo com os meses com o value com os numeros...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ola Gustavo, 

 

Então na verdade ele está mostrando pra mim todos que estão no Mês Atual , mas o problema não é esse é que após incluir o código qualquer nome que digite na minha busca ele retorna todos os nomes e não o que eu digito.. ou seja se Digitar Lucas ele deveria mostrar todas as aulas de Lucas no mês de Fevereiro.. e está mostrando todos os Alunos do Mês de Fevereiro 

 

Abs

Compartilhar este post


Link para o post
Compartilhar em outros sites

Entendi... então está faltando mais um parametro...

 

strSQL = "Select * from Aulas where MONTH(ven)="& varMesAtual & " and nomealuno='Lucas*'

 

OBS1: sendo base access ou SQL SERVER  utilize * para busca qualquer Lucas se for Postgresql utilize % 

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Gustavo 

 

Acrescentei o parâmetro retornou erro interno..

 

O servidor encontrou um erro interno ou configuração incorreta e não pôde completar sua solicitação. Entre em contato com o administrador do servidor para informar a hora em que ocorreu o erro e de qualquer coisa que você tenha feito que possa ter causado o erro. Mais informações sobre esse erro podem estar disponíveis no registro de erros do servidor.

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
do jeito que está vai dar erro mas se estivesse correto retornaria todos os alunos...
Tente assim:
strSQL = "Select * from Aulas where MONTH(data)="& varMesAtual & " and nome Like 'Lucas*'"

Detalhe: tem que ter lucas no cadastro... rsrs...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Agora não retornou erro , porém mostra independe se é mês  Fevereiro , Janeiro etc.. rsssss

 

varMesAtual = month(date())

strSQL = "Select * from Aulas where MONTH(data)="& varMesAtual & " and nome Like 'Kleber*'"

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

coloque o mes fixo... e vamos colocar o ano também... senão pode pegar dos anos anteriores também...

 

strSQL = "Select * from Aulas where MONTH(data)=2 and year(data)=2018 and nome Like 'Kleber*'"

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olha como ficou ele completo

 

 <%
If strSearch <> "" Then
	
       	strDBPath = Server.MapPath("Noticias.mdb")
        
Const adUseClient = 3
	
	Set cnnSearch = Server.CreateObject("ADODB.Connection")
	
cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
cnnSearch.CursorLocation = adUseClient

varMesAtual = month(date())

strSQL = "Select * from Aulas where MONTH(data)=2 and year(data)=2018 and nome Like 'Kleber*'"


strSQL = "SELECT nome,data,horario,unidade,ven,id " _
		& "FROM Aulas " _
		& "WHERE nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
		& "OR nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
		& "ORDER BY id;"


	

	Set rstSearch = cnnSearch.Execute(strSQL)
intContador = rstSearch.RecordCount




	

	%> 

E mostra mês anterior tb.. rssss

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
3 minutos atrás, chocomilki disse:

strSQL = "Select * from Aulas where MONTH(data)=2 and year(data)=2018 and nome Like 'Kleber*'"

 

strSQL = "SELECT nome,data,horario,unidade,ven,id " _ & "FROM Aulas " _ & "WHERE nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "OR nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "ORDER BY id;"

 

 

a variavel strSQL só pode ter uma instrução antes da execução senão somente a última que é feita...  remova essa..
strSQL = "SELECT nome,data,horario,unidade,ven,id " _ & "FROM Aulas " _ & "WHERE nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "OR nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "ORDER BY id;"

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Gustavo, 

 

Mas este trecho é  o que pesquisa o nome do Aluno...

 

strSQL = "SELECT nome,data,horario,unidade,ven,id " _ & "FROM Aulas " _ & "WHERE nome LIKE '%" &TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "OR nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "ORDER BY id;"

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

desse jeito não pode... na sql 
strSQL = "Select * from Aulas where MONTH(data)=2 and year(data)=2018 and nome Like 'Kleber*'"

já tem o mês e o nome que você quer... não precisa de uma outra e mesmo se precisasse não seria desse jeito... remova essa segunda e rode a página...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

  • Conteúdo Similar

    • Por Eddy Fernandes
      Olá galera,
       
      Estou desenvolvendo uma página com um form disparado para um link externo, mas antes preciso salvar os dados em um banco de dados. Não manjo muito de Javascript, então sou grato pela ajuda de quem puder ajudar. O código está assim:
       
      Página do form:
      <form action="URL-pra-onde-vao-os-dados-do-form" method="post" onSubmit="javascript:return Valida(this)"> Na mesma página do Form:
      <script language="JavaScript"> function Valida(form) { var formulario = document.getElementById('id-do-form-aqui'); <% set BD=server.createobject("adodb.connection") BD.open MM_global_STRING Dim rsATV : Set rsATV = Server.CreateObject("adodb.recordset") rsATV.Open "usuarios",BD,3,3 'Tentativa de correção de acentuação no BD bem sucedida. 'Response.CharSet = "windows-1250" 'Session.LCID = 1046'PADRÃO BRASILEIRO rsATV.AddNew rsATV("us_nome_real") = Request.Form("FNAME") rsATV("us_email") = Request.Form("EMAIL") rsATV("us_nome") = Request.Form("USUARIO") rsATV("us_senha") = Request.Form("SENHA") rsATV("us_confirme_senha") = Request.Form("CONFIRMESENHA") rsATV.Update rsATV.Close %> formulario.submit(); return false }; end function </script>  
      Os Form é enviado, o novo registro no banco é criado, mas sem os dados do form, ou seja, um registro em branco.
       
      Desde já agradeço a ajuda.
       
       
    • Por onedev
      Olá Pessoal,

      qual a forma mais segura de filtrar um upload asp de arquivos para somente imagens?

      Tentei reconhecer a extensão do arquivo e limitar apenas upload de arquivo .gif/.jpg e também filtrar pelo tipo de arquivo. Porém algum mal intencionado pode simplesmente renomear um arquivo malicioso para .gif, fazer o upload e depois acessar o arquivo para executa-lo. Alguém conhece ou recomenda algum filtro eficiente?

      Utilize os seguintes recursos:
      For Each File in Upload.Files 
         If File.ContentType <> "image/gif" Then 
            Resposta = "Arquivo enviado nao e um formato valido de imagem." 
            File.Delete 
         End If 
      Next
       
      For Each File in Upload.Files 
         If UCase(Right(File.Path, 3)) <> "gif" Then 
            Resposta = "Arquivo enviado nao e um formato valido de imagem." 
            File.Delete 
         End If 
      Next
       
    • Por dezoldan
      Quero obter e passar para uma outra página um valor da coluna do listView. Os campos do ListView: ID: 01; Nome: Daniel; Campo: campo; <%# Eval("campo").ToString() == "nada consta" ? "nada consta" : Eval("campo") + "<a href='Promocao.aspx'> ... + infos</a>"%>  
      Quando usuário clicar em "... + infos" quero pegar o "ID" e o "Nome" e levar pra outra página.
    • Por huzzer
      Boa tarde pessoal, possuo algumas dúvidas... Estou iniciando o desenvolvimento de uma aplicação que conecta a um Webservice, com header authentication, a empresa responsável forneceu o endereço do WSDL, usuario e senha para acesso... Tentei efetuar isso via PHP, porém acredito que não seja viável... A questão é...alguém indicaria uma melhor linguagem WEB para consumir esse Webservice, ou se não for abusar muito, um material para estudo...apostilas, videos e etc? Precisaria dessa parte de estudo devido a aprender sobre o negócio, não quero "mastigado" hehe. Muito obrigado pela atenção de todos, bom dia.
    • Por sylvanadiniz92
      Bom dia! Sou nova por aqui e para ser sincera não sou fera em programação. Mas estou quase terminando um acréscimo de um sistema para um amigo e na reta final dos relatórios me deparei com um probleminha que não consigo solucionar:
      Tenho um banco de dados em mysql, com a tabela tes_lan_contas_pagar. Nela vão descriminadas a contas que ele tem que pagar no mês, dentro dessa tabela eu tenho a coluna valor_pago.
      Ele precisa fazer uma busca por ano, mês e situação da conta (se paga, pendente ou recusada). Depois desse processo, preciso que seja somado o resultado da pesquisa, mas está dando erro.
       
      Meu código:
       
      <% sql="select sum(valor_pago) as total from tes_lan_contas_pagar WHERE MES=" & Request.FORM("mes") & " AND (ano=" & Request.FORM("ano") & ") AND (sit=" & Request.FORM("sit") & ") "
      set RS=conn.Execute(sql)
       %>
      <%=CDbl(Rs2("total")) %>
       
      O problema é que ele ignora os números depois da vírgula por exemplo: 111,89 aparece apenas 111.
       
      Já revirei inúmeros  fóruns mas não consigo solucionar o problema. Podem me ajudar?
       
      Grata!
       
       
×

Informação importante

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