Fórum Contato
  
   O portal do desenvolvedor ASP Quinta-feira - 5 de Agosto de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 ERRO DE CONSULTA Request.QueryString Atualizado em 24/07/2007 ás 16:40:00

Postado em 24/07/2007 ás 10:17:00

OLÁ PESSOAL, TO COM UM ERRO AQUI MUITO ESTRANHO
É O SEGUINTE NÃO MOSRA MENSAGEM DE ERRO ALGUMA, TENHO UMA LISTA COM TODOS OS MEUS REGISTROS NA BASE DE DADOS, COM UM LINK PRA UMA PAGINA ONDE É CARREGADO TODOS OS DADOS DO RESPECTIVO REGISTRO, MAS ESTA TENDO UM CONFLITO,


EX. EU CLICO NO REGISTRO DO FABIO, E AO INVÉS DE CARREGAR OS DADOS DO FABIO CARREGA DE OUTRA PESSOA, NÃO TO ENTENDENDO ISTO.


ALGUNS REGISTROS FUNCIONAM PERFEITAMENTE MAS OUTROS NÃO, E EU NÃO CREIO QUE SEJA ERRO DE SCRIPT SE NÃO APARECERIA O ERRO E NÃO GERARIA A CONSULTA.


ALGUEM SABE ME EXPLICAR OBRIGADO



Postado em 24/07/2007 ás 16:40:00

Página q imprime:


strSQL = strSQL & "WHERE Estivadores.cod_est =" & FichaAtual


Tenta mudar sua linha de consulta para a acima.

Abs!


Alexandre de Luccia

=========================
A sorte se deixa vencer mais pelos audaciosos do que pelos prudentes.



Topo

Postado em 24/07/2007 ás 14:19:00

TA O CÓDIGO AI...



1º PAGINA QUE EXIBE TODOS OS REGISTROS


<%
Option Explicit
%>
<!--#Include file="conexao.inc"-->
<%
Response.Expires = 0
DIM conexaodb, RsTodosEstivadores, strSQL
Call AbreConexao



strSQL = "SELECT * "
strSQL = strSQL & "FROM Estivadores "
strSQL = strSQL & "ORDER BY Estivadores.nome_paciente_est asc "


Set RsTodosEstivadores = conexaodb.Execute(strSQL)
%>


<html>
<head>


<title>Lista Completa de Estivadores</title>
<link rel=stylesheet href="CSS_Estiva.css" type="text/css">


</head>


<body bgcolor="#FFFFFF">


 



<table border="1" cellpadding="-3" cellspacing="-3">


 <table border="1"  cellpadding="-3" cellspacing="-3">
 <tr>
  
 </tr>
  <tr>
   
  </tr>
  <table border="1"  cellpadding="-3" cellspacing="-3">
  <tr>
  <td width="300">Paciente</td>
  <td width="200">Nº Ficha Clinica</td>
  <td width="200">Dentista</td>
  <td width="50">Atualizar</td>
  <td width="50">Excluir</td>
  </tr>
  <tr>
  <%
  Do While Not RsTodosEstivadores.Eof
  %>
  
  <td><% = RsTodosEstivadores.Fields("nome_paciente_est") %></td>
  <td><% = RsTodosEstivadores.Fields("n_ficha_est") %></td>
  <td><% = RsTodosEstivadores.Fields("dentista_est") %></td>
  
  <td><center><a href='ficha_completa_estiva.asp?id=<% = RsTodosEstivadores.Fields("cod_est") %>'><img src="imagens/AtualizaGIF.gif" alt="Visualizar e Atualizar Registro"></a></center></td>
  <td><center><a href='valida_delete_estiva.asp?idDELETE=<% = RsTodosEstivadores.Fields("cod_est") %>'><img src="imagens/DeleteGIF.gif" alt="Excluir Registro"></a></center></td>
  </tr>
  
  <%
  RsTodosEstivadores.MoveNext
  loop
  %>
  </table>
  </td>
   </tr>
  </table>
  </td>
  </tr>
</table>
</body>
</html>


<%
RsTodosEstivadores.Close
Call FechaConexao
Set RsTodosEstivadores = Nothing
%>


2º PAGINA QUE IMPRIME OS DADOS DENTRO DE UM FORMULARIO PARA FAZER O UPDATE SE FOR NECESSARIO.


<%
Option Explicit
%>
<!--#Include file="conexao.inc"-->
<%
DIM conexaodb, RsEstivadores, strSQL, FichaAtual
FichaAtual=(Request.QueryString("id"))


strSQL = "SELECT * "
strSQL = strSQL & "FROM Estivadores "
strSQL = strSQL & "WHERE Estivadores.cod_est LIKE '%" & FichaAtual & "%' "


Call AbreConexao
Set RsEstivadores = conexaodb.Execute(strSQL)
%>


<html>
<head>


<title> Estivadores Ficha Clinica Compelta</title>
<link rel=stylesheet href="CSS_Estiva.css" type="text/css">


</head>


<body bgcolor="#FFFFFF">
<div id="Formulario"> 
 <form name="formEstiva" method="post" action="valida_update_estiva.asp">



 
 <p>
 <label id="Nficha">Nº F. Clínica: </label>
 <input name="txtNficha_est" type="text" id="Nficha" value="<% = RsEstivadores.Fields("n_ficha_est") %>">
 </p>
 
 
 <p>
 <label id="Paciente">Paciente: </label>
 <input name="txtNome_Paciente_est" type="text" id="Paciente" value="<% = RsEstivadores.Fields("nome_paciente_est") %>" maxlength="149">
 </p>
 
 <p>
 <label id="Titular">Titular: <em class="required">(Obrigatório)</em></label>
 <input name="txtNome_Titular_est" type="text" id="Titular" value="<% = RsEstivadores.Fields("nome_titular_est") %>" maxlength="149">
 </p>
 
 <p>
 <label id="Dependente">Dependente: <em class="required">(Obrigatório)</em></label>
 <input name="txtDependente_est" type="text" id="Dependente" value="<% = RsEstivadores.Fields("dependente_est") %>" maxlength="49">
 </p>
 
 <p>
 <label id="INSCR">INSCR: <em class="required">(Obrigatório)</em></label>
 <input name="txtINSCR_est" type="text" id="INSCR" value="<% = RsEstivadores.Fields("inscr_est") %>" maxlength="14">
 </p>
 
 <p>
 <label id="End">Endereço: <em class="required">(Obrigatório)</em></label>
 <input name="txtEnd_est" type="text" id="End" value="<% = RsEstivadores.Fields("end_est") %>" maxlength="254">
 </p>
 
 <p>
 <label id="Bairro">Bairro: <em class="required">(Obrigatório)</em></label>
 <input name="txtBairro_est" type="text" id="Bairro" value="<% = RsEstivadores.Fields("bairro_est") %>" maxlength="49">
 </p>
 
 <p>
 <label id="Cidade">Cidade: <em class="required">(Obrigatório)</em></label>
 <input name="txtCidade_est" type="text" id="Cidade" value="<% = RsEstivadores.Fields("cidade_est") %>" maxlength="49">
 </p>
  
 
 <p>
 <label id="CEP">CEP: <em class="required">(Obrigatório)</em></label>
 <input name="txtCep_est" type="text" id="CEP" value="<% = RsEstivadores.Fields("cep_est") %>" maxlength="9">
 </p>
 
 <p>
 <label id="TEL">Telefone: <em class="required">(Obrigatório)</em></label>
 <input name="txtTelefone_est" type="text" id="TEL" value="<% = RsEstivadores.Fields("tel_est") %>" maxlength="20">
 </p>
 
 <p>
 <label id="CPF">CPF: <em class="required">(Obrigatório)</em></label>
 <input name="txtCpf_est" type="text" id="CPF" value="<% = RsEstivadores.Fields("cpf_est") %>" maxlength="19">
 </p>
 
 <p>
 <label id="RG">RG: <em class="required">(Obrigatório)</em></label>
 <input name="txtRg_est" type="text" id="RG" value="<% = RsEstivadores.Fields("rg_est") %>" maxlength="19">
 </p>
 


 
 <p>
 <label id="DataNasc">Dta Nasc: <em class="required">(Obrigatório)</em></label>
 <input name="txtData_Nasc_est" type="text" id="DataNasc" value="<% = RsEstivadores.Fields("data_nasc_est") %>" maxlength="14">
 </p>
 
 
 <p>
   <label id="Procedimento">Procedimentos (Ex. Restauração 25 / Canal 27)</label>
   <textarea name="txtProcedimento_est" id="Procedimento"> <% = RsEstivadores.Fields("procedimentos_est") %></textarea>
   </p>
 
 
 <p>
 <label id="DataInico">Data de Inicio Tratamento: <em class="required">(Obrigatório)</em></label>
 <input name="txtData_Inicio_est" type="text" id="DataInicio" value="<% = RsEstivadores.Fields("data_inicio_est") %>" maxlength="14">
 </p>
 
 <p>
 <label id="DataFim">Data de Termino Tratamento: <em class="required">(Obrigatório)</em></label>
 <input name="txtData_Fim_est" type="text" id="DataFim" value="<% = RsEstivadores.Fields("data_fim_est") %>" maxlength="14">
 </p>
 
 
 <p>
 <label id="Dentista">Dentista: <em class="required">(Obrigatório)</em></label>
 <input name="txtDentista_est" type="text" id="Dentista" value="<% = RsEstivadores.Fields("dentista_est") %>" maxlength="149">
 </p>
 
 <p>
 <label id="CRO">CRO: <em class="required">(Obrigatório)</em></label>
 <input name="txtCro_est" type="text" id="CRO" value="<% = RsEstivadores.Fields("cro_est") %>" maxlength="10">
 </p>


 <p>
 <input name="txtCodEst" type="hidden" value="<% = RsEstivadores.Fields("cod_est") %>">
 </p>


 
 



<div id="Botao">
<p>
<input type="submit" value="Atualizar" name="btAtualiza">
</p>
</div>
 


 
</form>
</div>


 


</body>


</html>



<%
RsEstivadores.Close
Call FechaConexao
Set RsEstivadores = Nothing
%>


 


VLW ABRAÇOS



 



Topo

Postado em 24/07/2007 ás 13:36:00

Posta o cód!

Alexandre de Luccia

=========================
A sorte se deixa vencer mais pelos audaciosos do que pelos prudentes.

Topo


Exibindo página 1 de 1 encontradas
SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados