[Resolvido] Consulta não retornar dados...

[twpesquisa 1]

Pessoal,

 

estou recorrendo a ajuda de vocês pois sinceramente não estou achando o erro...

 

O código abaixo é para filtrar informações conforme os dados informados, porém quando seleciono a condição do "cboCidade", exibe a minha mensagem de erro personalizada, onde informa que não existe registros. Porém, quando vou consultar o banco de dados (access) existem sim dados gravados.

 

Existe algum erro ?

 

'Calcula a data de hoje
	Ano = Year(Now())

	Query = "SELECT * FROM DadosPessoais " & _
			"WHERE (CargoPretendido = '"& Request.Form("cboCargo") &"') " & _
			"AND ((YEAR(DATE()) - MID(DATANASC, 7, 4)) BETWEEN " & Request.Form("cboFaixa1") & " AND  " & Request.Form("cboFaixa2") & ") "

	if (Request.Form("cboCidade") <> "0") then
		Query = Query & "AND (Cidade LIKE '" & Request.Form("cboCidade")&"') " 
	end if

	if (Request.Form("cboSexo") <> "TODOS") then
		Query = Query & " AND (SEXO = '" & Request.Form("cboSexo") & "')"
	end if

	Query = Query & " ORDER BY NOME"

	RS.Open Query, DB

	'Testa se existem registros com as caracteristicas especificadas
	if RS.BOF and RS.EOF then
		Response.redirect "busca_semregistro.asp"
	end if

[Ulisses Paps 0]

Pessoal,

 

estou recorrendo a ajuda de vocês pois sinceramente não estou achando o erro...

 

O código abaixo é para filtrar informações conforme os dados informados, porém quando seleciono a condição do "cboCidade", exibe a minha mensagem de erro personalizada, onde informa que não existe registros. Porém, quando vou consultar o banco de dados (access) existem sim dados gravados.

 

Existe algum erro ?

 

'Calcula a data de hoje
	Ano = Year(Now())

	Query = "SELECT * FROM DadosPessoais " & _
			"WHERE (CargoPretendido = '"& Request.Form("cboCargo") &"') " & _
			"AND ((YEAR(DATE()) - MID(DATANASC, 7, 4)) BETWEEN " & Request.Form("cboFaixa1") & " AND  " & Request.Form("cboFaixa2") & ") "

	if (Request.Form("cboCidade") <> "0") then
		Query = Query & "AND (Cidade LIKE '" & Request.Form("cboCidade")&"') " 
	end if

	if (Request.Form("cboSexo") <> "TODOS") then
		Query = Query & " AND (SEXO = '" & Request.Form("cboSexo") & "')"
	end if

	Query = Query & " ORDER BY NOME"

	RS.Open Query, DB

	'Testa se existem registros com as caracteristicas especificadas
	if RS.BOF and RS.EOF then
		Response.redirect "busca_semregistro.asp"
	end if

Kra, como esta o formato da data no seu DB? Ao que parece ele não retorna por alguma divergencia na data de consulta!

[xanburzum 169]

dá um response.write na sua string SQL para ver o que esta sendo passado

[twpesquisa 1]

mancada a minha pessoal.

Estava olhando com mais detalhes, e o meu combo estava passando um valor TEXTO e não CODIGO como deveria.

 

Depois que alterei, passou a funcionar.

 

Desculpe pessoal.

[xanburzum 169]

resolvido então