Ir para conteúdo

chocomilki

Members
  • Total de itens

    17
  • Registro em

  • Última visita

Reputação

0 Comum

Sobre chocomilki

  1. chocomilki

    Mostrar datas cadastradas

    Ola amigos Tenho um controle de reunioes de uma empresa e as reunioes são todas as segunda e gostaria de cadastrar todas as segundas ate Dezembro e que no site aparece automático pra mim ex: 10/09 17/09 25/09 E assim por diante ou seja eu não tenha que por no site toda a Segunda a data do dia pra ir pro site... Obrigado.
  2. chocomilki

    Mostrar somente aulas do Mê atual

    Olá Maurilio, A Consulta abaixo é que utilizo para pesquisar o nome do aluno correto... 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;" Isso ja funcionava normalmente o que quero fazer é acrescentar mais um critério para que depois de Pesquisar o nome do Aluno ele me mostre somente os registro do MÊS ATUAL, isso que não estou conseguindo fazer ok.. Abs
  3. chocomilki

    Mostrar somente aulas do Mê atual

    Ola Tirei Mas desse forma não vai retorna nada pois a Sql que faz a consulta é a outra.... Abs
  4. chocomilki

    Mostrar somente aulas do Mê atual

    Ola Gustavo, Não entendi...
  5. chocomilki

    Mostrar somente aulas do Mê atual

    Ola Gustavo, Não entendi...
  6. chocomilki

    Mostrar somente aulas do Mê atual

    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;"
  7. chocomilki

    Mostrar somente aulas do Mê atual

    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
  8. chocomilki

    Mostrar somente aulas do Mê atual

    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*'"
  9. chocomilki

    Mostrar somente aulas do Mê atual

    strSQL = "Select * from Aulas where MONTH(data)="& varMesAtual & " and nome='*'
  10. chocomilki

    Mostrar somente aulas do Mê atual

    campo aluno é NOME ..
  11. chocomilki

    Mostrar somente aulas do Mê atual

    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.
  12. chocomilki

    Mostrar somente aulas do Mê atual

    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
  13. chocomilki

    Mostrar somente aulas do Mê atual

    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
  14. chocomilki

    Mostrar somente aulas do Mê atual

    Olá, Retorna o seguinte erro: Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'MONTH(ven)=&varMesAtual'. Abs
  15. chocomilki

    Mostrar somente aulas do Mê atual

    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>
×

Informação importante

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