Procura Detalhada De Acordo Com O Selecioando

[AlexCT]

tenho uns select do form e a pessoa seleciona qual quer para a busca

separei as buscas

mas o problema esta nos and entre cada uma

porque se não coloco a selecao da frente da pau... alguma solução

Randomize

SQL = "SELECT * FROM jogos WHERE ("

IF ramo<>"" THEN SQL = SQL & " ramo LIKE '%"&ramo&"%'"

IF duracao<>"" THEN SQL = SQL & " and duracao BETWEEN "&duracao1&" AND "&duracao2&""

IF criacao<>"" THEN SQL = SQL & " and criacao is NULL" 'criacao <> ''

IF imagem="true" THEN SQL = SQL & " and imagem is NULL"

IF tipo<>"" THEN SQL = SQL & " and tipo1 like '%"&tipo&"%'"

IF estilo<>"" THEN SQL = SQL & " and (estilo1 like '%"&estilo&"%' or estilo2 like '%"&estilo&"%' or estilo3 like '%"&estilo&"%')"

IF desenvolvimento<>"" THEN SQL = SQL & " and desenvolvimento like '%"&desenvolvimento&"%'"

IF material<>"" THEN SQL = SQL & " and material like '%"&material&"%'"

SQL = SQL & ") and permissao='1' ORDER BY rnd(id)"

[AlexCT]

consegui achar a solução

Randomize
SQL = "SELECT * FROM jogos WHERE ("

IF ramo<>"" THEN SQL = SQL & " ramo LIKE '%"&ramo&"%'"
	IF (ramo<>"" AND (duracao<>"" or criacao<>"" or imagem="true" or tipo<>"" or estilo<>"" or desenvolvimento<>"" or bmaterial<>"")) THEN SQL = SQL & " and"


IF duracao<>"" THEN SQL = SQL & " duracao BETWEEN "&duracao1&" AND "&duracao2&""
	IF (duracao<>"" AND (criacao<>"" or imagem="true" or tipo<>"" or estilo<>"" or desenvolvimento<>"" or bmaterial<>"")) THEN SQL = SQL & " and"

IF criacao<>"" THEN SQL = SQL & " criacao is NOT NULL"   'criacao <> ''
	IF (criacao<>"" AND (imagem="true" or tipo<>"" or estilo<>"" or desenvolvimento<>"" or bmaterial<>"")) THEN SQL = SQL & " and"

IF imagem="true" THEN SQL = SQL & " imagem is NOT NULL"
	IF (imagem="true" AND (tipo<>"" or estilo<>"" or desenvolvimento<>"" or bmaterial<>"")) THEN SQL = SQL & " and"

IF tipo<>"" THEN SQL = SQL & " tipo1 like '%"&tipo&"%'"
	IF (tipo<>"" AND (estilo<>"" or desenvolvimento<>"" or bmaterial<>"")) THEN SQL = SQL & " and"

IF estilo<>"" THEN SQL = SQL & " (estilo1 like '%"&estilo&"%' or estilo2 like '%"&estilo&"%' or estilo3 like '%"&estilo&"%')"
	IF (estilo<>"" AND (desenvolvimento<>"" or bmaterial<>"")) THEN SQL = SQL & " and"

IF desenvolvimento<>"" THEN SQL = SQL & " desenvolvimento like '%"&desenvolvimento&"%'"
	IF (desenvolvimento<>"" AND bmaterial<>"") THEN SQL = SQL & " and"

IF bmaterial<>"" THEN SQL = SQL & " material like '%"&bmaterial&"%'"

SQL = SQL & ") and permissao='1' ORDER BY rnd(id)"

  'Substitui o este valor pelo de baixo, Set RS = Conn.Execute(SQL)
   RS.Open SQL, conn, 3

[bareta]

aqui no forum tem um otimo exemplo disso... agora não lembro o nome do tópico mais é bem semelhante...

[AlexCT]

tentei procurar, mas nems empre os titulos são diretos... ai dificulta a procura

o bom que consegui resolver, não sei se é da foma mais simples mas deu certo