Problemas Na Busca

[ju_rezende]

Olá pessoal tenho uma query que da erro...

São duzentos iguais mas so ele da erro....

/sera que alguém poderia me ajudar?

Vou por meu codigo aqui.....

Onde fica aquery

<table width="770" border="0" cellspacing="0" cellpadding="0" >

  <tr>

    <td>

<table id="Loja" width="770" border="0" cellspacing="0" cellpadding="0">

        <%db = server.MapPath (".dados\treino.mdb")

'set con = server.CreateObject("adodb.connection")

set rs = server.CreateObject ("adodb.recordset")

sql = "select distinct Empresa from clientes where del=0"

'con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Tulio\novosite\dados\treino.mdb;Persist Security Info=False"

rs.Open sql,con,3,3 %>

        <tr>

                      <td height="24" valign="middle"><font size="2" face="Arial, Helvetica, sans-serif"><a href="file:///C|/tulio/site/!!_material/default.asp">Home</a></font>&nbsp;

                        <a href="file:///C|/tulio/site/!!_material/default.asp"><font size="2" face="Arial, Helvetica, sans-serif">Voltar</font></a>

                      </td>

          <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Total

              de Regitro&nbsp; <%=rs.RecordCount%></font></div></td>

        </tr>

                    <tr >

                      <td colspan="2" background="../imagem/fundodaTd.gif">

                        <div align="center"><font color="#990000" size="2" face="Arial, Helvetica, sans-serif"><strong>Empresas</strong></font></div></td>

        </tr>

  <%Do while not rs.eof%>

                    <tr >

                      <td colspan="2" background="../imagem/fundodacinza.gif" align="center"><font face="Arial Unicode MS" size="2" color="#2165A5"><a href="Lojamostra.asp?Empresa=<%= rs("Empresa")%>"><font color="#2165A5">

                        <% =rs("Empresa")%>

                        </font></A></font></td>

        </tr>

  <%rs.movenext%>

  <%loop%>

  <% if con.state <> 0 then con.Close

If rs.state <> 0 Then rs.close

If rs1.state <> 0 Then rs1.close

set con= Nothing

set rs = Nothing

set rs1 = Nothing%>

      </table></td>

  </tr>

</table>

a busca.....

<table width="770" border="0" cellspacing="0" cellpadding="0">

  <tr>

    <td>

<%

  dim busca1

  busca1= request.querystring("empresa")

  'db = server.MapPath ("dados\treino.mdb")

'set con = server.CreateObject("adodb.connection")

set rs2 = server.CreateObject ("adodb.recordset")

sql2 = "select  * from clientes where empresa = '" & request.querystring("empresa") & "' and del=0"

'con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\dados\treino.mdb") &";Persist Security Info=False"

rs2.Open sql2,con,3,3 %>

<table id="lojamostra"width="770" border="0" cellspacing="0" cellpadding="0">

        <tr>

          <td><font size="2" face="Arial, Helvetica, sans-serif"><a href="default.asp">Home</a></font>

            <font size="2" face="Arial, Helvetica, sans-serif"><a href="loja.asp">Voltar</a></font></td>

          <td width="340"><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Total

              de registros</font> <%=rs2.recordcount%> </div></td>

        </tr>

        <tr>

                      <td colspan="2" "> <div align="left">

                          <%if rs2.eof=true then %>

                          <font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>

                          <%response.write " Nenhum registro encontrado"%>

                          <%else%>

                          </strong></font></div></td>

        </tr>

                    <tr >

                      <td colspan="2"background="../imagem/fundodaTd.gif"><font color="#990000" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#990000">Pesquisa

                        por Empresa</font><font color="#000000"> &gt;&gt;</font>

                      <font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong> <%response.write busca1%></strong></font></td>

        </tr>

                    <tr >

                      <td colspan="2"background="../imagem/fundodacinza.gif">

                        <% do while not rs2.eof%>

                  <font color="#333333" size="2" face="Arial, Helvetica, sans-serif"><strong>Empresa:</strong></font><font color="#990000" size="2" face="Arial, Helvetica, sans-serif"> <strong>

            <%response.write rs2("empresa")%>

                        </strong></font></td>

        </tr>

        <tr>

          <td><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>Endere&ccedil;o:

            </strong></font><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

            <%response.write rs2("Endereco")%>

            </font></td>

          <td><strong><font color="#000000" size="2">Bairro: </font></strong>

            <font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

            <%response.write rs2("Bairro")%>

            </font></td>

        </tr>

        <tr>

          <td><font size="2" face="Arial, Helvetica, sans-serif"><strong>Telefone:

            (12)</strong></font><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

            <% response.write rs2("Telefone")%>

            </font> </td>

          <td><font size="2" face="Arial, Helvetica, sans-serif"><strong>Site:</strong></font>

    <font size="2" face="Arial, Helvetica, sans-serif">:

            </font>

            <% if rs2("site")<>"-" then%>

            <a href ="Http://<%=rs2("site")%>"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

            <%response.write rs2("Site")%>

            </font>

            <%else%>

            </a><a href ="NaoSite.asp"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

            <%response.write rs2("Site")%>

            </font>

            <%end if%>

            </a>

          </td>

        </tr>

  <%rs2.movenext%>

        <%loop%>

        <%end if%>

</table>

<% if con.state <> 0 then con.Close

If rs.state <> 0 Then rs.close

If rs2.state <> 0 Then rs2.close

If rs1.state <> 0 Then rs1.close

set con= Nothing

set rs = Nothing

set rs1 = Nothing

set rs2 = Nothing%></td>

  </tr>

</table>

Valeu

abraços a todos

[kuroi]

q query da q erro?

[ju_rezende]

da erro que nehum registro foi encontrado

[ju_rezende]

Acho que já sei qual é o problema mas não consegui soluciona-lo.

tenho um registro chamado 100% video

no momento em que ele realiza a psquisa fica assim a query

http://www.comerciodejacarei.com/Lojamostra.asp?Empresa=100%%20Video

Acho que o proble,a está ali na % um é do prorioregistro e a outra é do espaço entre as palavras 100% video

Será quealguém teria uma ideia?

[marciombl]

est´assim ne 100% video

100% %20video em vermelho é o espaço entre 100 e video e o outro é testo mesmo.

crie uma função que elimina o porcento ou elimine ele manualmente.

[ju_rezende]

Mas eu não posso tirar o % porque é do nome da empresa 100% video

para enteder melhor Acesse comerciodejacarei.com.br

Clique no botão empresas ele vai listar todas as empresas lá aparecerá a empresa 100% video clique nela ai de uma olhadinha na url

Valeu Abraços

[.Andreia.]

Peguei o bonde andando mas nessas listagem de dados, seria melhor usar a ID da empresa do que o nome.

[ju_rezende]

mas como vou fazer para aparecer o nome daempresa você viu o site?

Valeu andreia..sempre ajudando você é 10

[.Andreia.]

Quando você lista você manda imprimir o campo Nome e no link a ID. Na pagina seguinte, se você tiver duas tabelas, faz um inner join pra pegar o nome da empresa.

Não sei como está seu BD, mas é a forma que eu faço, raramente uso nomes nesses casos... aguarde um pouco, talvez alguém tenha alguma função que possa lhe ajudar.

[ju_rezende]

o id esta na mesma tabela...

Nunca usei o innerjoin

[.Andreia.]

Os dados da empresa (arquivo Lojamostra.asp) é na mesma tabela do arquivo loja.asp ?

[ju_rezende]

Sim, existe algum problemaem dixa-las na mesma tabela?

[ju_rezende]

Olha o cod da pagina loja.asp

<table id="Loja" width="770" border="0" cellspacing="0" cellpadding="0">

        <%db = server.MapPath (".dados\treino.mdb")

'set con = server.CreateObject("adodb.connection")

set rs = server.CreateObject ("adodb.recordset")

sql = "select distinct Empresa from clientes where del=0"'con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Tulio\novosite\dados\treino.mdb;Persist Security Info=False"

rs.Open sql,con,3,3 %>

        <tr>

                      <td height="24" valign="middle"><font size="2" face="Arial, Helvetica, sans-serif"><a href="default.asp">Home</a></font>&nbsp;

                        <a href="default.asp"><font size="2" face="Arial, Helvetica, sans-serif">Voltar</font></a>

                      </td>

          <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Total

              de Regitro&nbsp; <%=rs.RecordCount%></font></div></td>

        </tr>

                    <tr >

                      <td colspan="2" background="../imagem/fundodaTd.gif">

                        <div align="center"><font color="#990000" size="2" face="Arial, Helvetica, sans-serif"><strong>Empresas</strong></font></div></td>

        </tr>

  <%Do while not rs.eof%>

                    <tr >

                      <td colspan="2" background="../imagem/fundodacinza.gif" align="center"><font face="Arial Unicode MS" size="2" color="#2165A5"><a href="Lojamostra.asp?Empresa=<%= rs("Empresa")%>"><font color="#2165A5">

                        <% =rs("Empresa")%>

                        </font></A></font></td>

        </tr>

  <%rs.movenext%>

  <%loop%>

  <% if con.state <> 0 then con.Close

If rs.state <> 0 Then rs.close

If rs1.state <> 0 Then rs1.close

set con= Nothing

set rs = Nothing

set rs1 = Nothing%>

      </table>

Olha cod da lojamostra.asp

<table width="770" border="0" cellspacing="0" cellpadding="0">

  <tr>

    <td>

<%

  dim busca1

  busca1= request.querystring("empresa")

  'db = server.MapPath ("dados\treino.mdb")

'set con = server.CreateObject("adodb.connection")

set rs2 = server.CreateObject ("adodb.recordset")

sql2 = "select  * from clientes where empresa = '" & request.querystring("empresa") & "' and del=0"

'con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\dados\treino.mdb") &";Persist Security Info=False"

rs2.Open sql2,con,3,3 %>

<table id="lojamostra"width="770" border="0" cellspacing="0" cellpadding="0">

        <tr>

          <td><font size="2" face="Arial, Helvetica, sans-serif"><a href="default.asp">Home</a></font>

            <font size="2" face="Arial, Helvetica, sans-serif"><a href="loja.asp">Voltar</a></font></td>

          <td width="340"><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Total

              de registros</font> <%=rs2.recordcount%> </div></td>

        </tr>

        <tr>

                      <td colspan="2" "> <div align="left">

                          <%if rs2.eof=true then %>

                          <font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>

                          <%response.write " Nenhum registro encontrado"%>

                          <%else%>

                          </strong></font></div></td>

        </tr>

                    <tr >

                      <td colspan="2"background="../imagem/fundodaTd.gif"><font color="#990000" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#990000">Pesquisa

                        por Empresa</font><font color="#000000"> &gt;&gt;</font>

                      <font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong> <%response.write busca1%></strong></font></td>

        </tr>

                    <tr >

                      <td colspan="2"background="../imagem/fundodacinza.gif">

                        <% do while not rs2.eof%>

                  <font color="#333333" size="2" face="Arial, Helvetica, sans-serif"><strong>Empresa:</strong></font><font color="#990000" size="2" face="Arial, Helvetica, sans-serif"> <strong>

            <%response.write rs2("empresa")%>

                        </strong></font></td>

        </tr>

        <tr>

          <td><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>Endere&ccedil;o:

            </strong></font><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

            <%response.write rs2("Endereco")%>

            </font></td>

          <td><strong><font color="#000000" size="2">Bairro: </font></strong>

            <font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

            <%response.write rs2("Bairro")%>

            </font></td>

        </tr>

        <tr>

          <td><font size="2" face="Arial, Helvetica, sans-serif"><strong>Telefone:

            (12)</strong></font><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

            <% response.write rs2("Telefone")%>

            </font> </td>

          <td><font size="2" face="Arial, Helvetica, sans-serif"><strong>Site:</strong></font>

    <font size="2" face="Arial, Helvetica, sans-serif">:

            </font>

            <% if rs2("site")<>"-" then%>

            <a href ="Http://<%=rs2("site")%>"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

            <%response.write rs2("Site")%>

            </font>

            <%else%>

            </a><a href ="NaoSite.asp"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

            <%response.write rs2("Site")%>

            </font>

            <%end if%>

            </a>

          </td>

        </tr>

  <%rs2.movenext%>

        <%loop%>

        <%end if%>

</table>

<% if con.state <> 0 then con.Close

If rs.state <> 0 Then rs.close

If rs2.state <> 0 Then rs2.close

If rs1.state <> 0 Then rs1.close

set con= Nothing

set rs = Nothing

set rs1 = Nothing

set rs2 = Nothing%></td>

  </tr>

</table>

[.Andreia.]

você tá usando Distinct, tem mais de um registro com o mesmo nome de empresa?

se for, no seu banco tem a ID do banco que se repete? Exemplo:

id -|- id_empresa -|- nome_empresa

1  -|- ----- 1 ----- -|- empresa 1

2  -|- ----- 1 ----- -|- empresa 1

3  -|- ----- 2 ----- -|- empresa 2

4  -|- ----- 3 ----- -|- empresa 3

Dai você poderia fazer: select distinct nome_empresa, id_empresa from TABELA (e retorna os dados):

id_empresa -|- nome_empresa

----- 1 ----- -|- empresa 1

----- 2 ----- -|- empresa 2

----- 3 ----- -|- empresa 3

[ju_rezende]

Sim mas eu tebho o campo

ID , empresa, enderco bairrro, e não Idempresa

[ju_rezende]

poderia ser slect disdintct empresa,id from clientes

[.Andreia.]

id_empresa é um exemplo... você tem que pegar um campo que defina a identificação da empresa, que não seja auto-numeração...

[ju_rezende]

sim então teri que alterar o banco, para fazer isso.

se eu colocar um campo chamdo id_empresa ele não poder ser nem numerico?

Até ai to entendendo , mas quando eu clicar no nome da empresa ele irá dar o mesmo problema % da empresa?

[.Andreia.]

Juliana, você não precisa mudar o banco de dados, se você já tem essa ID (pode ser qualquer nome) poderá utilizar. O que eu to dizendo é que precisa de um campo que identifique a empresa por um codigo único.

Se você usa um campo de identificaçao, não terá problema com o % porque você estará passando um numero e não um texto.

[ju_rezende]

Sim tenho um campo de identificação mas ele é autonumeração tem algum problema?

[ju_rezende]

mudei o select da loja.asp

sql = "select distinct codigo,empresa from clientes where del=0 order by empresa"

alteri o paramentro

<td colspan="2" background="../imagem/fundodacinza.gif" align="center"><font face="Arial Unicode MS" size="2" color="#2165A5"><a href="Lojamostra.asp?Empresa=<%= rs("codigo")%>"><font color="#2165A5">

                        <% =rs("Empresa")%></font></A></font></td>

ate aí funcionou certinho....ele lista meus clientes

mas quando clico no cliente da nenhum registro encontado

olha o lojamostra.asp

dim busca1

  busca1= request.querystring("codigo")

  'db = server.MapPath ("dados\treino.mdb")

'set con = server.CreateObject("adodb.connection")

set rs2 = server.CreateObject ("adodb.recordset")

sql2 = "select  * from clientes where codigo = '" & request.querystring("codigo") & "' and del=0 "

'con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\dados\treino.mdb") &";Persist Security Info=False"

linha 46rs2.Open sql2,con,3,3 %>

ai dá erro

Tipo de erro:

Microsoft JET Database Engine (0x80040E07)

Tipo de dados imcompatível na expressão de critério.

/tulio/site/!!_material/Lojamostra.asp, line 46

[.Andreia.]

não pode ser autonumeracao porque você está usando DISTINCT.

Olha, seu banco deve ter a tabela onde a mesma empresa se repete varias vezes não é? Pense em estruturar melhor seus dados.

Uma forma é uma tabela com ID(auto-numeracao) e nome das empresas (sem repetir) e na outra tabela você referencia pelo ID e não pelo nome.

[ju_rezende]

olha tenho o capo codigo que é autonumerio e o campo empresa que eé texto, mas não tenho

e se no select não usar distinct, eu pus para caso a tenha a empresae a fiial com mesmo nome , mas ainda não tem nehuma..

[ju_rezende]

Pessoal agora tirei o elect distinct

Ficou assim a pagina da loja .asp

sql = "select codigo,empresa from clientes where del=0 order by empresa"

                      <td colspan="2" background="../imagem/fundodacinza.gif" align="center"><font face="Arial Unicode MS" size="2" color="#2165A5"><a href="Lojamostra.asp?codigo=<%= rs("codigo")%>"><font color="#2165A5">

                        <% =rs("Empresa")%></font></A></font></td>

e a do lojamostra.asp ficou assim

sql2 = "select  * from clientes where codigo = '" & request.querystring("codigo") & "' and del=0 "

linha46rs2.Open sql2,con,3,3 %>

MAs está dando o seguinte erro.

Tipo de erro:

Microsoft JET Database Engine (0x80040E07)

Tipo de dados imcompatível na expressão de critério.

/tulio/site/!!_material/Lojamostra.asp, line 46

Me ajudem por favor...

[.Andreia.]

você está tratando codigo como texto no SQL sendo que é numerico. faça assim:

sql2 = "select  * from clientes where codigo = " & request.querystring("codigo") & " and del=0 "

[ju_rezende]

mesmo assim continua dando o mesmo erro.