Comparação não funciona

[toctoc2002 0]

Boa Tarde :huh:

 

Pessoal, tenho um formulário que contem:

 

dia/mês/ano - visita

dia/mês/ano - próxima visita

 

Sendo que os itens dia / mês / ano estão em campos separados.

 

Estou fazendo uma busca por 2 datas a de "visita" e "próxima visita", como que eu faço para o sistema achar algu nesse periodo sendo que estou utilizando os seguintes comandos:

 

Recordset1.Open "SELECT * FROM visitas WHERE dia_vis Between LIKE '%"& request.form("dia_ini") &"%' OR mes_vis LIKE'%"& request.form("mes_ini") &"%' OR ano_vis LIKE'%"& request.form("ano_ini") &"%' AND dia_prox LIKE'%"& request.form("dia_fim") &"%' OR mes_prox LIKE'%"& request.form("mes_fim") &"%' OR ano_prox LIKE'%"& request.form("ano_fim") &"%'  " , Conexao, 1, 3

Alguem v algo de errado no código acima ?

 

Kleber

[hargon 64]

Vou ser sincero com você... não entendi nada do seu código.

 

Tenta isso... não sei se é o que você queria, nem se está funcionando. Mas tenta ai... si der erro, posta o erro aqui. ^_^

 

dia_ini = cint(request.form("dia_ini"))
mes_ini = cint(request.form("mes_ini"))
ano_ini = cint(request.form("ano_ini"))

dia_fim = cint(request.form("dia_fim"))
mes_fim = cint(request.form("mes_fim"))
ano_fim = cint(request.form("ano_fim"))

Recordset1.Open "SELECT * FROM visitas WHERE (dia_vis >= "&dia_ini&" and mes_vis >= "&mes_ini&" and ano_vis >= "&ano_ini&") and (dia_prox <= "&dia_fim&" and mes_prox <= "&mes_fim&" and ano_prox <= "&ano_fim&")" , Conexao, 1, 3

[toctoc2002 0]

Cara, deu certo o código com alguns ajustes mas funcionou.

 

(Obs:. Não sou programador pleno, ainda estou aprendendo)

 

Muito agradecido :)

 

 

Mas tem um seguinte

 

<%response.buffer = "true"'Abre a conexão com o banco de dados	Set Conexao = Server.CreateObject("ADODB.Connection")	dbPath = "DBQ=e:\db.mdb;"	Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & dbPath		Set Recordset2 = Server.CreateObject("ADODB.RecordSet")	Recordset2.Open "SELECT * FROM clientes WHERE cod_cliente='"& Recordset1("cod_cliente") &"'" , Conexao, 1, 3%>

Como que eu faço para listar todos os registros da tabela clientes sem exceção estou testando da maneira acima mas ele só mostra o q tem o Clientes.Cod_Cliente = Visitas.Cod_Cliente

 

Agradeço desde já

 

Kleber

[hargon 64]

Se é para lista todos sem nenhuma execessão, você deve tirar o where.

 

<%

response.buffer = "true"

'Abre a conexão com o banco de dados
Set Conexao = Server.CreateObject("ADODB.Connection")
dbPath = "DBQ=e:\db.mdb;"

Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & dbPath

Set Recordset2 = Server.CreateObject("ADODB.RecordSet")
Recordset2.Open "SELECT * FROM clientes" , Conexao, 1, 3

%>