none
Duvida. RRS feed

  • Pergunta

  •  

    Olá estou com uma duvida referente a busca aleatório.

    O que to fazendo uma tela de busco com o campo txt já funciona com um select like.

    Mas não to conseguindo entender como que vai para selecionar os outros campos e mostrar e resultado.

    olha meu codigo.

     

     <!--#include file="conexao.asp"-->
             <%
      
         Dim Pesquisa              : Pesquisa             = Request.Form("Pesquisa")
            Dim Ordem                 : Ordem                = Request.Form("radio_ordem")
            Dim Pesqui                : Pesqui               = Request.Form("radio_pesquisa")
         Dim acao               : acao            = Request.Form("acao")
      Dim buscar_por            : buscar_por           = Request.Form("txt_Busca")
         Dim RS_BUSCA           
         Dim tipopesquisa, tipoordem,tipobusca,valordapesquisa 
        
      ' EXEMPLO
      ' tipopesquisa    = "nome"
         ' tipoordem       = "decrescente"
         ' tipobusca       = "aleatorio"
         ' valordapesquisa = "Joao"
       %>
     
     <%
      ' COMEÇO DO TESTE ...
     
     
     '  FIM TESTE PARA SELECT "
     %>
     
       <table width="" border="0&quot;" cellpadding="2" cellspacing="2">
                  <tr>
                    <td width="189" class="style7"> Campo de Pesquisa: <br/>
                        <select name="Pesquisa" class="campo" id="Pesquisa">
                          <option>&lt;-- Selecione --&gt;</option>
                          <option>Codigo</option>
                          <option>Nome</option>
                        </select>                </td>
                    <td width="223" class="style7"> Ordem: <br />
                        <fieldset class="style8">
                        <input name="radio_ordem" type="radio" value="radio_ordem" />
                          Crescente
                          <input name="radio_ordem" type="radio" value="radio_ordem"/>
                          Decrescente
                        </fieldset></td>
                  </tr>
                  <tr>
                    <td class="style7">Pesquisa: <br />
                        <fieldset class="">
                        <input name="radio_pesqusa" type="radio" value="radio_pesqusa" />
                          Inicio da Frase
                          <input name="radio_pesqusa" type="radio" value="radio_pesqusa" />
                          Aleat&oacute;rio
                        </fieldset></td>
                  </tr>
                  <tr>
                    <td class="style7">Busca:<br />
                        <input name="txt_Busca" type="text" class="campo" id="txt_Busca" size="30" maxlength="50" /></td>
                  </tr>
                </table>
       <table width="" border="0" cellpadding="2" cellspacing="2">
        <%
       IF acao = "buscar" THEN
       
       SQL = "SELECT ID_EMPRESA, RAZAO_SOCIAL, NOME_FANTASIA, CEP, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ESTADO, EMAIL, TELEFONE FROM EMPRESA WHERE NOME_FANTASIA LIKE '%"&buscar_por&"%'"

      
      IF tipopesquisa = "Pesquisa" THEN
      SQL1 = SQL1 & " WHERE Pesquisa "
      END IF
     
       IF tipoordem = "radio_ordem" THEN
       SQL1 = SQL1 & " ORDER BY DESC"
       END IF
     
        IF tipobusca = "r_pesqusa" then
        SQL1 = SQL1 & " LIKE %'"&radio_pesqusa&"%'"
        END IF
      
      SET RS_BUSCA = conexao.execute(SQL)' SET RS_BUSCA RECOR SET = MINHA CONEXÃO EXECUTE O MEU COMANDO SQL.
       'RS_BUSCA.open SQL,conexao
      
      if RS_BUSCA.bof  or RS_BUSCA.eof then %>
      
        <tr class="style7">
          <td width=""><div align="center" class="style8">
          <div align="center" class="campo"><strong>SUA BUSCA N&Atilde;O RETORNOU RESULTADO!!</strong></div>
          </div></td>
        </tr>
     
         <%else
      
      
        End if%>
      </table>
       <table width="" border="0" bgcolor="">
         <tr class="style8">
       <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Empresa </span></strong></td>
       <td width="" class="style7"><strong><span class="style3 style6 style8">Razão Social </span></strong></td>
          <td width="" class="style7"><strong><span class="style9">Nome Fantasia</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Cep</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Endereço</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Numero</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Complemento</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Bairro</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Cidade</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Estado </span></strong></td>
          <td width="" class="style7"><strong class="style8">E_mail</strong></td>
       <td width="" class="style7"><strong class="style8">Telefone</strong></td>
        </tr>
      <tr class="style7">
       
      <%    
      Do While RS_BUSCA.Eof=false
      
         %>
      
          <td height="" bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ID_EMPRESA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("RAZAO_SOCIAL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("NOME_FANTASIA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("CEP")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ENDERECO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("NUMERO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("COMPLEMENTO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("BAIRRO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("CIDADE")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ESTADO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("EMAIL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("TELEFONE")%></span></strong></td>
        </tr>
       
        <%
      RS_BUSCA.MoveNext
      Loop
        End If
    %>

    quinta-feira, 18 de outubro de 2007 17:16

Respostas

  • Da este erro porque vc não declaro a varável que deve estar recebendo o "this" da chamada de função.

    O script tem que ser igual ao que esta abaixo.

     

    <script language="javascript">

     function somenteinteiro(campo){
     
      if (document.getElementById("Pesquisa").options[2].selected == true)
      {
       var tam = campo.value.length;
       var charunicode;
       for (var i = 0;i<tam;i++)
       {
        charunicode = campo.value.substring(i,i+1).charCodeAt();
        if ((charunicode < 48) || (charunicode > 57))
        {
       window.alert("Caractere inválido no campo \"Pesquisa\"\nDigite somente valores inteiros!");
       campo.value = campo.value.substring(i,i-1)
       campo.focus();
       break;
        }
       }
      }
     }

    </script> 

     

     

    Abraços

     

    Estevam

    terça-feira, 23 de outubro de 2007 01:36

Todas as Respostas

  • Emerson seu código esta com alguns erros, por exemplo, os inputs radio voce esta definindo os value iguais, ou seja, na resposta do formulário independente de qual ele selecionar ele sempre vai receber o mesmo valor, mude isso para:

     

    <input name="radio_ordem" type="radio" value="crescente" />Crescente
    <input name="radio_ordem" type="radio" value="descrescente"/>Decrescente

     

    e

     

    <input name="radio_pesqusa" type="radio" value="inicio" />Inicio da Frase
    <input name="radio_pesqusa" type="radio" value="aleatorio" />Aleatorio

     

    Nos options dentro do select voce tem que definir os valores de cada option, se nao acontece a mesma coisa que expliquei acima, a proxima pagina neste caso nem vai receber valores.

     

                        <select name="Pesquisa" class="campo" id="Pesquisa">
                          <option>&lt;-- Selecione --&gt;</option>
                          <option value="codigo">Codigo</option>
                          <option value="nome">Nome</option>
                        </select> 

     

    Ai depois voce faz esta verificaçao, para montar o SQL, se voce perceber no seu código voce usa a veriavel SQL e depois voce faz concatençao com  uma q nao existe "SQL1". Entao deve ficar mais ou menos assim:

     

     

    SQL = "SELECT ID_EMPRESA, RAZAO_SOCIAL, NOME_FANTASIA, CEP, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ESTADO, EMAIL, TELEFONE FROM EMPRESA WHERE NOME_FANTASIA LIKE '%"&buscar_por&"%'"

     

    IF Pesquisa = "nome" THEN
      SQL = SQL & " WHERE nome "

    else

    SQL = SQL & " WHERE codigo "
      END IF

     

     IF Pesqui = "inicio" then
        SQL = SQL & " LIKE %'"&buscar_por&"'"

    ELSE

    SQL = SQL & " LIKE %"'&buscar_por&"'"

        END IF


     
       IF Ordem = "decrescente" THEN
       SQL = SQL & " ORDER BY DESC"
       END IF
     
       

    è mais ou menos isso

     

    Abraço

     

    Estevam

    quinta-feira, 18 de outubro de 2007 17:56
  • Então fiz como vc pediu assim :

     

     <%
       IF acao = "buscar" THEN
       
       SQL = "SELECT ID_EMPRESA, RAZAO_SOCIAL, NOME_FANTASIA, CEP, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ESTADO, EMAIL, TELEFONE FROM EMPRESA WHERE NOME_FANTASIA LIKE '%"&buscar_por&"%'"

      IF Pesquisa = "None" THEN
         SQL = SQL & "WHERE Nome "
       ELSE 
       SQL = SQL & " WHERE ID_EMPRESA "
        END IF
     

      IF Pesqui = "inicio" then
       SQL = SQL & " LIKE %'"&buscar_por&"'"
       ELSE
       SQL = SQL & " LIKE %'"&buscar_por&"'"
         END IF
     
        IF Ordem = "decrescente" THEN
        SQL = SQL & " ORDER BY DESC"
        END IF
     
      SET RS_BUSCA = conexao.execute(SQL)' SET RS_BUSCA RECOR SET = MINHA CONEXÃO EXECUTE O MEU COMANDO SQL.
       'RS_BUSCA.open SQL,conexao
      

    mas deu este erro :  Microsoft OLE DB Provider for SQL Server error '80040e14'

    Incorrect syntax near the keyword 'WHERE'.

    /Chamado/consu_empresa.asp, line 231

     

    quinta-feira, 18 de outubro de 2007 18:08
  • Emerson é que tem um detalhe muito importante ai no meio, se o usuario escolher para fazer a busca pelo codigo então o LIKE no where nao pode ser realizado e também o SQL inicial já estava com a cláusula where o que com o seguimento do script ele acaba ficando com dois where, entao vc tera que fazer um outro if fica mais ou menos assim:

     

     

    <%
       IF acao = "buscar" THEN
       
       SQL = "SELECT ID_EMPRESA, RAZAO_SOCIAL, NOME_FANTASIA, CEP, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ESTADO, EMAIL, TELEFONE FROM EMPRESA"

     

      IF Pesquisa = "Nome" THEN
         SQL = SQL & " WHERE Nome "
       ELSE 
       SQL = SQL & " WHERE ID_EMPRESA "
        END IF
     

    if nome <> "" then

      IF Pesqui = "inicio" then
       SQL = SQL & " LIKE %'"&buscar_por&"'"
       ELSE
       SQL = SQL & " LIKE %'"&buscar_por&"'%"
         END IF
      else
       SQL = SQL & " = " & buscar_por

    END IF


        IF Ordem = "decrescente" THEN
        SQL = SQL & " ORDER BY DESC"
        END IF
     
      SET RS_BUSCA = conexao.execute(SQL)' SET RS_BUSCA RECOR SET = MINHA CONEXÃO EXECUTE O MEU COMANDO SQL.
      'RS_BUSCA.open SQL,conexao

    Testa com o código acima.

     

    Abraços

     

    Estevam

     

    quinta-feira, 18 de outubro de 2007 19:26
  • Kra ainda deu erro quando faço a seleção de no combobox ..

    Tipo Razao Social .e click em busca ele da este erro !!

     

     

    Microsoft OLE DB Provider for SQL Server error '80040e14'

    Unclosed quotation mark after the character string '%%'WHERE RAZAO_SOCIAL'LIKE %''.

    /Chamado/consu_empresa.asp, line 232

     

     

    porque ?

     

    quinta-feira, 18 de outubro de 2007 19:55
  • Eu este erro tb ..quando eu alterei o formulario

     

     <form id="consulta" name="consulta" method="post" action="consu_empresa.old.asp" onSubmit="return validar();">

     

    Microsoft OLE DB Provider for SQL Server error '80040e14'

    Incorrect syntax near '='.

    /Chamado/consu_empresa.old.asp, line 243

     

    quinta-feira, 18 de outubro de 2007 20:01
  • Envia todo o código novamente pra eu ver como esta e o que esta ocorrendo!

     

    Abraços

     

    Estevam

    sexta-feira, 19 de outubro de 2007 00:51
  • Bom dia Estavam ..

    Ai vai o codigo!!

     

       <form id="consulta" name="consulta" method="post" action="consu_empresa.old.asp" onSubmit="return validar();">
             <br />
             <!--#include file="conexao.asp"-->
             <%
      
         Dim Pesquisa              : Pesquisa             = Request.Form("Pesquisa")
            Dim Ordem                 : Ordem                = Request.Form("radio_ordem")
            Dim Pesqui                : Pesqui               = Request.Form("radio_pesquisa")
         Dim acao               : acao            = Request.Form("acao")
      Dim buscar_por            : buscar_por           = Request.Form("txt_Busca")
         Dim RS_BUSCA            
         
        %>
     
     <%
      ' COMEÇO DO TESTE ...
     
     
     '  FIM TESTE PARA SELECT "
     %>
     
       <table width="" border="0&quot;" cellpadding="2" cellspacing="2">
                  <tr>
                    <td width="189" class="style7"> Campo de Pesquisa: <br/>
                        <select name="Pesquisa" class="campo" id="Pesquisa">
                          <option>&lt;-- Selecione --&gt;</option>
                          <option value="Codigo">Codigo</option>
                          <option value="Nome Fantasia">Nome Fantasia</option>
                          <option value="Raz&atilde;o Social">Raz&atilde;o Social</option>
                                                                </select>                </td>
                    <td width="223" class="style7"> Ordem: <br />
                        <fieldset class="style8">
                        <input name="radio_ordem" type="radio" value="Crescente" />
                          Crescente
                          <input name="radio_ordem" type="radio" value="Descrescente"/>
                          Decrescente
                        </fieldset></td>
                  </tr>
                  <tr>
                    <td class="style7">Pesquisa: <br />
                        <fieldset class="">
                        <input name="radio_pesqusa" type="radio" value="Inicio" />
                          Inicio da Frase
                          <input name="radio_pesqusa" type="radio" value="Aleatorio" />
                          Aleat&oacute;rio
                        </fieldset></td>
                  </tr>
                  <tr>
                    <td class="style7">Busca:<br />
                        <input name="txt_Busca" type="text" class="campo" id="txt_Busca" size="30" maxlength="50" /></td>
                  </tr>
                </table>
       <table width="" border="0" cellpadding="2" cellspacing="2">
       <%
       IF acao = "buscar" THEN
      
       SQL = "SELECT ID_EMPRESA, RAZAO_SOCIAL, NOME_FANTASIA, CEP, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ESTADO, EMAIL, TELEFONE FROM EMPRESA"

     

      IF Pesquisa = "ID_EMPRESA" THEN
         SQL = SQL & " WHERE ID_EMPRESA "
       ELSE
       SQL = SQL & " WHERE ID_EMPRESA "
        END IF
     

     if nome <> "" then
     
       IF Pesqui = "Inicio" then
        SQL = SQL & " LIKE %'"&buscar_por&"'"
        ELSE
        SQL = SQL & " LIKE %'"&buscar_por&"'%"
       END IF
       else
        SQL = SQL & " = " & buscar_por
     
     END IF
     
     
      IF Ordem = "Decrescente" THEN
      SQL = SQL & " ORDER BY DESC"
      END IF


     
      SET RS_BUSCA = conexao.execute(SQL)' SET RS_BUSCA RECOR SET = MINHA CONEXÃO EXECUTE O MEU COMANDO SQL.
       'RS_BUSCA.open SQL,conexao
      
      if RS_BUSCA.bof  or RS_BUSCA.eof then %>
      
        <tr class="style7">
          <td width=""><div align="center" class="style8">
          <div align="center" class="campo"><strong>SUA BUSCA N&Atilde;O RETORNOU RESULTADO!!</strong></div>
          </div></td>
        </tr>
     
         <%else
      
      
        End if%>
      </table>
       <table width="" border="0" bgcolor="">
         <tr class="style8">
       <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Empresa </span></strong></td>
       <td width="" class="style7"><strong><span class="style3 style6 style8">Razão Social </span></strong></td>
          <td width="" class="style7"><strong><span class="style9">Nome Fantasia</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Cep</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Endereço</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Numero</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Complemento</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Bairro</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Cidade</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Estado </span></strong></td>
          <td width="" class="style7"><strong class="style8">E_mail</strong></td>
       <td width="" class="style7"><strong class="style8">Telefone</strong></td>
        </tr>
      <tr class="style7">
       
      <%    
      Do While RS_BUSCA.Eof=false
      
         %>
      
          <td height="" bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ID_EMPRESA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("RAZAO_SOCIAL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("NOME_FANTASIA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("CEP")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ENDERECO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("NUMERO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("COMPLEMENTO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("BAIRRO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("CIDADE")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ESTADO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("EMAIL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("TELEFONE")%></span></strong></td>
        </tr>
       
        <%
      RS_BUSCA.MoveNext
      Loop
        End If
    %>
             <tr>
          <td height="" colspan="13" bgcolor="#FFFFFF">
         <div align="center">
           <input name="bt_pesquisar" type="submit" class="botao" id="bt_pesquisar" value="Buscar"/>
           &nbsp;<input name="bt_voltar" type="reset" class="botao" id="bt_voltar"  value="Limpar"/>
           <input name="acao" type="hidden" id="acao" value="buscar"/>
           </div></td>
          </tr>
     </table>
        </form>  
            </table></td>
      </tr>
        <tr>
        <td height="15" colspan="3" bgcolor="#265490"></td>
      </tr>
    </table>
      </table>
    </body>
    </html>
     
     

    sexta-feira, 19 de outubro de 2007 10:15
  • Emerson tente com este código abaixo, voce só tem que alterar os campos necessários para igual a de sua tabela, só tome cuidado ao altera-los, pois voce pode acabar bagunçando o código.

     

    Abraços

     

    Estevam

     

    <form id="consulta" name="consulta" method="post" action="consu_empresa.old.asp" onSubmit="return validar();">
             <br />
             <!--#include file="conexao.asp"-->
             <%
      
         Dim Pesquisa              : Pesquisa             = Request.Form("Pesquisa")
            Dim Ordem                 : Ordem                = Request.Form("radio_ordem")
            Dim Pesqui                : Pesqui               = Request.Form("radio_pesquisa")
         Dim acao               : acao            = Request.Form("acao")
      Dim buscar_por            : buscar_por           = Request.Form("txt_Busca")
         Dim RS_BUSCA            
         
        %>
     
     <%
      ' COMEÇO DO TESTE ...
     
     
     '  FIM TESTE PARA SELECT "
     %>
     
       <table width="" border="0&quot;" cellpadding="2" cellspacing="2">
                  <tr>
                    <td width="189" class="style7"> Campo de Pesquisa: <br/>
                        <select name="Pesquisa" class="campo" id="Pesquisa">
                          <option>&lt;-- Selecione --&gt;</option>
                          <option value="Codigo">Codigo</option>
                          <option value="NomeFantasia">Nome Fantasia</option>
                          <option value="RazaoSocial">Razao Social</option>
                                                                </select>                </td>
                    <td width="223" class="style7"> Ordem: <br />
                        <fieldset class="style8">
                        <input name="radio_ordem" type="radio" value="Crescente" />
                          Crescente
                          <input name="radio_ordem" type="radio" value="Descrescente"/>
                          Decrescente
                        </fieldset></td>
                  </tr>
                  <tr>
                    <td class="style7">Pesquisa: <br />
                        <fieldset class="">
                        <input name="radio_pesqusa" type="radio" value="Inicio" />
                          Inicio da Frase
                          <input name="radio_pesqusa" type="radio" value="Aleatorio" />
                          Aleat&oacute;rio
                        </fieldset></td>
                  </tr>
                  <tr>
                    <td class="style7">Busca:<br />
                        <input name="txt_Busca" type="text" class="campo" id="txt_Busca" size="30" maxlength="50" /></td>
                  </tr>
                </table>
       <table width="" border="0" cellpadding="2" cellspacing="2">
       <%
     IF acao = "buscar" THEN
      
     SQL = "SELECT ID_EMPRESA, RAZAO_SOCIAL, NOME_FANTASIA, CEP, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ESTADO, EMAIL, TELEFONE FROM EMPRESA"

     

    IF Pesquisa = "NomeFantasia" THEN
         SQL = SQL & " WHERE NomeFantasia "
    ELSEIF Pesquisa = "RazaoSocial" THEN

         SQL = SQL & " WHERE RazaoSocial "

    ELSE
         SQL = SQL & " WHERE ID_EMPRESA "
    END IF
     

    IF Pesquisa = "NomeFantasia" OR Pesquisa = "RazaoSocial" then

        IF Pesqui = "Inicio" then
               SQL = SQL & " LIKE '%" & buscar_por & "'"
        ELSE
               SQL = SQL & " LIKE '%" & buscar_por & "%'"
        END IF

    ELSE
        SQL = SQL & " = " & buscar_por
    END IF
     
     
    IF Ordem = "Decrescente" THEN

           IF Pesquisa = "NomeFantasia" THEN

                  SQL = SQL & " ORDER BY NomeFantasia DESC"

           ELSE Pesquisa = "RazaoSocial" THEN

                  SQL = SQL & " ORDER BY RazaoSocial DESC"

           ELSE

                  SQL = SQL & " ORDER BY ID_EMPRESA DESC"

           END IF

    ELSE      

           IF Pesquisa = "NomeFantasia" THEN

                  SQL = SQL & " ORDER BY NomeFantasia"

           ELSE Pesquisa = "RazaoSocial" THEN

                  SQL = SQL & " ORDER BY RazaoSocial"

           ELSE

                  SQL = SQL & " ORDER BY ID_EMPRESA"

           END IF
    END IF


     
      SET RS_BUSCA = conexao.execute(SQL)' SET RS_BUSCA RECOR SET = MINHA CONEXÃO EXECUTE O MEU COMANDO SQL.
       'RS_BUSCA.open SQL,conexao
      
      if RS_BUSCA.bof  or RS_BUSCA.eof then %>
      
        <tr class="style7">
          <td width=""><div align="center" class="style8">
          <div align="center" class="campo"><strong>SUA BUSCA N&Atilde;O RETORNOU RESULTADO!!</strong></div>
          </div></td>
        </tr>
     
         <%else
      
      
        End if%>
      </table>
       <table width="" border="0" bgcolor="">
         <tr class="style8">
       <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Empresa </span></strong></td>
       <td width="" class="style7"><strong><span class="style3 style6 style8">Razão Social </span></strong></td>
          <td width="" class="style7"><strong><span class="style9">Nome Fantasia</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Cep</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Endereço</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Numero</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Complemento</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Bairro</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Cidade</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Estado </span></strong></td>
          <td width="" class="style7"><strong class="style8">E_mail</strong></td>
       <td width="" class="style7"><strong class="style8">Telefone</strong></td>
        </tr>
      <tr class="style7">
       
      <%    
      Do While RS_BUSCA.Eof=false
      
         %>
      
          <td height="" bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ID_EMPRESA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("RAZAO_SOCIAL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("NOME_FANTASIA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("CEP")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ENDERECO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("NUMERO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("COMPLEMENTO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("BAIRRO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("CIDADE")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ESTADO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("EMAIL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("TELEFONE")%></span></strong></td>
        </tr>
       
        <%
      RS_BUSCA.MoveNext
      Loop
        End If
    %>
             <tr>
          <td height="" colspan="13" bgcolor="#FFFFFF">
         <div align="center">
           <input name="bt_pesquisar" type="submit" class="botao" id="bt_pesquisar" value="Buscar"/>
           &nbsp;<input name="bt_voltar" type="reset" class="botao" id="bt_voltar"  value="Limpar"/>
           <input name="acao" type="hidden" id="acao" value="buscar"/>
           </div></td>
          </tr>
     </table>
        </form>  
            </table></td>
      </tr>
        <tr>
        <td height="15" colspan="3" bgcolor="#265490"></td>
      </tr>
    </table>
      </table>
    </body>
    </html>
     

    sexta-feira, 19 de outubro de 2007 14:55
  • Olá Estevam

    Fiz este codigo porém o que acontece quando eu faço a seleção  no para cod e escolho a ordem decrescente ou crescente.

    e click em busca ele da este erro .

    Microsoft OLE DB Provider for SQL Server error '80040e14'

    Incorrect syntax near the keyword 'ORDER'.

    /Chamado/consu_empresa.old.asp, line 259

     

    e quando eu faço a seleção para NOME_FANTASIA e faço a escolha a pesquisa para aleatorio.

    e digito uma letra ele da este erro :

     

    Microsoft OLE DB Provider for SQL Server error '80040e14'

    Invalid column name 'd'.

    /Chamado/consu_empresa.old.asp, line 259

     

     

     

      <%
     IF acao = "buscar" THEN
     
     SQL = "SELECT ID_EMPRESA, RAZAO_SOCIAL, NOME_FANTASIA, CEP, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ESTADO, EMAIL, TELEFONE FROM EMPRESA"

      IF Pesquisa = "NOME_FANTASIA" THEN
           SQL = SQL & " WHERE NOME_FANTASIA "
      ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
     
       SQL = SQL & " WHERE RAZAO_SOCIAL "
     
     ELSE
       SQL = SQL & " WHERE ID_EMPRESA "
     END IF
     
     
     IF Pesquisa = "NOME_FANTASIA" OR Pesquisa = "RAZAO_SOCIAL" then
     
      IF Pesqui = "Inicio" then
          SQL = SQL & " LIKE '%" & buscar_por & "'"
      ELSE
          SQL = SQL & " LIKE '%" & buscar_por & "%'"
      END IF
     
     ELSE
      SQL = SQL & " = " & buscar_por
     END IF
     
     
     IF Ordem = "Decrescente" THEN
     
         IF Pesquisa = "NOME_FANTASIA" THEN
     
          SQL = SQL & " ORDER BY NOME_FANTASIA DESC"
     
         ELSEif Pesquisa = "RAZAO_SOCIAL" THEN
     
          SQL = SQL & " ORDER BY RAZAO_SOCIAL DESC"
     
         ELSE
     
          SQL = SQL & " ORDER BY ID_EMPRESA DESC"
     
         END IF
     
     ELSE      
     
         IF Pesquisa = "NOME_FANTASIA" THEN
     
          SQL = SQL & " ORDER BY NOME_FANTASIA"
     
         ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
     
          SQL = SQL & " ORDER BY RAZAO_SOCIAL"
     
         ELSE
     
          SQL = SQL & " ORDER BY ID_EMPRESA"
     
         END IF
     END IF
      SET RS_BUSCA = conexao.execute(SQL)' SET RS_BUSCA RECOR SET = MINHA CONEXÃO EXECUTE O MEU COMANDO SQL.
       'RS_BUSCA.open SQL,conexao
     
      if RS_BUSCA.bof  or RS_BUSCA.eof then %>
      
        <tr class="style7">
          <td width=""><div align="center" class="style8">
          <div align="center" class="campo"><strong>SUA BUSCA N&Atilde;O RETORNOU RESULTADO!!</strong></div>
          </div></td>
        </tr>
     
         <%else
     
      
        End if%>


      </table>
       <table width="" border="0" bgcolor="">
         <tr class="style8">
       <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Empresa </span></strong></td>
       <td width="" class="style7"><strong><span class="style3 style6 style8">Razão Social </span></strong></td>
          <td width="" class="style7"><strong><span class="style9">Nome Fantasia</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Cep</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Endereço</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Numero</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Complemento</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Bairro</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Cidade</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Estado </span></strong></td>
          <td width="" class="style7"><strong class="style8">E_mail</strong></td>
       <td width="" class="style7"><strong class="style8">Telefone</strong></td>
        </tr>
      <tr class="style7">
       
      <%    
      Do While RS_BUSCA.Eof=false
      
         %>
      
          <td height="" bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ID_EMPRESA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("RAZAO_SOCIAL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("NOME_FANTASIA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("CEP")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ENDERECO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("NUMERO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("COMPLEMENTO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("BAIRRO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("CIDADE")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ESTADO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("EMAIL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("TELEFONE")%></span></strong></td>
        </tr>
       
        <%
      RS_BUSCA.MoveNext
      Loop
        End If
    %>
             <tr>
          <td height="" colspan="13" bgcolor="#FFFFFF">
         <div align="center">
           <input name="bt_pesquisar" type="submit" class="botao" id="bt_pesquisar" value="Buscar"/>
           &nbsp;<input name="bt_voltar" type="reset" class="botao" id="bt_voltar"  value="Limpar"/>
           <input name="acao" type="hidden" id="acao" value="buscar"/>
           </div></td>
          </tr>
     </table>
        </form>  
            </table></td>
      </tr>
        <tr>
        <td height="15" colspan="3" bgcolor="#265490"></td>
      </tr>
    </table>
      </table>
    </body>
    </html>
     
     

    sexta-feira, 19 de outubro de 2007 16:14
  • Emerson seu select esta como este aki?

     

    <select name="Pesquisa" class="campo" id="Pesquisa">
        <option>-- Selecione --</option>
        <option value="Codigo">Codigo</option>
        <option value="NOME_FANTASIA">Nome Fantasia</option>
        <option value="RAZAO_SOCIAL">Razao Social</option>
    </select>

     

     

    Abraços

     

    Estevam

     

     

     

     

    sexta-feira, 19 de outubro de 2007 16:48
  • Estevam .
    Ta acontecendo o seguinte quando eu faço a seleção NOME_FANTASIA E DEPOIS PEÇO PARA ORDERAR COMO CRESCENTE .
    Ele vem porém quando faço a mesma seleção e peço para ordernar em decrescente ele não vem ..

    Continua a mesma coisa ..

    Isso também equivale para Razao Social.!

     

    Olha o codigo !!

     IF Pesquisa = "NOME_FANTASIA" THEN
     
           SQL = SQL & " WHERE NOME_FANTASIA "
       
      ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
     
       SQL = SQL & " WHERE RAZAO_SOCIAL "
     ELSE
       SQL = SQL & " WHERE ID_EMPRESA "
     END IF
     
     IF Pesquisa = "NOME_FANTASIA" OR Pesquisa = "RAZAO_SOCIAL" then
     
      IF Pesqui = "Inicio" then
          SQL = SQL & " LIKE '%" & buscar_por & "'"
      ELSE
          SQL = SQL & " LIKE '%" & buscar_por & "%'"
      END IF
     
     ELSE
      SQL = SQL & " = " & buscar_por
     END IF
     
     IF Ordem = "Decrescente" THEN
     
         IF Pesquisa = "NOME_FANTASIA" THEN
     
          SQL = SQL & " ORDER BY NOME_FANTASIA"
     
         ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
     
          SQL = SQL & " ORDER BY RAZAO_SOCIAL DESC"
         ELSE
          SQL = SQL & " ORDER BY ID_EMPRESA DESC"
         END IF
     ELSE
         IF Pesquisa = "NOME_FANTASIA" THEN
     
          SQL = SQL & " ORDER BY NOME_FANTASIA"
         
         ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
        
          SQL = SQL & " ORDER BY RAZAO_SOCIAL DESC"
         ELSE
          SQL = SQL & " ORDER BY ID_EMPRESA DESC"
         END IF
     END IF
     
      SET RS_BUSCA = conexao.execute(SQL)' SET RS_BUSCA RECOR SET = MINHA CONEXÃO EXECUTE O MEU COMANDO SQL.
       'RS_BUSCA.open SQL,conexao
     
      IF RS_BUSCA.bof  or RS_BUSCA.eof THEN %>
      

    sexta-feira, 19 de outubro de 2007 18:38
  • Emerson, novamente voce alterou algumas linhas do que eu tinha te passado veja as linhas abaixo que é do jeito que deve ficar e compare com as que voce enviou!

     

     IF Ordem = "Decrescente" THEN
     
         IF Pesquisa = "NOME_FANTASIA" THEN
     
          SQL = SQL & " ORDER BY NOME_FANTASIA DESC"
     
         ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
     
          SQL = SQL & " ORDER BY RAZAO_SOCIAL DESC"
         ELSE
          SQL = SQL & " ORDER BY ID_EMPRESA DESC"
         END IF
     ELSE
         IF Pesquisa = "NOME_FANTASIA" THEN
     
          SQL = SQL & " ORDER BY NOME_FANTASIA"
         
         ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
        
          SQL = SQL & " ORDER BY RAZAO_SOCIAL"
         ELSE
          SQL = SQL & " ORDER BY ID_EMPRESA"
         END IF
     END IF

     

     

    Abraços

     

    Estevam

    sexta-feira, 19 de outubro de 2007 19:14
  • Blz ..

    Mas quando eu faço a seleção do cod e escolho crescente ou decrescente e mando busca ele da este erro !!

     

     

    Microsoft OLE DB Provider for SQL Server error '80040e14'

    Incorrect syntax near the keyword 'ORDER'.

    /Chamado/consu_empresa.old.asp, line 253

     

    sexta-feira, 19 de outubro de 2007 19:29
  • Vamos por parte Emerson, no momento atual o problema só esta ocorrendo quando voce faz a seleçao por código certo? Por razao e por nome fantasia funciona ok???

     

    Deixa eu lhe perguntar quando voce faz a busca por código ele pode trazer mais de uma empresa ou ele só vai trazer a empresa cadastrada no código pesquisado?

     

    Abraços

     

    Estevam

    sexta-feira, 19 de outubro de 2007 19:59
  • Bom dia Estavam.

    Então nome Fantasia e Razão tudo funciona.

    O codigo tem que fazer a mesma coisa que o nome e razao .

    Tipo eu seleciono cod e faço a ordem por decrescente ou crescente ele vai fazer isso.

    Se eu digitar o codigo ele vai trazer se o codigo que eu digitei .

     

    Tenho outra duvida também quando eu seleciono Razão Social e faço Pesquisa Inicio da Frase

    e digito a letra: "e" ele  não traz as empresas cadastradas que tem de inicio a letra "e".

     

     

    Abraço.

    segunda-feira, 22 de outubro de 2007 10:34
  • Bom dia Emerson!

     

    Ok nome fantasia e razao funciona, legal, agora o que quero entender é o seguinte, voce faz a pesquisa por código certo? por exemplo se voce digitar o código 25, voce quer que traga todas as empresas que tem o código 25 ou vai trazer somente a empresa com código 25? Como esta o campo código no seu banco de dados, esta como inteiro ou como string?

     

    Quanto a pesquisa por "Inicio da Frase", voce sabe se seu banco ta diferenciando maiscúlas e minúsculas? Já tentou fazer a pesquisa com "inicio da Frase" mas com letra maiscúla, tipo "E"?

     

    Abraço

     

    Estevam

    segunda-feira, 22 de outubro de 2007 11:46
  •  

    Então tem que trazer a empresa que tem o codigo 25.

    O campo codigo ta como inteiro no banco .

    Refente ao "Inicio da frase" faço pesquisa como "inicio da frase " coloco a letra "E" em maiscúla porém ele não traz .
    Agora quando eu faço a seleção e aleatório ele traz  e digito a letra "E" ..ele traz .

     

    Ai vai o codigo :

     

    IF acao = "buscar" THEN
     
     SQL = "SELECT ID_EMPRESA, RAZAO_SOCIAL, NOME_FANTASIA, CEP, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ESTADO, EMAIL, TELEFONE FROM EMPRESA"

      IF Pesquisa = "NOME_FANTASIA" THEN
     
           SQL = SQL & " WHERE NOME_FANTASIA "
       
      ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
     
       SQL = SQL & " WHERE RAZAO_SOCIAL "
     ELSE
       SQL = SQL & " WHERE ID_EMPRESA "
     END IF
     
     IF Pesquisa = "NOME_FANTASIA" OR Pesquisa = "RAZAO_SOCIAL" then
     
      IF Pesqui = "Inicio" then
          SQL = SQL & " LIKE '%" & buscar_por & "'"
      ELSE
          SQL = SQL & " LIKE '%" & buscar_por & "%'"
      END IF
     
     ELSE
      SQL = SQL & " = " & buscar_por
     END IF
     
     IF Ordem = "Decrescente" THEN
     
         IF Pesquisa = "NOME_FANTASIA" THEN
     
          SQL = SQL & " ORDER BY NOME_FANTASIA DESC"
     
         ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
     
          SQL = SQL & " ORDER BY RAZAO_SOCIAL DESC"
         ELSE
          SQL = SQL & " ORDER BY ID_EMPRESA DESC"
         END IF
     ELSE
         IF Pesquisa = "NOME_FANTASIA" THEN
     
          SQL = SQL & " ORDER BY NOME_FANTASIA"
         
         ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
        
          SQL = SQL & " ORDER BY RAZAO_SOCIAL"
         ELSE
          SQL = SQL & " ORDER BY ID_EMPRESA"
         END IF
     END IF

     
      SET RS_BUSCA = conexao.execute(SQL)' SET RS_BUSCA RECOR SET = MINHA CONEXÃO EXECUTE O MEU COMANDO SQL.

    segunda-feira, 22 de outubro de 2007 12:27
  • Emerson, realmente na busca por inicio da frase o código esta errado e esta buscando no final da frase abaixo vai corrigido e alterei a parte do código faça um teste.

     

    IF acao = "buscar" THEN
     
     SQL = "SELECT ID_EMPRESA, RAZAO_SOCIAL, NOME_FANTASIA, CEP, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ESTADO, EMAIL, TELEFONE FROM EMPRESA"

      IF Pesquisa = "NOME_FANTASIA" THEN
     
           SQL = SQL & " WHERE NOME_FANTASIA "
       
      ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
     
       SQL = SQL & " WHERE RAZAO_SOCIAL "
     ELSE
       SQL = SQL & " WHERE ID_EMPRESA "
     END IF
     
     IF Pesquisa = "NOME_FANTASIA" OR Pesquisa = "RAZAO_SOCIAL" then
     
      IF Pesqui = "Inicio" then
          SQL = SQL & " LIKE '" & buscar_por & "%'"
      ELSE
          SQL = SQL & " LIKE '%" & buscar_por & "%'"
      END IF
     
     ELSE
      SQL = SQL & " = " & buscar_por
     END IF
     
     IF Ordem = "Decrescente" THEN
     
         IF Pesquisa = "NOME_FANTASIA" THEN
     
          SQL = SQL & " ORDER BY NOME_FANTASIA DESC"
     
         ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
     
          SQL = SQL & " ORDER BY RAZAO_SOCIAL DESC"
         ELSE
          SQL = SQL & " ORDER BY ID_EMPRESA DESC"
         END IF
     ELSE
         IF Pesquisa = "NOME_FANTASIA" THEN
     
          SQL = SQL & " ORDER BY NOME_FANTASIA"
         
         ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
        
          SQL = SQL & " ORDER BY RAZAO_SOCIAL"

         ELSE

          SQL = SQL & ""
         END IF
     END IF


      SET RS_BUSCA = conexao.execute(SQL)' SET RS_BUSCA RECOR SET = MINHA CONEXÃO EXECUTE O MEU COMANDO SQL.

     

    Abraços

     

    Estevam

    segunda-feira, 22 de outubro de 2007 12:45
  • Entendi .,

    Mas refente ao codigo o que podemos fazer.

    pensei em fazer uma função o que acha ?

    Tipo quando eu selecionar no combobox o codigo no campo txt informar para o usuario se ele digitar letra ...

     

    Como podemos fazer isso ..

    TAva fazendo assim ?

     

     

    function campo(){

             if (consulta.Codigo.value ==""){  
             alert('POR FAVOR PREENCHA O CAMPO COM NUMERO!');
         consulta.Codigo.focus(document.consulta.Codigo.style.background ="#FFFFCC");
           return false;
          }
     }
    </script>

    segunda-feira, 22 de outubro de 2007 13:32
  • A parte do de busca pelo código tente colocar o abaixo para ver se funciona:

     

    IF acao = "buscar" THEN
     
     SQL = "SELECT ID_EMPRESA, RAZAO_SOCIAL, NOME_FANTASIA, CEP, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ESTADO, EMAIL, TELEFONE FROM EMPRESA"

      IF Pesquisa = "NOME_FANTASIA" THEN
     
           SQL = SQL & " WHERE NOME_FANTASIA "
       
      ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
     
       SQL = SQL & " WHERE RAZAO_SOCIAL "
     ELSE
       SQL = SQL & " WHERE ID_EMPRESA "
     END IF
     
     IF Pesquisa = "NOME_FANTASIA" OR Pesquisa = "RAZAO_SOCIAL" then
     
      IF Pesqui = "Inicio" then
          SQL = SQL & " LIKE '" & buscar_por & "%'"
      ELSE
          SQL = SQL & " LIKE '%" & buscar_por & "%'"
      END IF
     
     ELSE
      SQL = SQL & " = " & buscar_por
     END IF
     
     IF Ordem = "Decrescente" THEN
     
         IF Pesquisa = "NOME_FANTASIA" THEN
     
          SQL = SQL & " ORDER BY NOME_FANTASIA DESC"
     
         ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
     
          SQL = SQL & " ORDER BY RAZAO_SOCIAL DESC"
         ELSE
          SQL = SQL & ""
         END IF
     ELSE
         IF Pesquisa = "NOME_FANTASIA" THEN
     
          SQL = SQL & " ORDER BY NOME_FANTASIA"
         
         ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
        
          SQL = SQL & " ORDER BY RAZAO_SOCIAL"

         ELSE

          SQL = SQL & ""
         END IF
     END IF


      SET RS_BUSCA = conexao.execute(SQL)' SET RS_BUSCA RECOR SET = MINHA CONEXÃO EXECUTE O MEU COMANDO SQL.

     

     

    Abraços

     

    Estevam

    segunda-feira, 22 de outubro de 2007 13:41
  • Então o que acontece quando eu faço a seleção do codigo e faço a ordem

    Ele fica com este erro :

    Microsoft OLE DB Provider for SQL Server error '80040e14'

    Incorrect syntax near '='.

    /Chamado/consu_empresa.old.asp, line 272

     

    E quando faço a busca por codigo e  digito  a letra "D" o meu txt ele fica com este erro !

    Microsoft OLE DB Provider for SQL Server error '80040e14'

    Invalid column name 'd'.

    /Chamado/consu_empresa.old.asp, line 272

     

     

    O que acha de fazer uma função ?

     

     

    segunda-feira, 22 de outubro de 2007 14:03
  • Emerson, tente alterar a linha abaixo para e veja o que acontece, verifica se retorna o mesmo erro?

     

    SQL = SQL & " = " & buscar_por

     

    Troca para esta: (Obs.: Troca o 25 por algum id de empresa cadastrada ai)

     

    SQL = SQL & " = 25" 

     

    E quanto ao buscar pelo código digitando o "D", isto nao é possivel pois seu banco esta configurado para receber inteiro, entao nao vai conseguir comparar uma string com um inteiro, entendeu?

     

     

    Abraços

     

    Estevam

    segunda-feira, 22 de outubro de 2007 14:28
  • Entendi .

    Mas  Estevam neste caso o que acha de fazer um função para alertar o usuario que ele da digitando uma letra quando ele faz a seleção no combobox.

     

    <script language="javascript">

    function campo(){

             if (consulta.ID_EMPRESA.value ==""){  
             alert('POR FAVOR PREENCHA O SOMENTE COM NÚMERO!');
         consulta.ID_EMPRESA.focus(document.consulta.ID_EMPRESA.style.background ="#FFFFCC");
           return false;
          }
     }
    </script>

     

    Tenho que colocar onKeyPress="return campo(event);"/> no campo.

     

    E assim mesmo .?

     

     

     

     

     

    segunda-feira, 22 de outubro de 2007 15:56
  • Emerson tenho a funçao abaixo, dei uma adaptada para seu caso ve se funciona!

     

    Voce pode coloar ela no key press sim, só vai ficar dando mensagem de erro toda hora que ele digitar um caractere nao valido.

     

    onkeypress="somenteinteiro(this);")

     

    Script Abaixo:

     

    function somenteinteiro(campo)
    {

     if (document.getElementById("Pesquisa").options[2].selected == true)
     {
      var tam = campo.length;
      var charunicode;
      for (var i = 0;i<tam;i++)
      {
       charunicode = campo.substring(i,i+1).charCodeAt();
       if ((charunicode < 48) || (charunicode > 57))
       {
         window.alert("Caractere inválido no campo \"Pesquisa\"\nDigite somente valores inteiros!");
         document.getElementById("ID_EMPRESA").focus();
         break;
       }
      }
     }
    }

     

     

    Abraços

     

    Estevam

    segunda-feira, 22 de outubro de 2007 16:43
  • Estevam ainda com está função deu erro !

    Campo faço a seleção do codigo e digito uma letra  aparece isso :

     

    Microsoft OLE DB Provider for SQL Server error '80040e14'

    Invalid column name 'd'.

    /Chamado/consu_empresa.old.asp, line 296

     

     

    aqui e o campo Busca :

     

      <input name="txt_Busca" type="text" class="campo" id="txt_Busca" size="30" maxlength="50" onkeypress="somenteinteiro(this);")/></td>

     

     

    segunda-feira, 22 de outubro de 2007 16:54
  • Emerson troca a funçao que lhe envie por esta abaixo, por a que estou te passando agora eu testei e veja se da tudo certo. A funçao deve garantir que antes que o form seja enviando e o cliente ter escolhido a pesquisa por código, que nao havera tipo de caractere na busca.

     

    Testa ai!!

     

    function somenteinteiro(campo)
    {
     if (document.getElementById("Pesquisa").options[2].selected == true)
     {
      var tam = campo.value.length;
      var charunicode;
      for (var i = 0;i<tam;i++)
      {
       charunicode = campo.value.substring(i,i+1).charCodeAt();
       if ((charunicode < 48) || (charunicode > 57))
       {
         window.alert("Caractere inválido no campo \"Pesquisa\"\nDigite somente valores inteiros!");
         campo.value = campo.value.substring(i,i-1)
         campo.focus();
         break;
       }
      }
     }
    }

     

     

    Abraços

     

    Estevam

    segunda-feira, 22 de outubro de 2007 17:49
  • Estevam ainda deu o mesmo erro vou passar o cod inteiro da tela..

     

    olha o eero :

    Microsoft OLE DB Provider for SQL Server error '80040e14'

    Invalid column name 'd'.

    /Chamado/consu_empresa.old.asp, line 302


    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
    <title>:: Briefing _________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________</title>
    <style type="text/css">

    body {
     margin-left: 0px;
     margin-top: 0px;
     margin-right: 0px;
     margin-bottom: 0px;
    }


    A.menu_sup {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #ffffff;
     
    }

    A.menu_sup:link {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #ffffff;
     
    }

    A.menu_sup:hover {
    text-decoration: none;
     color: #dadada;

    }
    .campo {BACKGROUND: #f8f8f8;
      COLOR: #265490;
      BORDER-BOTTOM: #265490 1px solid;
      BORDER-LEFT: #EFEFEF 1px solid;
      BORDER-RIGHT: #265490 1px solid;
      BORDER-TOP: #EFEFEF 1px solid;
      FONT-SIZE: 10px;
      height : 20;
    }

     

     

    a {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #265490;
    }

    a:link {
     text-decoration: none;
    }
    a:visited {
     text-decoration: none;
    }
    a:hover {
     text-decoration: none;
     color: #999999;
    }
    a:active {
     text-decoration: none;
    }

    .style5 {color: #FFFFFF}
    .style8 {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #255691;
    }
    .style7 {font-size: 10px; color: #1C406C; font-family: Verdana, Arial, Helvetica, sans-serif;}
    .botao {BACKGROUND: #f8f8f8;
      COLOR: #265490;
      BORDER-BOTTOM: #265490 1px solid;
      BORDER-LEFT: #EFEFEF 1px solid;
      BORDER-RIGHT: #265490 1px solid;
      BORDER-TOP: #EFEFEF 1px solid;
      FONT-SIZE: 10px;
      width:80px;
      height : 20;
    }
    .style9 {color: #255691}
    </style></head>

    <body>

    <table width="" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="502" height="100" background="images/topo_01.jpg"><img src="images/chamado_2_01.jpg" width="502" height="99" /></td>
        <td width="100%" background="images/topo_01.jpg">&nbsp;</td>
        <td width="271"><img src="images/chamado_2_03.jpg" width="271" height="100" /></td>
      </tr>
      <tr>
        <td height="1" colspan="3" bgcolor="#F8f8f8"></td>
      </tr>
      <tr>
        <td colspan="3" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" align="right" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1%" bgcolor="#265490">&nbsp;</td>
            <td width="100%" height="22" valign="top" bgcolor="#265490"><a href="cadastro.html" class="menu_sup">&nbsp;&nbsp;Cadastro</a><span class="style5"> | </span><a href="processos.html" class="menu_sup">Processos</a> <span class="style5">| </span><a href="seguranca.html" class="menu_sup">Seguran&ccedil;a</a> <span class="style5">|</span> <a href="relatorios.html" class="menu_sup">Relat&oacute;rios</a> <span class="style5">|</span> <a href="gerenciamento.html" class="menu_sup">Gerenciamento</a> <span class="style5">|</span> <a href="logout.asp" class="menu_sup">Sair</a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="1" colspan="3" bgcolor="#ffffff"></td>
      </tr>
      <tr>
        <td height="" colspan="3"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="20%" valign="top" bgcolor="#FFFFFF"><br />
              <table width="95%" border="0" align="center" cellpadding="0" cellspacing="2">
                <tr>
                  <td bgcolor="#FFFFFF"><img src="images/cadastro.jpg" width="136" height="28" /><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Empresas </a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Funcion&aacute;rios</a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Clientes</a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Cargos</a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Tipos de telefone </a></td>
                </tr>
                <tr>
                  <td>&nbsp;</td>
                </tr>
              </table></td>
            <td width="" background="images/fd.jpg" bgcolor="#CCCCCC">&nbsp;</td>
              <td width="79%" valign="top" bgcolor="#FFFFFF">
      
      <!-- <form action="consu_new.asp" method="post" name="consu_new" id="acao" onSubmit="return valida();" >-->
       
    <script language="javascript">

    function validar(){
     
      consulta.txt_Busca.focus(document.consulta.txt_Busca.style.background ="");
      consulta.Pesquisa.focus(document.consulta.Pesquisa.style.background ="");
     
     

       
        if (consulta.Pesquisa.value ==""){  
        alert('POR FAVOR PREENCHA O CAMPO PESQUISA!');
        consulta.Pesquisa.focus(document.consulta.Pesquisa.style.background ="#FFFFCC");
           return false;
            }
      
           if (consulta.txt_Busca.value ==""){  
       alert('POR FAVOR PREENCHA O CAMPO BUSCA!');
         consulta.txt_Busca.focus(document.consulta.txt_Busca.style.background ="#FFFFCC");
           return false;
          }
      //  if (consulta.Pesquisa.value ="ID_CODIGO"){  
    //          alert('POR FAVOR PREENCHA O SOMENTE COM NÚMERO!');
    //      consulta.Pesquisa.focus(document.consulta.Pesquisa.style.background ="#FFFFCC");
    //   
    //  }else{
    //  (consulta.Pesquisa.value ="NOME_FANTASIA")
    //  consulta.txt_Busca.focus(document.consulta.txt_Busca.style.background ="#FFFFCC");
    //   return false;
    //       }
       }
      
    </script> 

     


    <script language="javascript">

    function somenteinteiro(campo)
    {
     if (document.getElementById("Pesquisa").options[2].selected == true)
     {
      var tam = campo.value.length;
      var charunicode;
      for (var i = 0;i<tam;i++)
      {
       charunicode = campo.value.substring(i,i+1).charCodeAt();
       if ((charunicode < 48) || (charunicode > 57))
       {
         window.alert("Caractere inválido no campo \"Pesquisa\"\nDigite somente valores inteiros!");
         campo.value = campo.value.substring(i,i-1)
         campo.focus();
         break;
       }
      }
     }
    }

     

    </script>  
       
     <form id="consulta" name="consulta" method="post" action="consu_empresa.old.asp" onsubmit=" return validar();">
             <br />
           
          <!--#include file="conexao.asp"-->
        
      <%
         Dim Pesquisa              : Pesquisa             = Request.Form("Pesquisa")
            Dim Ordem                 : Ordem                = Request.Form("radio_ordem")
            Dim Pesqui                : Pesqui               = Request.Form("radio_pesquisa")
         Dim acao               : acao            = Request.Form("acao")
      Dim buscar_por            : buscar_por           = Request.Form("txt_Busca")
         Dim RS_BUSCA 
          %>
     
       <table width="" border="0&quot;" cellpadding="2" cellspacing="2">
                  <tr>
                    <td width="189" class="style7"> Campo de Pesquisa: <br/>
                        <select name="Pesquisa" class="campo" id="Pesquisa">
                          <option>&lt;-- Selecione --&gt;</option>
                          <option value="ID_EMPRESA">Codigo</option>
                          <option value="NOME_FANTASIA">Nome Fantasia</option>
                          <option value="RAZAO_SOCIAL">Raz&atilde;o Social</option>
                        </select>     </td>
                    <td width="223" class="style7"> Ordem: <br />
                        <fieldset class="style8">
                        <input name="radio_ordem" type="radio" value="Crescente" checked="checked" />
                          Crescente
                          <input name="radio_ordem" type="radio" value="Decrescente"/>
                          Decrescente
                        </fieldset></td>
                  </tr>
                  <tr>
                    <td class="style7">Pesquisa: <br />
                        <fieldset class="">
                        <input name="radio_pesquisa" type="radio" value="Inicio" checked="checked"/>
                          Inicio da Frase
                          <input name="radio_pesquisa" type="radio" value="Aleatorio"/>
                          Aleat&oacute;rio
                        </fieldset></td>
                  </tr>
                  <tr>
                    <td class="style7">Busca:<br />
                      <input name="txt_Busca" type="text" class="campo" id="txt_Busca" size="30" maxlength="50" onkeypress="somenteinteiro"/></td>
                  </tr>
                </table>
       <table width="" border="0" cellpadding="2" cellspacing="2">
        <%
      IF acao = "buscar" THEN
      
      SQL = "SELECT ID_EMPRESA, RAZAO_SOCIAL, NOME_FANTASIA, CEP, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ESTADO, EMAIL, TELEFONE FROM EMPRESA"
     
       IF Pesquisa = "NOME_FANTASIA" THEN
     
         SQL = SQL & " WHERE NOME_FANTASIA "
       
       ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
     
        SQL = SQL & " WHERE RAZAO_SOCIAL "
      ELSE
        SQL = SQL & " WHERE ID_EMPRESA "
      END IF
     
      IF Pesquisa = "NOME_FANTASIA" OR Pesquisa = "RAZAO_SOCIAL" then
     
       IF Pesqui = "Inicio" then
        SQL = SQL & " LIKE '" & buscar_por & "%'"
       ELSE
          SQL = SQL & " LIKE '%" & buscar_por & "%'"
       END IF
     
      ELSE
       SQL = SQL & " = " & buscar_por
      END IF
      
      IF Ordem = "Decrescente" THEN
     
       IF Pesquisa = "NOME_FANTASIA" THEN
     
        SQL = SQL & " ORDER BY NOME_FANTASIA DESC"
     
       ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
     
        SQL = SQL & " ORDER BY RAZAO_SOCIAL DESC"
       ELSE
        SQL = SQL & " ORDER BY ID_EMPRESA DESC"
       END IF
      ELSE
       IF Pesquisa = "NOME_FANTASIA" THEN
     
        SQL = SQL & " ORDER BY NOME_FANTASIA"
       
       ELSEIF Pesquisa = "RAZAO_SOCIAL" THEN
      
        SQL = SQL & " ORDER BY RAZAO_SOCIAL"
     
       ELSE 
       
        SQL = SQL & ""
       END IF
      END IF
     

      SET RS_BUSCA = conexao.execute(SQL)' SET RS_BUSCA RECOR SET = MINHA CONEXÃO EXECUTE O MEU COMANDO SQL.

       'RS_BUSCA.open SQL,conexao
     
      IF RS_BUSCA.bof  or RS_BUSCA.eof THEN %>
      
        <tr class="style7">
          <td width=""><div align="center" class="style8">
          <div align="center" class="campo"><strong>SUA BUSCA N&Atilde;O RETORNOU RESULTADO!!</strong></div>
          </div></td>
        </tr>
     
         <%ELSE
        END IF%>


      </table>
       <table width="" border="0" bgcolor="">
         <tr class="style8">
       <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Empresa </span></strong></td>
       <td width="" class="style7"><strong><span class="style3 style6 style8">Razão Social </span></strong></td>
          <td width="" class="style7"><strong><span class="style9">Nome Fantasia</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Cep</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Endereço</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Numero</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Complemento</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Bairro</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Cidade</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Estado </span></strong></td>
          <td width="" class="style7"><strong class="style8">E_mail</strong></td>
       <td width="" class="style7"><strong class="style8">Telefone</strong></td>
        </tr>
      <tr class="style7">
       
      <%    
      Do While RS_BUSCA.Eof=false
      
         %>
      
          <td height="" bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ID_EMPRESA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("RAZAO_SOCIAL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("NOME_FANTASIA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("CEP")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ENDERECO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("NUMERO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("COMPLEMENTO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("BAIRRO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("CIDADE")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ESTADO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("EMAIL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("TELEFONE")%></span></strong></td>
        </tr>
       
        <%
      RS_BUSCA.MoveNext
      Loop
        End If
    %>
             <tr>
          <td height="" colspan="13" bgcolor="#FFFFFF">
         <div align="center">
           <input name="bt_pesquisar" type="submit" class="botao" id="bt_pesquisar" value="Buscar"/>
           &nbsp;<input name="bt_voltar" type="reset" class="botao" id="bt_voltar"  value="Limpar"/>
           <input name="acao" type="hidden" id="acao" value="buscar"/>
           </div></td>
          </tr>
     </table>
        </form>  
            </table></td>
      </tr>
        <tr>
        <td height="15" colspan="3" bgcolor="#265490"></td>
      </tr>
    </table>
      </table>
    </body>
    </html>
     
     

     

    segunda-feira, 22 de outubro de 2007 18:02
  • Este erro ocorre quando voce faz o que?

    Quando vc faz a busca por codigo digitando um código válido?

     

    O que esta na linha 302 de seu código?

     

    Abraços

     

    Estevam

    segunda-feira, 22 de outubro de 2007 18:46
  • então linha 302 ele faz a busca se não achar ele manda a mensagem de aviso, falando que a SUA BUSCA NÂO;O RETORNOU RESULTADO!!

     

    Então o que faço coloco a função . e vou no combobox onde escolho o cod em seguinta eu vou no busca e digito a letra "T", ai ele da o erro .

     

    Então tava vendo aqui tb ..tem um erro .assim .

    linha 176

    caractere = 4

    erro = 'value' é nulo ou não objeto

     

    E aqui eu acho !!!

     

    </script> 

    <script language="javascript">

     function somenteinteiro(campo)
     {
      if (document.getElementById("Pesquisa").options[2].selected == true)
      {


       var tam = campo.value.length; esta e a linha com erro !!!!


       var charunicode;
       for (var i = 0;i<tam;i++)
       {
        charunicode = campo.value.substring(i,i+1).charCodeAt();
        if ((charunicode < 48) || (charunicode > 57))
        {
       window.alert("Caractere inválido no campo \"Pesquisa\"\nDigite somente valores inteiros!");
       campo.value = campo.value.substring(i,i-1)
       campo.focus();
       break;
        }
       }
      }
     }

    </script> 

     

     

    segunda-feira, 22 de outubro de 2007 19:13
  • Emerson voce fez a chamada da funçao JavaScript incorretamente, voce fez assim:

     

    <input name="txt_Busca" type="text" class="campo" id="txt_Busca" size="30" maxlength="50" onkeypress="somenteinteiro"/></td>

     

    E deve ficar assim:

     

    <input name="txt_Busca" type="text" class="campo" id="txt_Busca" size="30" maxlength="50" onkeypress="somenteinteiro(this);"/></td>

     

     

    Abraços

     

    Estevam

    segunda-feira, 22 de outubro de 2007 19:23
  • KRA AINDA CONTINUA COM O MESMO ERRO ..

     

    ESTA E A FUNÇÃO..

     

    </script> 

    <script language="javascript">

     function somenteinteiro(){
     
      if (document.getElementById("Pesquisa").options[2].selected == true)
      {
       var tam = campo.value.length;
       var charunicode;
       for (var i = 0;i<tam;i++)
       {
        charunicode = campo.value.substring(i,i+1).charCodeAt();
        if ((charunicode < 48) || (charunicode > 57))
        {
       window.alert("Caractere inválido no campo \"Pesquisa\"\nDigite somente valores inteiros!");
       campo.value = campo.value.substring(i,i-1)
       campo.focus();
       break;
        }
       }
      }
     }

    </script> 

     

    AQUI NO TXT = <input name="txt_Busca" type="text" class="campo" id="txt_Busca" size="30" maxlength="50" onkeypress="somenteinteiro(this);"/>

     

     

    Microsoft OLE DB Provider for SQL Server error '80040e14'

    Invalid column name 'd'.

    /Chamado/consu_empresa.old.asp, line 293

     

    abraço.

    segunda-feira, 22 de outubro de 2007 19:45
  • quando eu escolho o cod e coloco uma letra no campo busca fica com este erro tb !!

     

       var tam = campo.value.length; esta e a linha com erro !!!!

     

    fala que o campo não está definido.

     

     

     

    segunda-feira, 22 de outubro de 2007 19:59
  • Da este erro porque vc não declaro a varável que deve estar recebendo o "this" da chamada de função.

    O script tem que ser igual ao que esta abaixo.

     

    <script language="javascript">

     function somenteinteiro(campo){
     
      if (document.getElementById("Pesquisa").options[2].selected == true)
      {
       var tam = campo.value.length;
       var charunicode;
       for (var i = 0;i<tam;i++)
       {
        charunicode = campo.value.substring(i,i+1).charCodeAt();
        if ((charunicode < 48) || (charunicode > 57))
        {
       window.alert("Caractere inválido no campo \"Pesquisa\"\nDigite somente valores inteiros!");
       campo.value = campo.value.substring(i,i-1)
       campo.focus();
       break;
        }
       }
      }
     }

    </script> 

     

     

    Abraços

     

    Estevam

    terça-feira, 23 de outubro de 2007 01:36
  • Bom dia Estevam.

     

    Então fiz isso ontem tb..

    Mas ainda este codigo da erro, quando eu faço a seleção do cod e digito no banco busca uma letra.

    Continua o mesmo erro ...

     

    Fiz o cod igual vc falou !

     

    <script language="javascript">

     function somenteinteiro(campo){
     
      if (document.getElementById("Pesquisa").options[2].selected == true)
      {
       var tam = campo.value.length;
       var charunicode;
       for (var i = 0;i<tam;i++)
       {
        charunicode = campo.value.substring(i,i+1).charCodeAt();
        if ((charunicode < 48) || (charunicode > 57))
        {
       window.alert("Caractere inválido no campo \"Pesquisa\"\nDigite somente valores inteiros!");
       campo.value = campo.value.substring(i,i-1)
       campo.focus();
       break;
        }
       }
      }
     }

    </script>

    ==========================================

    Olha o erro :

     

    Microsoft OLE DB Provider for SQL Server error '80040e14'

    Invalid column name 'd'.

    /Chamado/consu_empresa.old.asp, line 292

     

    terça-feira, 23 de outubro de 2007 10:15
  • Emerson ai que esta o problema, como voce já sabe se voce enviar para a consulta uma pesquisa com letras (string) e a consulta estiver esperando um número inteiro vai gerar erro certo? O propósito da funçao é nao permitir a entrada de caracteres que nao sejam números inteiros.

     

    No ententando este erro que voce mostra acima é de pesquisa no banco (vinculado ao ASP), já se a funçao JS nao esta fazendo o que deve fazer deve estar dando um erro de script ná pagina, ai preciso saber qual o erro exato que da ná funçao JS.

     

    Agora vamos mudar para ver se resolve o problema! Vamos troca a funçao e a chamada da funçao, em vez de chamarmos a funçao no campo, nós vamos chamar no form ok?

    Entao vc deve retirar o comando "onkeypress" do campo text e incluir na tag form o "onsubmit" assim:

     

    <form name="formularioteste" action="recebe.html" method="post" onsubmit="return somenteinteiro();" />

     

    Troque a funçao para esta abaixo:

     

     

    <script language="javascript">

    function somenteinteiro(){

    campobusca = document.getElementById("txt_Busca");
    campopesquisa = document.getElementById("Pesquisa");
    var retorno = true;
      if (campopesquisa.options[2].selected == true)
      {
       var tam = campobusca.value.length;
       var charunicode;
       for (var i = 0;i<tam;i++)
       {
        charunicode = campobusca.value.substring(i,i+1).charCodeAt();
        if ((charunicode < 48) || (charunicode > 57))
        {
       window.alert("Caractere inválido no campo \"Pesquisa\".\nVoce escolheu consulta por Código.\nDigite somente valores inteiros!");
       campobusca.value = ""

       campobusca.focus();
       retorno = false;
       break;
        }
       }
      }
      return retorno;
     }

    </script>

     

    Bom testa ai agora.

     

    Abraços

     

    Estevam

    terça-feira, 23 de outubro de 2007 12:53
  • Olá Estevam .

    Então kra a função tava certa mesmo ...

    eu que tava passando o errado ..

    Agora foi, ficou assim .

     

     

    ISSO AQUE O MEU CAMPO PESQUISA ! OPTIONS AQUI É 1 SÓ FIZ ISSO .....

     

    <select name="Pesquisa" class="campo" id="Pesquisa">
                    <option>&lt;-- Selecione --&gt;</option>
                    <option value="ID_EMPRESA">Codigo</option>
                    <option value="NOME_FANTASIA">Nome Fantasia</option>
                    <option value="RAZAO_SOCIAL">Raz&atilde;o Social</option>
                  </select></td>

     

    <script language="javascript">

    // FUNÇÃO PARA VERIFICAR CAMPO.

     function somenteinteiro(campo){ 
     
      if (document.getElementById("Pesquisa").options[1].selected == true) "aqui  que eu fiz alteração coloquei a options [1]"


      {
       var tam = campo.value.length;
       var charunicode;
       for (var i = 0;i<tam;i++)
       {
        charunicode = campo.value.substring(i,i+1).charCodeAt();
        if ((charunicode < 48) || (charunicode > 57))
        {
       window.alert("CARACTERE INVÁLIDO NO CAMPO BUSCA,VOCÊ ESCOLHEU A CONSULTA POR CÓDIGO!");
       campo.value = campo.value.substring(i,i-1)
       campo.focus;
       break;
        }
       }
      }
     }

    </script>  

    terça-feira, 23 de outubro de 2007 13:37
  • Blz Emerson, melhor assim, agora tudo resolvido.

     

    Abraços

     

    Estevam

    terça-feira, 23 de outubro de 2007 13:53