Pegar valor checkbox e fazer um select

[Ronaldo Bueno 23]

Pessoal, novamente eu aqui rsrssr é que ultimamente estão aparecendo coisas que nunca fiz.

 

é assim:

 

Tenho um form com check que vem do banco ex:

 

é uma fonte de notícias, então tem um botão filtro, quando clica aparece todos os canais de noticia, mas esses canais vem do banco, conforme quantidade cadastrada.

 

Ai preciso pegar esses valores e fazer um select somente das noticias cujo os canais foram selecionados.

 

para pegar os canais estou fazendo assim:

<%
resgatacheck = request("canal")
'somente para teste de mostrar o que estava pegando
response.Write "Canal puro: " & resgatacheck & "."

ArrP=split( resgatacheck , "," )

for i = 0 to UBound(ArrP)
        'e aqui testo se ele separou as palavras
	response.Write "canal é: " & ArrP(i) & "<br />"
next
%>

mas não estou conseguindo fazer o select

SQLmostraFiltro = "SELECT TOP 10 * FROM [grava_dados] where canal IN ('" & resgatacheck & "') order by vdata DESC,vhora DESC"

Alguém tem alguma idéia ?

[Patrique 0]

Tente assim

 

SQLmostraFiltro = "SELECT TOP 10 * FROM [grava_dados] where canal IN ('" & resgatacheck & "') order by vdata, vhora DESC"

[Ronaldo Bueno 23]

não deu certo.

 

o problema aparece quando seleciono mais que um check, se for um ex: Carros, ai ele faz direito.

[Patrique 0]

Mande um response.write no SQLmostraFiltro e poste o resultado

[DSerma 19]

Sua dúvida é em como proceder dentro do FOR, para criar a SQL, é isso ??

 

Att;

[Ronaldo Bueno 23]

exatamente aqui o erro.

SELECT TOP 10 * FROM grava_dados where canal IN ('Carros, Ciência, Cinema') order by vdata DESC,vhora DESC

isso porque marquei os tres checks

[DSerma 19]

Agora me tira uma dúvida: como está a estrutura do BD que você utilizou ? Esses campos sao do tipo Yes/No ? Texto ? Numerico ?

 

Att;

[Ronaldo Bueno 23]

não, esse campo canal é onde tem os canais das noticias cadastradas ex:

 

Fonte UOL

Canal: Carros

Noticia: xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Data: 00/00/0000

 

e essa consulta seria para mostrar somente as noticias do canal marcado

[DSerma 19]

Entao você precisa montar a sua query assim;

 

SELECT TOP 10 * FROM grava_dados where canal = 'Carros' OR canal = 'Ciência' OR canal =  'Cinema' order by vdata DESC,vhora DESC 

Agora é só você criar a rotina dentro do for para deixar a sua query assim...

 

Att;

[Patrique 0]

velho na instrução order by você esta utilizando 2 DESC

 

order by vdata DESC,vhora DESC

 

uma dica

 

utilize da seguinte maneira

 

order by vdata, vhora DESC

[Ronaldo Bueno 23]

Patrik, beleza, o darkdemo já tinha falado sobre isso e vou alterar. obrigado.

 

Mas como montaria essa rotina dentro do for ?

[DSerma 19]

SQL = "SELECT TOP 10 * FROM grava_dados WHERE 1=1 "
for i = 0 to UBound(ArrP)
SQL = SQL & " OR canal = " & Arrp(i)
next

SQL = SQL & " order by vdata DESC,vhora DESC " 

Att;

[Ronaldo Bueno 23]

Não entendi esse where 1=1 rrsrsrrssr e esse for seria em baixo ? porque lá em cima tenho um para montar as palavras.

[xanburzum 169]

porfavor poste , sua string SQL para avaliarmos , como ela esta...

[Ronaldo Bueno 23]

codigo completo:

<%
resgatacheck = request("canal")

response.Write "Canal puro: " & resgatacheck & "."

ArrP=split( resgatacheck , "," )

for i = 0 to UBound(ArrP)
	response.Write "canal é: " & ArrP(i) & "<br />"
next
%>
<%
	set RSmostraFiltro = server.createobject("adodb.recordset")
	SQLmostraFiltro = "SELECT TOP 10 * FROM grava_dados where canal IN ('" & resgatacheck & "') order by vdata, vhora DESC"
	RSmostraFiltro.open SQLmostraFiltro, conn, 2, 2
	
	response.Write SQLmostraFiltro
%>

[Ronaldo Bueno 23]

estou tentando fazer uma gambiarra rsrsrss

<%
resgatacheck = request("canal")

response.Write "Canal puro: " & resgatacheck & "<br><br><br>"

ArrP = split(resgatacheck,", ")

for i = 0 to UBound(ArrP)


	strCanal = " canal="&ArrP(i)
	

	strAtualizaGeral = strCanal + " or "


	response.Write strAtualizaGeral


next

%>

só que ele esta colocando um or no final, ficando assim:

canal=Carros or canal=Ciência or canal=Cinema or

[DSerma 19]

Cara.. eu jah nao te passei o codigo CORRETO no meu ultimo post ????

É só você fazer exatamente como te passei que a sua query funcionará normalmente.....

 

Att;

[Ronaldo Bueno 23]

então mas o que voce passou ele coloca o OR no primeiro tb

 

ou seja ele lê e faz a variavel ficar assim: OR canal = Carros OR canal = Ciência OR canal = Cinema

[DSerma 19]

Sim... pois JAH EXISTE UMA CLAUSULA WHERE.. com o Where 1=1...

você chegou a testar a query como te passei??

 

Att;

[Ronaldo Bueno 23]

fiz exatamente, só mudei as variaveis:

<%
resgatacheck = request("canal")

response.Write "Canal puro: " & resgatacheck & "<br><br><br>"

ArrP = split(resgatacheck,", ")

SQLmostraFiltro = "SELECT TOP 10 * FROM grava_dados WHERE 1=1 "

for i = 0 to UBound(ArrP)
	SQLmostraFiltro = SQLmostraFiltro & " OR canal = " & Arrp(i)
next

	response.Write SQLmostraFiltro
%>
<%
	set RSmostraFiltro = server.createobject("adodb.recordset")
	SQLmostraFiltro = SQLmostraFiltro & " order by vdata DESC,vhora DESC "
	RSmostraFiltro.open SQLmostraFiltro, conn, 2, 2
	
	response.Write SQLmostraFiltro
%>

ai da esse erro:

 

SELECT TOP 10 * FROM grava_dados WHERE 1=1 OR canal = Carros OR canal = Ciência OR canal = Cinema

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

 

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 3.

 

/rss/default-filtro.asp, line 70