erro com select em acess..

[chacal009 0]

Preciso de uma ajudinha com o acesso a dados em bd Acess

 

Quero fazer uma busca no banco de dados por datas dd/mm/aa mas acusa o erro.

<<<<<é esse o sem-vergonha>>>>>

 

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

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1

 

Tentei...Testei...Testei e Testei... E FUNCIONOU uma vez daí no outro dia quando fui testar novamente o sem-vergonha deu pau acusando esse erro d novo e não quis mais funcionar.

 

Aí esta o corpo do código onde esta dando o erro.....

 

Dim pega,data,user 'Declarando variáveis

user= Request("user") 'variavel para capturar o nome do usuario

pega= Request("data") 'capturando a data no formato dd/mm/aa para a pesquisa no bd

if pega="" then 'verifica se o campo pega esta em branco

data= date() 'se estiver cria a variavel com a data atual

else

data= CDate(pega) 'ou se ñ estiver vazio pega a data e a converte para o padrão data

end if

 

bla...bla...bla...etc...etc...etc 'aqui vai a estanciação dos objetos ado e recordset

 

strSQL = "SELECT * FROM nome_tabela WHERE usuario='"& user &"' AND CDate(tabela_datas)='"& data &"' ORDER BY tabela_datas"

rs.open strSQL, conn, 0,2

 

Me ajudem a descobrir o erro é urgente

 

obs:> strSQL é a variável criada para o acesso ao bd Acess

conn é a variável criada para instanciar o recordset o objeto ado e ativar o strSQL

 

falow galera, a gente se vê..............beleza

[ferraz 0]

Tenta depurar a falha, escreve na tela o string strSQL e comenta a execução dele. Verifica se não tem algum campo vazio...

[chacal009 0]

Já tentei...testei...e testeiComo disse ele funcionou uma vez mas depois parousó lembrando quero fazer uma busca por determinada data ex: 20/12/03 no bd acess mas ele não aceita a forma de seleçãoalguma outra resposta

[WLJ 0]

Como você esta gravando no BD?

[chacal009 0]

É claro que eu estou gravando no bd no mesmo formato ex: 25/12/03

 

é o que eu estou tentando fazer é uma busca por registros cadastrados em ex: 25/12/03

 

faço um request e pego a data que quero pesquisar

<% Dim datas

datas= Request("buscardata") %>

 

e faço o select com a data ex: 25/12/03

 

"SELECT * FROM tabela WHERE campodatas='" & datas &"'"

 

e é isso

De maneira alguma o request pego será em branco ou com algum valor nulo o problema esta na seleção em:

campodatas='" & datas &"'"

 

Se alguém souber o erro

Esta aí o código inteiro

 

<%Dim pega,data

pega= Request("data")

if pega="" then

data= date()

else

data= CDate(pega)

end if %>

<%Dim strSQL

strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("bancodedados.mdb")

set conn = server.createobject("adodb.connection")

conn.open strconn

set rs = server.createobject("adodb.recordset")

 

strSQL = "SELECT * FROM tabela WHERE CDate(datas)='"& data &"'"

 

rs.open strSQL, conn, 0,2

%>

<%Do While not rs.Eof%>

 

<td>Nome: <%=RS.Fields("usuario")%></td><br>

<td>Data Cadastro: <%=RS.Fields("nomes")%></td><br>

 

<%RS.MoveNext

Loop %>

 

Não tem nenhum erro no bd nenhum campo nulo nada nenhum erro

ta aí, é urgente preciso rápido quem souber

[Pensa 0]

Acho que essa eu sei.... sempre que for fazer um select em um campo data você deve formatar a data para aparecer assim: #aaaa-mm-dd# desse jeito mesmo... com jogo da velha e tudo....no seu caso seria assim:strSQL = "SELECT * FROM nome_tabela WHERE usuario='"& user &"' AND CDate(tabela_datas)=#"& year(data) &"-"& month(data) &"-"& day(data) &"# ORDER BY tabela_datas"Espero que funcione...