numero de cadastros

[zanelati2002 0]

Salgado mais uma vez ta dando o erro

 

Tipo de erro:

Microsoft VBScript runtime (0x800A01C2)

Wrong number of arguments or invalid property assignment: 'Date'

/minhas webs/use.asp, line 13

[Salgado 4]

Essa linha é do primeiro ou do segundo SQL?

[hargon 64]

Posta a linha 13. Assim outras pessoas podem tentar lhe ajudar.

 

A principio, retira o parenteses do Now(). Deixa só Now e veja o que dá.

[zanelati2002 0]

é do segundo cara eu não entendo porque deste jeito não da erro algum mais mostra isto

1750 - Hoje: 17 - Ontem: 28

 

olha o codigo

 

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

response.write(" "&rs("nconta"))%></B></FONT></TD></TR>
					<TR><%
	ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.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 Day(data) = "& Day(Now)-1, conexao
	rs2.open "select count(*) as Hoje  from users where Day(data) = "& Day(Now), conexao
	
	totOntem = rs1("Ontem")
	totHoje =  rs2("Hoje")		
	%>
					<TD><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>

[hargon 64]

Utilize o código do Salgado, mas altera o rs1 e o rs2 para essas duas linhas abaixo:

 

set rs1 = conn.execute("select count(id) as Ontem from Users where Date(data) = "& Date(DateADD("d",-1,Now)) &";") 'Alterei aqui
set rs2 = conn.execute("select count(id) as Hoje from Users where Date(data) = "& Date(Now) &";") 'E aqui

[Mário Monteiro 179]

o erro esta nesta comparação

 

Day(data) = "& Day(Now)

[zanelati2002 0]

Salgado e os demais o codigo que o salgado postou com as alterações não da certo da erro

 

 

que é este codigo

- Total:
						<B><%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
set rs = conn.execute("select count(*) as nconta from users")

response.write(" "&rs("nconta"))%></B></FONT></TD></TR>
					<TR><%
	ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
	
	set rs1 = conn.execute("select count(id) as Ontem from Users where Date(data) = "& Date(DateADD("d",-1,Now)) &";") 'Alterei aqui
	set rs2 = conn.execute("select count(id) as Hoje from Users where Date(data) = "& Date(Now) &";") 'E aqui
	
	totOntem = rs1("Ontem")
	totHoje =  rs2("Hoje")		
	%>
					  <TD><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></body></font></html>

 

da este erro

 

Tipo de erro:

Microsoft VBScript runtime (0x800A01C2)

Wrong number of arguments or invalid property assignment: 'Date'

/minhas webs/use.asp, line 13

 

com todas as alterações

 

Pessoal porque que meu codigo funfa e não mostra os numeros certos

[hargon 64]

Novamente, altera o rs1 e o rs2 para as linhas abaixo.

set rs1 = conn.execute("select count(id) as Ontem from Users where Date(data) = "& formatDateTime(DateADD("d",-1,Now),2) &";") 'Alterei aqui
set rs2 = conn.execute("select count(id) as Hoje from Users where Date(data) = "& formatDateTime(Now,2) &";") 'E aqui

[zanelati2002 0]

Hargon olha só com o codigo do salgado mais o teu codigo

 

o erro é este

 

Tipo de erro:

ADODB.Connection (0x800A0E78)

Operação não permitida quando o objeto está fechado.

/minhas webs/use.asp, line 13

 

o codigo que to usando é este

 

 

- Total:
						<B><%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
set rs = conn.execute("select count(*) as nconta from users")

response.write(" "&rs("nconta"))%></B></FONT></TD></TR>
					<TR><%
	ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
	
	set rs1 = conn.execute("select count(id) as Ontem from Users where Date(data) = "& formatDateTime(DateADD("d",-1,Now),2) &";") 'Alterei aqui
	set rs2 = conn.execute("select count(id) as Hoje from Users where Date(data) = "& formatDateTime(Now,2) &";") 'E aqui
	
	totOntem = rs1("Ontem")
	totHoje =  rs2("Hoje")		
	%>
					  <TD><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>< 

/body></font></html>

[hargon 64]

Bom... o erro já mudou.

 

Agora o problema parece ser a conexão com o banco.

 

Posta a linha 13 exata. E aproveita e remove essa segunda conexao com o banco. Não há necessidade de fazer duas.

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.mdb")
Set conn = Server.CreateObject("ADODB.Connection")

[zanelati2002 0]

olha só mudei aqui é só vou mostrar os numeros de cadastro do dia e do dia passado

 

este é o erro

Tipo de erro:
Microsoft JET Database Engine (0x80040E14)
Número incorreto de argumentos usados com a função na expressão de consulta 'Date(data) = 13/5/2008'.
/minhas webs/use.asp, line 7

Este é codigo

 

- Total:
						<B><%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
 
	set rs1 = conn.execute("select count(id) as Ontem from Users where Date(data) = "& formatDateTime(DateADD("d",-1,Now),2) &";") 'Alterei aqui
	set rs2 = conn.execute("select count(id) as Hoje from Users where Date(data) = "& formatDateTime(Now,2) &";") 'E aqui
	
	totOntem = rs1("Ontem")
	totHoje =  rs2("Hoje")		
	%>
					  <TD><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></body></font></b></html>

linha 7

set rs1 = conn.execute("select count(id) as Ontem from Users where Date(data) = "& formatDateTime(DateADD("d",-1,Now),2) &";") 'Alterei aqui

[hargon 64]

você removeu essas duas linhas abaixo e fez o teste?

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.mdb")
Set conn = Server.CreateObject("ADODB.Connection")

[zanelati2002 0]

o codigo esta do jeito que postei e removi hargon veja o primeiro codigo que postei o porque que ta dando certo mais não ta pegando os numeros certos

[hargon 64]

A mensagem de erro permaneceu a mesma?

[zanelati2002 0]

sim mesmo erro e se pegarmos o primeiro codigo mesma conexão e tentar ver a parte do day

[jrcardozo 4]

coloque no iniciu da sua página

sesssion.lcid = 1046

 

substitua as querys assim:

rs1.open "select count(*) as Ontem from Users where Date(data) = "& DateAdd("d",-1,Date(Now)), conexao 'total de ontem

rs2.open "select count(*) as Hoje from Users where Date(data) = "& Date(Now), conexao 'total de hoje

 

as datas no banco estão gravadas no formato dd/mm/aaaa ou mm/dd/aaaa?

 

essa formatação influenciará nos resultados pois o correto é estar formatado no banco em mm/dd/aaaa e na consulta você faz por dd/mm/aaaa

[zanelati2002 0]

o formato ta ssim dd/mm/aaaa no formato texto

o que ta dando pau é este date usava antes o day percebe no meu primeiro codigo

[Mário Monteiro 179]

e qual o problema atual

[Salgado 4]

Como seu DB é Acess, substitua o trecho Date(data) que aparece nas SQL's por CDate(data), que é a função de conversão nativa dele.

 

Testa e retorna se funcionou.

[zanelati2002 0]

Estamos chegando lá o resultado deu

 

Hoje: 0 - Ontem: 0

 

Mais tem 1 cadastro ontem e 1 hoje o codigo que usei foi este

 

Estamos chegando lá o resultado deu

 

Hoje: 0 - Ontem: 0

 

Mais tem 1 cadastro ontem e 1 hoje o codigo que usei foi este

 

<%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

	set rs1 = conn.execute("select count(id) as Ontem from Users where CDate(data) = "& formatDateTime(DateADD("d",-1,Now),2) &";") 'Alterei aqui
	set rs2 = conn.execute("select count(id) as Hoje from Users where CDate(data) = "& formatDateTime(Now,2) &";") 'E aqui
	
	totOntem = rs1("Ontem")
	totHoje =  rs2("Hoje")		
	%>
					  <TD><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></body></font></b></html>