criterio na busca

[kabessa 0]

ae galera blzzzzzzz

 

intao to apanhando de uma busca a uma semana +/-

hj tive uma luz

dava erro na minha busca qnd eu deixa campos em branco

dae resolvi comparar os campos antes (naum tinha pensado nisso antes) rsrsrrsrr

quando pensei que estava terminando a busca eisss que surge um novo erro

pow se nao funcionar assim naum sei como vou tentar fazer

mais acho q assim é o jeito + correto

intao galera por favor da uma ajuda ae

 

o codigo

 

Set RS_empresa2 = Server.CreateObject("ADODB.Recordset")RS_empresa2.CursorType = adOpenKeysetsql = "SELECT * FROM tab_empresa WHERE"if request.Form("empresa") <> "" then  sql = sql & "nome_empresa ='"&TRIM(request.Form("empresa"))&"';"end ifif request.Form("cidade") <> "" then  sql = sql & "and cidade_empresa ='"&TRIM(request.Form("txtbusca"))&"';"end if					if request.Form("bairro") <> "" then  sql = sql & "and bairro_empresa ='"&TRIM(request.Form("lista"))&"';"end if										if request.Form("chave") <> "" then  sql = sql & "and desc_empresa Like'%"&TRIM(request.Form("chave"))&"%';"end if										RS_empresa2.Open sql, Conexao

o erro

 

Microsoft JET Database Engine error '80040e14' Syntax error in FROM clause. /resultado.asp, line 22

linha 22 é onde eu mando abrir a busca

alguem saberia me dizer o pq deste erro

 

vlw galera

[Mário Monteiro 179]

da um response.write na variavel sql e posta aqui

[kabessa 0]

ta ae a sqlSELECT * FROM tab_empresa WHERE nome_empresa ='Inágua';and desc_empresa Like'%água%';sera q é os ";"

[jothaz 1]

ta ae a sqlSELECT * FROM tab_empresa WHERE nome_empresa ='Inágua';and desc_empresa Like'%água%';sera q é os ";"

Isso mesmo!! De errado só vi o ;!t+

[Mário Monteiro 179]

com certeza é o ; que tem no meio

[kbssa 0]

intao galera ta quase

buscando em todas as categorias funciona com esse codigo, q esta feio e vai ser arrumado pq logica = 0 haoeihaioweh

mais o cliente ja esta mais contente ufaaaaaaaaaaa

 

codigo buscando em todas as categorias

Set RS_empresa2 = Server.CreateObject("ADODB.Recordset")					RS_empresa2.CursorType = adOpenKeyset						sql = "SELECT * FROM tab_empresa WHERE "					x_primeiro = "1"					if request.Form("empresa") <> "" then						if x_primeiro = "1" then							sql = sql & "nome_empresa = '"&request.Form("empresa")&"' "									x_primeiro = "2"						else							sql = sql & "nome_empresa = '"&request.Form("empresa")&"' "													end if						end if					if request.Form("txtbusca") <> "" then						Set RS_cidade = Server.CreateObject("ADODB.Recordset")						RS_cidade.CursorType = adOpenKeyset											RS_cidade.Open "SELECT * FROM cidades WHERE id = "& request.Form("txtbusca"), Conexao												if x_primeiro = "1" then							sql = sql & "cidade_empresa ='"&RS_cidade.Fields("cidade")&"' "							x_primeiro = "2"						else							sql = sql & "AND cidade_empresa ='"&RS_cidade.Fields("cidade")&"' "										end if														end if										if request.Form("lista") <> "0" then						if x_primeiro = "1" then							sql = sql & "bairro_empresa ='"&request.Form("lista")&"' "							x_primeiro = "2"						else							sql = sql & "AND bairro_empresa ='"&request.Form("lista")&"' "						end if												end if															if request.Form("chave") <> "" then						if x_primeiro = "1" then							sql = sql & "desc_empresa Like'%"&request.Form("chave")&"%'"							x_primeiro = "2"						else							sql = sql & "AND desc_empresa Like'%"&request.Form("chave")&"%'"						end if												end if												sql = sql & ";"													'response.Write(sql)					'Response.End()										RS_empresa2.Open sql, Conexao

agora em preciso que busca pela categoria q o kra escolheu

soh q assim

essa categorias existem sub categorias

ele acha tudo certiho mais quando eu digito algo na palavra chave ou na empresa ou em qualquer outro campo da busca ele nao faz a filtragem pela categoria que selecionei

aguem da um help nisso ae

vlw

 

o codigo se o cara selecionou a categoria

 

Set RS_empresa2 = Server.CreateObject("ADODB.Recordset")					RS_empresa2.CursorType = adOpenKeyset					sql = "SELECT * FROM tab_empresa WHERE "					x_primeiro = "1"					if request.Form("categoria") <> "" then						Set RS_sub = Server.CreateObject("ADODB.Recordset")						RS_sub.CursorType = adOpenKeyset											RS_sub.Open "SELECT * FROM tab_sub WHERE categoria_sub = '"&request.Form("categoria")&"'", Conexao											while not RS_sub.eof							if x_primeiro = "1" then								sql = sql & "categoria_empresa = '"&RS_sub.Fields("id_sub")&"' "								x_primeiro = "2"							else								sql = sql & "OR categoria_empresa = '"&RS_sub.Fields("id_sub")&"' "							end if																		RS_sub.MoveNext						wend					end if																						if request.Form("empresa") <> "" then						if x_primeiro = "1" then							sql = sql & "nome_empresa ='"&request.Form("empresa")&"' "							x_primeiro = "2"						else							sql = sql & "AND nome_empresa ='"&request.Form("empresa")&"' "						end if								end if					if request.Form("txtbusca") <> "" then						Set RS_cidade = Server.CreateObject("ADODB.Recordset")						RS_cidade.CursorType = adOpenKeyset											RS_cidade.Open "SELECT * FROM cidades WHERE id = "& request.Form("txtbusca"), Conexao												if x_primeiro = "1" then							sql = sql & "cidade_empresa ='"&RS_cidade.Fields("cidade")&"' "							x_primeiro = "2"						else							sql = sql & "AND cidade_empresa ='"&RS_cidade.Fields("cidade")&"' "						end if								end if										if request.Form("lista") <> "0" then						if x_primeiro = "1" then							sql = sql & "bairro_empresa ='"&request.Form("lista")&"' "							x_primeiro = "2"						else							sql = sql & "AND bairro_empresa ='"&request.Form("lista")&"' "						end if								end if															if request.Form("chave") <> "" then						if x_primeiro = "1" then							sql = sql & "desc_empresa Like'%"&request.Form("chave")&"%' "							x_primeiro = "2"						else							sql = sql & "AND desc_empresa Like'%"&request.Form("chave")&"%' "						end if													end if												sql = sql & ";"													'response.Write(sql)					'Response.End()										RS_empresa2.Open sql, Conexao

 

vlw galera agradeço novamente