Ir para conteúdo
Fórum Script Brasil
  • 0

Quebrando Cabeça Com 2 Tabelas

Ulissesx

Perguntado por Ulissesx,

 Share

Pergunta

Ulissesx

Ulissesx

Postado
Postado

Pessoal no codigo abaixo tenho duas tabelas (principal e dependentes)

Esse codigo monta um form p/selecionar o filtro (cod_func) em ambas as tabelas

Em liguagem normal seria isso: selecionar na tabela dependentes tudo em que o cod_func for igual ao campo pesquisa.

Mas não ta rolando, quando executo recebo esse erro:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/gestao_rh/consulta_alt_dep.asp, line 81

segue o codigo, agradeço a ajuda

<%
Option Explicit
Response.Expires = 0
%>
<!--#include file="header.htm"-->
<!--#include file="bib_cadastro.asp"-->
<HTML>
<HEAD>
<TITLE>Pesquisa por Nome</TITLE>
</HEAD>
<BODY topmargin="0" leftmargin="0" bgcolor="#EEEEEE">
<%
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
   varNome = (Request.Form("pesquisa"))
     
   Dim Conexao, rs, sqlBanco, varNome
   varNome = (Request.Form("pesquisa"))
      
   sqlBanco = "SELECT * FROM dependentes WHERE cod_func LIKE '%" & varNome & "%' "
   sqlBanco = sqlBanco & "ORDER BY nome"
      
   Call abre_conexao

   Set rs = Conexao.Execute(sqlBanco)
   %>
   <br>
<div align="center">
  <table width="62%" border="0" bgcolor="#FFFFFF">
    <tr> 
      <td bgcolor="#666666"> 
        <div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Cadastro 
          de Funcion&aacute;rios</b></font></div>
      </td>
    </tr>
  </table>
  <table width="82%" border="1" bgcolor="#FFFFFF">
    <tr bgcolor="#666666"> 
      <td width="6%"><div align="center"><strong><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Cod_Func</font></strong></div></td>
      <td width="6%"><strong><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Empresa</font></strong></td>
      <td width="30%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF" size="1"><b>Funcion&aacute;rio</b></font></div></td>
      <td width="10%"> <div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Dt 
          Adm</b></font></div></td>
    </tr>
  </table>
  <%
   If rs.EOF Then
      Response.Write "não existem Pedidos Liberados, por favor tente outro."
   Else
     While Not rs.EOF
     %>
</div>
<div align="center">
  <table width="82%" border="0" bgcolor="#FFFFFF">
    <tr> 
      <td width="8%"><div align="center"><font face="Verdana size="1"><b><%= rs("cod_func") %></b></font></div></td>
      <td width="7%"><font face="Verdana" color="#000000" size="1">&nbsp;<b><%= rs("empregador") %></b></font></td>
      <td width="26%"> <div align="left"><font face="Verdana" color="#000000" size="1"><b> 
          <% Response.write "<a href=form_altera_cad.asp?id=" & rs("cod_func") & ">" & rs("nome") & "</a>"%>
          </b></font></div></td>
      <td width="10%"> <div align="left"><font face="Verdana" color="#000000" size="1"><b><%= rs("dt_admin") %></b></font><font face="Verdana, Arial, Helvetica, sans-serif"><b></b></font></div></td>
    </tr>
    <%
        rs.MoveNext
     Wend
   End If 
   %>
  </TABLE>
  <br><font face="arial" size="2">Para realizar nova consulta <a href="consulta_nf_p_alterar.asp">clique aqui</a></font> 
  <%
   rs.Close
   Call fecha_conexao
   Set rs = Nothing
Else
%>
</div>
<!--#include file="bib_cadastro.asp"-->
<%
Dim Conexaos, rsfuncionario, strSQl, nome
Call abre_conexao
strsql = "SELECT cod_func, nome FROM principal ORDER BY nome"
Set rsfuncionario = Conexaos.execute(strSQL)
%>
<FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME") %>" METHOD="POST">
  <table width="35%" border="0" align="center">
    <tr> 
      <td width="22%"><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Funcion&aacute;rio</font> 
        </div></td>
      <td width="33%"><select name="pesquisa" id="pesquisa">
          <%
  While not rsFuncionario.EOF %>
          <option value="<%= rsFuncionario("cod_func")%>"><%= rsFuncionario("nome")%></option>
          <%
  rsFuncionario.Movenext
  Wend
  %>
        </select></td>
      <td width="3%">&nbsp;</td>
      <td width="13%">&nbsp; </td>
      <td width="29%"> <input type="submit" name="Submit" value="Pesquisar"> </td>
    </tr>
  </table>
   </FORM>
<%End If%>
<!--#include file="footer.asp"-->
</BODY>
</HTML>

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
Ulissesx

Ulissesx

Postado
  • Autor
Postado

A Linha 81 Cyber é essa aki:

<%
  rs.Close
  Call fecha_conexao
  Set rs = Nothing
Else
%> -- LINHA 81

Eu passei a tarde todo reescrevendo esse codigo mas o erro é sempre o mesmo, a impressao que tenho é o fechando a conexao tá dando algum pau...

Se por exemplo eu removo a busca na tabela principal, deixo p/usuario digitar funciona sem problemas... mas tem que listar todos os funcionarios... sad.gif

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...