Jump to content

  2. →
  3. →

Photo

Erro Ao Tentar Exibir Algum Registro Inexistente

Started By Paulo Márcio, 08/05/2008, 16:51

  • Faça o login para participar
1 reply to this topic

#1 Paulo Márcio

Paulo Márcio

    Novato no fórum

  • Usuários
  • 1 posts
  • Sexo:Não informado

Posted 08/05/2008, 16:51

Preciso da ajuda vocês, pois mesmo sabendo que preciso inserir um IF antes do select para verificar se o registro existe ou não no bd, nao estou conseguindo.

E me retorna o seguinte erro: "Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record."


Segue codigo

[codebox]<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/mapa.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' *** Delete Record: construct a sql delete statement and execute it

If (CStr(Request("MM_delete")) = "alterar" And CStr(Request("MM_recordId")) <> "") Then

If (Not MM_abortEdit) Then
' execute the delete
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_mapa_STRING
MM_editCmd.CommandText = "DELETE FROM dados WHERE empresa = ?"
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 200, 1, 50, Request.Form("MM_recordId")) ' adVarChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "editarDadosDetalhes.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If

End If
%>
<%
Dim RsDados__MMColParam
RsDados__MMColParam = "1"
If (Request.QueryString("sigla") <> "") Then
RsDados__MMColParam = Request.QueryString("sigla")
End If
%>
<%
Dim RsDados
Dim RsDados_cmd
Dim RsDados_numRows

Set RsDados_cmd = Server.CreateObject ("ADODB.Command")
RsDados_cmd.ActiveConnection = MM_mapa_STRING
RsDados_cmd.CommandText = "SELECT * FROM dados WHERE sigla = ?"
RsDados_cmd.Prepared = true
RsDados_cmd.Parameters.Append RsDados_cmd.CreateParameter("param1", 200, 1, 50, RsDados__MMColParam) ' adVarChar

Set RsDados = RsDados_cmd.Execute
RsDados_numRows = 0
%>


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR...nsitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><:> INSERIR DADOS <:></title>
<link href="styles.css" rel="stylesheet" type="text/css" />
&lt;script src="SpryAssets/SpryValidationTextField.js" type="text/javascript"></script>
&lt;script src="SpryAssets/SpryValidationTextarea.js" type="text/javascript"></script>
<link href="SpryAssets/SpryValidationTextField.css" rel="stylesheet" type="text/css" />
<link href="SpryAssets/SpryValidationTextarea.css" rel="stylesheet" type="text/css" />
</head>

<body class="text4">
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="alterar" id="alterar">
<table width="100%" border="0" cellpadding="2" cellspacing="0">
<tr>
<td colspan="2" align="center" valign="middle" class="tabelaTitulo2"><div align="center"> E X C L U S Ã O   D E   E M P R E S A S</div></td>
</tr>
<tr>
<td width="20%" valign="top" class="tabelaTitulo">EMPRESA</td>
<td width="80%" valign="top" class="tabelaDados"><span id="empresa">
<input name="empresa" type="text" class="text5" id="empresa" value="<%=(RsDados.Fields.Item("empresa").Value)%>" size="60" maxlength="50" />
<span class="textfieldRequiredMsg">campo obrigatório</span><span class="textfieldInvalidFormatMsg">Invalid form</span></span></td>
</tr>
<tr>
<td valign="top" class="tabelaTitulo">CONTATO</td>
<td valign="top" class="tabelaDados"><span id="sprytextfield4">
<input name="contato" type="text" class="text5" id="contato" value="<%=(RsDados.Fields.Item("contato").Value)%>" />
<span class="textfieldRequiredMsg">campo obrigatório.</span><span class="textfieldInvalidFormatMsg">campo obrigatório.</span></span></td>
</tr>
<tr>
<td valign="top" class="tabelaTitulo">WEBSITE</td>
<td valign="top" class="tabelaDados"><span id="sprytextfield7">
<input name="website" type="text" class="text5" id="website" value="<%=(RsDados.Fields.Item("website").Value)%>" size="50" maxlength="45" />
<span class="textfieldInvalidFormatMsg">formato inválido.</span> </span></td>
</tr>
<tr>
<td valign="top" class="tabelaTitulo">TELEFONE</td>
<td valign="top" class="tabelaDados"><span id="telefone1"><span class="textfieldRequiredMsg">campo obrigatório.</span><span class="textfieldInvalidFormatMsg">formato inválido.</span><span class="textfieldMinCharsMsg">telefone inválido.</span><span class="textfieldMaxCharsMsg">telefone inválido.</span></span><span id="sprytextfield12">
<input name="telefone" type="text" class="text5" id="telefone" value="<%=(RsDados.Fields.Item("telefone").Value)%>" size="15" maxlength="10" />
<span class="textfieldRequiredMsg">campo obrigatório.</span><span class="textfieldInvalidFormatMsg">formato inválido.</span><span class="textfieldMinCharsMsg">telefone inválido.</span></span></td>
</tr>
<tr>
<td valign="top" class="tabelaTitulo">CARGO</td>
<td valign="top" class="tabelaDados"><span id="sprytextfield5">
<input name="cargo" type="text" class="text5" id="cargo" value="<%=(RsDados.Fields.Item("cargo").Value)%>" />
<span class="textfieldRequiredMsg">campo obrigatório.</span><span class="textfieldInvalidFormatMsg">Invalid format.</span></span></td>
</tr>
<tr>
<td valign="top" class="tabelaTitulo">SETOR</td>
<td valign="top" class="tabelaDados"><span id="sprytextfield6">
<input name="setor" type="text" class="text5" id="setor" value="<%=(RsDados.Fields.Item("setor").Value)%>" size="50" maxlength="45" />
<span class="textfieldRequiredMsg">campo obrigatório.</span><span class="textfieldInvalidFormatMsg">Invalid format.</span></span></td>
</tr>
<tr>
<td valign="top" class="tabelaTitulo">EMAIL</td>
<td valign="top" class="tabelaDados"><span id="email"><span class="textfieldRequiredMsg">campo obrigatório.</span><span class="textfieldMinCharsMsg">formato inválido.</span><span class="textfieldMaxCharsMsg">formato inválido.</span><span class="textfieldInvalidFormatMsg">formato inválido.</span></span><span id="sprytextfield11">
<input name="email" type="text" class="text5" id="email" value="<%=(RsDados.Fields.Item("email").Value)%>" />
<span class="textfieldRequiredMsg">campo obrigatório.</span><span class="textfieldInvalidFormatMsg">email inválido.</span></span></td>
</tr>
<tr>
<td valign="top" class="tabelaTitulo">NÚMERO DE VIDAS</td>
<td valign="top" class="tabelaDados"><span id="sprytextfield8">
<input name="numeroVidas" type="text" class="text5" id="numeroVidas" value="<%=(RsDados.Fields.Item("numeroVidas").Value)%>" size="9" maxlength="7" />
<span class="textfieldInvalidFormatMsg">somente números.</span> </span></td>
</tr>
<tr>
<td valign="top" class="tabelaTitulo">POTENCIAL EM VIDAS</td>
<td valign="top" class="tabelaDados"><span id="sprytextfield9">
<input name="potencialVidas" type="text" class="text5" id="potencialVidas" value="<%=(RsDados.Fields.Item("potencialVidas").Value)%>" size="9" maxlength="7" />
<span class="textfieldInvalidFormatMsg">somente números.</span> </span></td>
</tr>
<tr>
<td valign="top" class="tabelaTitulo">PLANO ATUAL</td>
<td valign="top" class="tabelaDados"><span id="sprytextfield10">
<input name="planoAtual" type="text" class="text5" id="planoAtual" value="<%=(RsDados.Fields.Item("planoAtual").Value)%>" size="50" maxlength="45" />
</span></td>
</tr>
<tr>
<td valign="top" class="tabelaTitulo">HISTÓRICO DE VISITAS</td>
<td valign="top" class="tabelaDados"><span id="sprytextarea1">
<textarea name="historicoVisitas" cols="50" rows="5" class="text5" id="historicoVisitas"><%=(RsDados.Fields.Item("historicoVisitas").Value)%></textarea>
</span></td>
</tr>
<tr>
<td class="tabelaTitulo"> </td>
<td class="tabelaDados"> </td>
</tr>
<tr>
<td class="tabelaTitulo"> </td>
<td class="tabelaDados"><input name="button" type="submit" class="text3" id="button" value="APAGAR REGISTRO" />
<input name="button2" type="reset" class="text3" id="button2" value="LIMPAR DADOS" /></td>
</tr>
<tr>
<td class="tabelaTitulo"> </td>
<td class="tabelaDados"> </td>
</tr>
<tr>
<td class="tabelaTitulo"> </td>
<td class="tabelaDados"> </td>
</tr>
</table>
<input type="hidden" name="MM_delete" value="alterar" />
<input type="hidden" name="MM_recordId" value="<%= RsDados.Fields.Item("empresa").Value %>" />
</form>
<p> </p>
&lt;script type="text/javascript">
<!--
var sprytextfield2 = new Spry.Widget.ValidationTextField("empresa", "custom", {useCharacterMasking:true, validateOn:["blur"]});
var sprytextfield3 = new Spry.Widget.ValidationTextField("email", "email", {minChars:45, maxChars:40, validateOn:["blur"]});
var sprytextfield4 = new Spry.Widget.ValidationTextField("sprytextfield4", "custom", {useCharacterMasking:true, validateOn:["blur", "change"], isRequired:false});
var sprytextfield5 = new Spry.Widget.ValidationTextField("sprytextfield5", "custom", {useCharacterMasking:true, validateOn:["blur", "change"], isRequired:false});
var sprytextfield6 = new Spry.Widget.ValidationTextField("sprytextfield6", "custom", {validateOn:["blur", "change"], isRequired:false});
var sprytextfield7 = new Spry.Widget.ValidationTextField("sprytextfield7", "url", {isRequired:false, validateOn:["blur"]});
var sprytextfield8 = new Spry.Widget.ValidationTextField("sprytextfield8", "integer", {isRequired:false, validateOn:["blur"], useCharacterMasking:true});
var sprytextfield9 = new Spry.Widget.ValidationTextField("sprytextfield9", "integer", {isRequired:false, validateOn:["blur"], useCharacterMasking:true});
var sprytextfield10 = new Spry.Widget.ValidationTextField("sprytextfield10", "none", {isRequired:false, validateOn:["blur"]});
var sprytextarea1 = new Spry.Widget.ValidationTextarea("sprytextarea1", {isRequired:false, validateOn:["blur"]});
var sprytextfield11 = new Spry.Widget.ValidationTextField("sprytextfield11", "email", {validateOn:["blur"], isRequired:false});
var sprytextfield1 = new Spry.Widget.ValidationTextField("telefone1", "integer", {minChars:9, maxChars:10});
var sprytextfield12 = new Spry.Widget.ValidationTextField("sprytextfield12", "integer", {validateOn:["blur"], useCharacterMasking:true, minChars:9, isRequired:false});
//-->
</script>
</body>
</html>
<%
RsDados.Close()
Set RsDados = Nothing
%>[/codebox]

#2 gUiTaR_mAn

gUiTaR_mAn

    Programador ASP

  • Usuários
  • 431 posts
  • Sexo:Masculino
  • Localidade:Gaspar - SC

Posted 09/05/2008, 09:18

Coloca issu antes de rescatar os registros:

If seu_recordset.EOF Then
response.write("Não há registros")
else

'mostra os seus registros

End if

vlw (y)

Edição feita por: gUiTaR_mAn, 09/05/2008, 09:19.

MegaClassi.com.br
Seu próximo veículo está aqui.
Voltar para ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq