Ir para conteúdo
Fórum Script Brasil
  • 0

Mostrar Em Um Select A Data De Ontem E Hoje.

Nadia Amorim

Perguntado por Nadia Amorim,

 Share

Pergunta

Nadia Amorim

Nadia Amorim

Postado
Postado

Olá pessoal tudo bem....

Estou querendo ajudar um amigo ele está com seguinte dificuldade...

Como fazer em asp utilizando o banco de dados access quantos cadastros tive ontem e hoje em um site.

Deve aparecer assim:

Cadastro:

Total:

- Hoje: 0

- Ontem: 2

OBS: Tem que ser em Access, pois o codigo em SQL não está funcionado no banco de dados Access.

Aguardo com urgência o contato...Qualquer coisa me adiciona no MSN.

Segue o codigo:

Mais não deu certo aaprece nada

CODE<%

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login/db/site/siteusers.mdb")

Set conn = Server.CreateObject("ADODB.Connection")

conn.open ConnectString

RstParametros.Open " Select (select Count(*) from users where xdt_disponivel <= Getdate()-1) Ontem, (select Count(*) from users where xdt_disponivel <= Getdate()) Hoje ", Conn

'Declaração de Variáveis

TotOntem = RstParametros("Ontem")

TotHoje = RstParametros("Hoje")

TotGeral = TotOntem+TotHoje

'Fim das declarações (Variáveis)

%>

<table>

<tr>

<td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#999999" colSpan=2 >

<font color="#006600" face="Arial" size="-1">Total Geral ---> <%=TotGeral%></Font>

</td>

</tr>

</table>

<table>

<tr>

<td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#9999CC" colSpan=2 >

<font color="#339999" face="Arial" size="-1">Total Hoje ---> <%=TotHoje%></Font>

</td>

</tr>

</table>

<table>

<tr>

<td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#FF3333" colSpan=2 >

<font color="#3399FF" face="Arial" size="-1">Total Ontem ---> <%=TotOntem%></Font>

</td>

</tr>

</table>

<%

'Finalizando as conexões

Set Conn = nothing

Set RstParametros = nothing

%>

Link para o comentário
Compartilhar em outros sites

11 respostass a esta questão

Posts Recomendados

  • 0
kuroi

kuroi

Postado
Postado

ue, no codigo que você postou:

<%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login/db/site/siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
RstParametros.Open " Select (select Count(*) from users where xdt_disponivel <= Getdate()-1) Ontem, (select Count(*) from users where xdt_disponivel <= Getdate()) Hoje ", Conn

'Declaração de Variáveis
TotOntem = RstParametros("Ontem")
TotHoje = RstParametros("Hoje")
TotGeral = TotOntem+TotHoje
'Fim das declarações (Variáveis)
%>

<table>
<tr>
<td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#999999" colSpan=2 >
<font color="#006600" face="Arial" size="-1">Total Geral ---> <%=TotGeral%></Font>
</td>
</tr>
</table>
<table>
<tr>
<td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#9999CC" colSpan=2 >
<font color="#339999" face="Arial" size="-1">Total Hoje ---> <%=TotHoje%></Font>
</td>
</tr>
</table>
<table>
<tr>
<td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#FF3333" colSpan=2 >
<font color="#3399FF" face="Arial" size="-1">Total Ontem ---> <%=TotOntem%></Font>
</td>
</tr>
</table>
<%
'Finalizando as conexões
Set Conn = nothing
Set RstParametros = nothing 
%>[/code]


substitua isso:

[code]RstParametros.Open " Select (select Count(*) from users where xdt_disponivel <= Getdate()-1) Ontem, (select Count(*) from users where xdt_disponivel <= Getdate()) Hoje ", Conn

pelo codigo que eu passei.

Link para o comentário
Compartilhar em outros sites
  • 0
matrix2003

matrix2003

Postado
Postado

não tem como fazer isto em acess pois acho que mysql não vai

Tipo de erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/minhas webs/teste3.asp, line 4

Tipo de navegador:

olha o erro agora

Link para o comentário
Compartilhar em outros sites
  • 0
matrix2003

matrix2003

Postado
Postado

veja no final desta linha que está com pau escrito conexao

<%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login/db/site/siteusers.mdb")
Set RstParametros = Server.CreateObject("ADODB.Recordset")
        RstParametros.Open " Select (select Count(*) from users where xdt_disponivel <= Getdate()-1) Ontem, (select Count(*) from users    where xdt_disponivel <= Getdate()) Hoje ", conexao

    'Declaração de Variáveis
        TotOntem = RstParametros("Ontem")
        TotHoje = RstParametros("Hoje")
        TotGeral = TotOntem+TotHoje
    'Fim das declarações (Variáveis)
    %>
    <table>
    <tr>
        <td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#999999" colSpan=2 >
        <font color="#006600" face="Arial" size="-1">Total Geral ---&gt; <%=TotGeral%></Font>
        </td>
    </tr>
    </table>
    <table>
    <tr>
        <td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#9999CC" colSpan=2 >
        <font color="#339999" face="Arial" size="-1">Total Hoje ---&gt; <%=TotHoje%></Font>
        </td>
    </tr>
    </table>
    <table>
    <tr>
        <td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#FF3333" colSpan=2 >
        <font color="#3399FF" face="Arial" size="-1">Total Ontem ---&gt; <%=TotOntem%></Font>
        </td>
    </tr>
    </table>
    <%
    'Finalizando as conexões
       Set Conexao = nothing
       Set RstParametros = nothing 
    %>
</form>            
</body>
</html>

Link para o comentário
Compartilhar em outros sites
  • 0
kuroi

kuroi

Postado
Postado

porque você tirou a conexao com o banco? tente assim:

<%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login/db/site/siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
Set RstParametros = Server.CreateObject("ADODB.RecordSet")
conn.open ConnectString
RstParametros.Open " Select (select Count(*) from users where xdt_disponivel <= DateAdd('d',-1,Date)) As Ontem, (select Count(*) from users where xdt_disponivel <= Date) As Hoje ", Conn

'Declaração de Variáveis
TotOntem = RstParametros("Ontem")
TotHoje = RstParametros("Hoje")
TotGeral = TotOntem+TotHoje
'Fim das declarações (Variáveis)
%>

<table>
<tr>
<td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#999999" colSpan=2 >
<font color="#006600" face="Arial" size="-1">Total Geral ---> <%=TotGeral%></Font>
</td>
</tr>
</table>
<table>
<tr>
<td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#9999CC" colSpan=2 >
<font color="#339999" face="Arial" size="-1">Total Hoje ---> <%=TotHoje%></Font>
</td>
</tr>
</table>
<table>
<tr>
<td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#FF3333" colSpan=2 >
<font color="#3399FF" face="Arial" size="-1">Total Ontem ---> <%=TotOntem%></Font>
</td>
</tr>
</table>
<%
'Finalizando as conexões
Set Conn = nothing
Set RstParametros = nothing 
%>[/code]
Link para o comentário
Compartilhar em outros sites
  • 0
matrix2003

matrix2003

Postado
Postado

olha só fiz assim em acess

<%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login/db/site/siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
set rs = conn.execute("select count(*) as nconta from users")

response.write(" "&rs("nconta"))%></font></b></TD></TR>
                    <TR>
                      <TD><%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login/db/site/siteusers.mdb")
Set conexao = Server.CreateObject("ADODB.Connection")
    conexao.open ConnectString
   
    set rs1 = server.CreateObject("ADODB.RecordSet")
    set rs2 = server.CreateObject("ADODB.RecordSet")    
   rs1.open "select count (*) as Ontem from Users where data ='"& Now-1 &"'", conexao
   rs2.open "select count (*) as Hoje  from Users where data='"& Now &"'", conexao
    
    totOntem = rs1("Ontem")
    totHoje =  rs2("Hoje")        
    %>
<FONT face="Verdana, Arial" size=1>- Hoje: 
                        <B><%=totHoje%></B></FONT></TD></FONT></TD></TR>
                    <TR>
                      <TD><FONT face="Verdana, Arial" size=1>- Ontem: 
                        <B><%=totOntem%></B></FONT></TD></TD></TR></TBODY></TABLE></FONT></TD>

mais os valores está aparecendo 0 e tem cadastros de ontem e hoje no db

Link para o comentário
Compartilhar em outros sites
  • 0
kuroi

kuroi

Postado
Postado

faca assim:

   rs1.open "select count (*) as Ontem from Users where data = DateAdd ('d', -1, Date)", conexao
   rs2.open "select count (*) as Hoje  from Users where data= Date ", conexao[/code]
se você puser now ele vai tentar procurar por data e hora.
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...