Listar quantos cadastrados

[NinoSPFC 0]

Tenho um banco access, nele tem vários campos, nome, id, data_de_registro etc.... gostaria que na consulta asp que mostra todo o banco. Mostrasse apenas os cadastros feitos apartir do dia 07/03/07.E no final a quantidade de cadastrados.É possivel?Valeu

[jothaz 1]

Tenho um banco access, nele tem vários campos, nome, id, data_de_registro etc.... gostaria que na consulta asp que mostra todo o banco. Mostrasse apenas os cadastros feitos apartir do dia 07/03/07.

 

E no final a quantidade de cadastrados.

 

É possivel?

 

Valeu

Para efeturar um consulta com data como condição:

select *,count(*) as QTDE_REGISTROS from sua_tabela where sua_data >= #2007/03/07#

Desta forma será retornado:

nome, id, data_de_registro e QTDE_REGISTROS

 

t+

[NinoSPFC 0]

No topo do codigo deixei assim<%Set wm = Server.CreateObject("ADODB.Connection")wm.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("asp/db.mdb") )Set rs = Server.CreateObject("ADODB.Recordset")Seleciona="SELECT * ,count(*) as QTDE_REGISTROS from tb_cadastros 2007/03/07"rs.open Seleciona,wm%>E da este erro...Microsoft OLE DB Provider for ODBC Drivers error '80040e14'[Microsoft][ODBC Microsoft Access Driver] Syntax error in FROM clause./e-mail3.asp, line 10

[jothaz 1]

No topo do codigo deixei assim

 

<%

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

 

wm.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("asp/db.mdb") )

 

Set rs = Server.CreateObject("ADODB.Recordset")

Seleciona="SELECT * ,count(*) as QTDE_REGISTROS from tb_cadastros 2007/03/07"

 

 

rs.open Seleciona,wm

 

%>

 

E da este erro...

 

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

 

[Microsoft][ODBC Microsoft Access Driver] Syntax error in FROM clause.

 

/e-mail3.asp, line 10

Troque:

Seleciona="SELECT * ,count(*) as QTDE_REGISTROS from tb_cadastros 2007/03/07"

Por:

Seleciona="SELECT * ,count(*) as QTDE_REGISTROS from tb_cadastros = #2007/03/07#"

 

t+

[NinoSPFC 0]

Continua dando o mesmo erro..este dado QTDE_REGISTROS tem que ter no banco de dados? ou no final do asp?

[jothaz 1]

Continua dando o mesmo erro..este dado QTDE_REGISTROS tem que ter no banco de dados? ou no final do asp?

QTDE_REGISTROS é apena um apelido (alias) para o resultado do count para facilitar a recuperação no recordset.Posta seu código ai pois o erro é uma besteira.Estamos quase lá!t+

[Ted k' 126]

tente esse aki cara

 

<%

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

 

wm.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("asp/db.mdb") )

 

Set rs = Server.CreateObject("ADODB.Recordset")

Seleciona="Select Count(*) As QTDE_REGISTROS From tb_cadastros"

 

 

rs.open Seleciona,wm

 

%>

[NinoSPFC 0]

ted k' o erro que da agora é esteADODB.Recordset error '800a0cc1'Item cannot be found in the collection corresponding to the requested name or ordinal./e-mail3.asp, line 40 Faço a mesma pergunta no meu banco access tem que ter um campo com o nome QTDE_REGISTROS?VALEW

[Ted k' 126]

Cara teste isso ai

 

<%

Caminho = Server.MapPath("asp/db.mdb")

Set WM = Server.Createobject ("Adodb.Connection")

WM.Open "Dbq="&Caminho&";Driver={Microsoft Access Driver (*.mdb)}"

 

Set RS = WM.Execute("Select Count(*) As QTDE_REGISTROS From tb_cadastros")

Contador = RS("QTDE_REGISTROS")

 

Response.Write Contador

%>

[NinoSPFC 0]

Funcionou agora ele consegue me dizer a quantidade de registros do banco inteiro, e para especificar apenas apartir do dia 07/03/07?Usei desta forma Set RS = WM.Execute("Select Count(*) As QTDE_REGISTROS From tb_cadastros = #2007/03/07#") e da este erro....Microsoft OLE DB Provider for ODBC Drivers error '80040e14'[Microsoft][ODBC Microsoft Access Driver] Syntax error in FROM clause./e-mail3.asp, line 6 Valeu

[shumi 0]

o erro ta aqui:From tb_cadastros = #2007/03/07#"a sintaxe éSELECT bla bla bla FROM tabela WHERE bla bla blaabraços

[NinoSPFC 0]

Fiz assim Set RS = WM.Execute("Select Count(*) As QTDE_REGISTROS From tb_cadastros WHERE data_registro >#2007/03/07#")e não rola nem ferrando..

[shumi 0]

ta dando algum erro?qual o erro? onde?

[NinoSPFC 0]

Este é o erroMicrosoft OLE DB Provider for ODBC Drivers error '80040e10'[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1./e-mail3.asp, line 8 Valeu

[shumi 0]

verifique os nomes e campos das tabelas, algum está com a escrita errada!

 

se o erro continuar, você faz assim:

Set RS = WM.Execute("Select Count(data_registro) As QTDE_REGISTROS From tb_cadastros WHERE data_registro >#2007/03/07#")

Abraços

[jothaz 1]

Este é o erroMicrosoft OLE DB Provider for ODBC Drivers error '80040e10'[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1./e-mail3.asp, line 8 Valeu

Posta o seu código ai para facilitar!O erro esta ocorendo na linha da abertura do recordset?t+

[NinoSPFC 0]

Consegui estava pegando o nome errado do campo access errr heheAgora eu preciso complicar um pouco... cada cadastro no banco tem a opção de receber ou não noticias no email com o campo receber_noticias.. eu posso usar 2 where?Dai mostra a quantidade de cadastrados que querem receber noticias?AssimSet RS = WM.Execute("Select Count(*) As QTDE_REGISTROS From tb_cadastros WHERE data_cadastro > #2007/03/06# WHERE receber_noticias = True")Está certo?

[shumi 0]

Está errado!quando você tem mais de uma condição na clausula where você usa o ANDExemplo:Sql * from tabela where data = data and noticias=trueAbraços

[jrcardozo 4]

Set RS = WM.Execute("Select Count(*) As QTDE_REGISTROS From tb_cadastros WHERE data_cadastro > #2007/03/06# and receber_noticias = 0")só não me recordo se 0 = true, se não for tente com 1 ou -1

[shumi 0]

pode usar o true e false também!

 

Mas ficaria assim:

Set RS = WM.Execute("Select Count(*) As QTDE_REGISTROS From tb_cadastros WHERE data_cadastro > #2007/03/06# and receber_noticias="&true)

Set RS = WM.Execute("Select Count(*) As QTDE_REGISTROS From tb_cadastros WHERE data_cadastro > #2007/03/06# and receber_noticias="&false)

Abraços