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

[ju_rezende]

opa não é o mesmo erro não

é esse agora

O comando de texto não foi definido para o objeto de comando.

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

[.Andreia.]

qual é a linha 46?

[ju_rezende]

dei um response.write antes da linha 46 como havia me ensinado andreia e ele quega o codigo

olha

select * from clientes where codigo = 214 and del=0

[ju_rezende]

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

[ju_rezende]

pessoal acho que ele está recuperando o codiogo como string porque

olha o que eu fiz

dim busca2

  busca2= request.querystring("codigo")

  if busca2=isnumeric(busca20) THEN ' SE FOR VERDADEIRO,

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

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

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

sql2 = "select  * from clientes where codigo = "& busca2 response.write

sql2

ME MOSTRARIA O CODIGO response.end rs2.Open ,con,3,3 %> <%ELSE ' SENAÕ

RESPONSE.END NÃO ME MOSTRARIA NADA END IF%>

E ELE NÃO ME MOSTROU NADA O QUE SIGUINIFICA QUE ELE RECUPERA COMO

STRING O VALOR DO CODIGO

cERTO?

vixi pessoal me de uma mãozinha tá difícil de resolver,

Já coloquei cint, var tudo que sei, mas não funciona.....

[.Andreia.]

Tenta assim:

  busca2= request.querystring("codigo")
  if Isnumeric(busca2) THEN

[ju_rezende]

Já fiz assim mas não deu certo....

[.Andreia.]

já não entendo mais qual o problema... você pode tentar tb:

busca2= Cint(request.querystring("codigo"))
 if Isnumeric(busca2) THEN

Ou tirando o if... na consulta não retorna nenhum resultado?

[ju_rezende]

Andreia fiz assim também

dim busca2

  busca2= Cint(request.querystring("codigo"))

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

sql2 = "select  * from clientes where codigo = "& busca2

response.write sql2

response.end

ele me retornou

select * from clientes where codigo = 214

mas quando tiro o response.write sql2 e o respnse.end

e fica assim

dim busca2

  busca2= Cint(request.querystring("codigo"))

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

sql2 = "select  * from clientes where codigo = "& busca2

linha 49rs2.Open ,con,3,3 %>

ele da o seguinte erro

Tipo de erro:

Microsoft JET Database Engine (0x80040E0C)

O comando de texto não foi definido para o objeto de comando.

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

[.Andreia.]

Acho que está faltando a conexão, você comentou.. tenta assim:

Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("dados\treino.mdb")

set rs2 = server.CreateObject ("adodb.recordset")
sql2 = "select * from clientes where codigo = "& busca2
rs2.Open ,conexao,3,3

[Guest - ju_rezende -]

mas já tem a coneção, só que está na linha decima