Erro 800a0bcd

maurohpg · Junho 10, 2005

Que erro seria esse???só dá esse erro depois que eu coloco para repetir a região.ADODB.Field error '800a0bcd' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /site/site/eventos/excluir.asp, line 133 linha 133 <input type="hidden" name="MM_recordId" value="<%= RSeventos.Fields.Item("id").Value %>">

Marcelo Barcellos · Junho 10, 2005

Seu recordset está vazio.

maurohpg · Junho 10, 2005

Meu código está assim:

Poderia me ajudar???

ASP

[*]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

[*]

[*]<%

[*]' *** Edit Operations: declare variables

[*]

[*]Dim MM_editAction

[*]Dim MM_abortEdit

[*]Dim MM_editQuery

[*]Dim MM_editCmd

[*]

[*]Dim MM_editConnection

[*]Dim MM_editTable

[*]Dim MM_editRedirectUrl

[*]Dim MM_editColumn

[*]Dim MM_recordId

[*]

[*]Dim MM_fieldsStr

[*]Dim MM_columnsStr

[*]Dim MM_fields

[*]Dim MM_columns

[*]Dim MM_typeArray

[*]Dim MM_formVal

[*]Dim MM_delim

[*]Dim MM_altVal

[*]Dim MM_emptyVal

[*]Dim MM_i

[*]

[*]MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

[*]If (Request.QueryString <> "") Then

[*] MM_editAction = MM_editAction & "?" & Request.QueryString

[*]End If

[*]

[*]' boolean to abort record edit

[*]MM_abortEdit = false

[*]

[*]' query string to execute

[*]MM_editQuery = ""

[*]%>

[*]<%

[*]' *** Delete Record: declare variables

[*]

[*]if (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) <> "") Then

[*]

[*] MM_editConnection = MM_globalfood_STRING

[*] MM_editTable = "eventos"

[*] MM_editColumn = "id"

[*] MM_recordId = "" + Request.Form("MM_recordId") + ""

[*] MM_editRedirectUrl = "excluido.asp"

[*]

[*] ' append the query string to the redirect URL

[*] If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

[*] If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

[*] MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

[*] Else

[*] MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

[*] End If

[*]

[*]End If

[*]%>

[*]<%

[*]' *** Delete Record: construct a sql delete statement and execute it

[*]

[*]If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

[*]

[*] ' create the sql delete statement

[*] MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId

[*]

[*] If (Not MM_abortEdit) Then

[*] ' execute the delete

[*] Set MM_editCmd = Server.CreateObject("ADODB.Command")

[*] MM_editCmd.ActiveConnection = MM_editConnection

[*] MM_editCmd.CommandText = MM_editQuery

[*] MM_editCmd.Execute

[*] MM_editCmd.ActiveConnection.Close

[*]

[*] If (MM_editRedirectUrl <> "") Then

[*] Response.Redirect(MM_editRedirectUrl)

[*] End If

[*]

[*]End If

[*]%>

[*]<%

[*]Dim RSeventos

[*]Dim RSeventos_numRows

[*]

[*]Set RSeventos = Server.CreateObject("ADODB.Recordset")

[*]RSeventos.ActiveConnection = MM_globalfood_STRING

[*]RSeventos.Source = "SELECT * FROM eventos ORDER BY id DESC"

[*]RSeventos.CursorType = 0

[*]RSeventos.CursorLocation = 2

[*]RSeventos.LockType = 1

[*]RSeventos.Open()

[*]

[*]RSeventos_numRows = 0

[*]

[*]%>

[*]<%

[*]Dim Repeat1__numRows

[*]Dim Repeat1__index

[*]

[*]Repeat1__numRows = 10

[*]Repeat1__index = 0

[*]RSeventos_numRows = RSeventos_numRows + Repeat1__numRows

[*]%>

[*]<html>

[*]<head>

[*]<title>Documento sem título</title>

[*]<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

[*]</head>

[*]

[*]<body>

[*]<form name="form1" method="POST" action="<%=MM_editAction%>">

[*] <table width="100%" border="0" cellspacing="0" cellpadding="0">

[*] <%

[*]While ((Repeat1__numRows <> 0) AND (NOT RSeventos.EOF))

[*]%>

[*] <tr>

[*] <td width="86%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(RSeventos.Fields.Item("evento").Value)%></font></td>

[*] <td width="14%">

[*] <input type="checkbox" name="checkbox" value="checkbox"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">excluir</font></td>

[*] </tr>

[*] <%

[*] Repeat1__index=Repeat1__index+1

[*] Repeat1__numRows=Repeat1__numRows-1

[*] RSeventos.MoveNext()

[*]Wend

[*]%>

[*] </table>

[*] <input type="submit" name="Submit" value="excluir">

[*] <input type="hidden" name="MM_delete" value="form1">

[*] <input type="hidden" name="MM_recordId" value="<%= RSeventos.Fields.Item("id").Value %>">

[*]</form>

[*]</body>

[*]</html>

[*]<%

[*]RSeventos.Close()

[*]Set RSeventos = Nothing

[*]%>

Marcelo Barcellos · Junho 10, 2005

Eu Odeio o DW........Esse código é do DW não é ???

Cara troque o

ASP

[*]

[*]While ((Repeat1__numRows <> 0) AND (NOT RSeventos.EOF))

[*]

Por

ASP

[*]

[*]While NOT RSeventos.EOF

[*]

maurohpg · Junho 10, 2005

hehehe tb odeio mais preciso fazer uma coisa rápida aqui!DW é horrivel hahah

NucleoZERO · Junho 10, 2005

Só para passar a conhecer...Onde posso fazer o downloads do DW?rs.... É só para fazer comparações entre outros códigos...

dark0 · Junho 10, 2005

Eu Odeio o DW........Esse código é do DW não é ???

<{POST_SNAPBACK}>

Daqui há pouco vão lançar uma campanha contra a POLUIÇÃO VISUAL gerada pelo DW! Vou chamar o GREENPEACE! :D http://forum.imasters.com.br/public/style_emoticons/default/yay.gif

Mas é sério mesmo: é muita coisa desnecessária! Dá uma volta imensa para fazer coisas mais simples... http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

<{POST_SNAPBACK}>

pode ter bastante asneira mesmo..

Mas,se analisar.. essas coisas ajudam bastante os novatos..

para fazer download.. procure no site do fabricante.. a macromedia.

Lá deve ter a versao DEMO ou TRIAL para download, visto que o dw é pago..

ate mais

Salgado · Junho 10, 2005

pode ter bastante asneira mesmo..
Mas,se analisar.. essas coisas ajudam bastante os novatos..

<{POST_SNAPBACK}>

Pode ajudar até a fazer, mas se tiver que corrigir ou acrescentar algumas coisas, ferrou tudo!

maurohpg · Junho 10, 2005

Bom já que estamos aqui conversando sobre isso né vamos lá, eu mexo com o dreamweaver sei mexer no asp mais com ele...mexo tb no código na mãe mais bem pouco, queria saber se alguém pode me indicar um curso ou um livro que ensine e pelo menos eu tenha refêrencia sobre asp. Pois quero começar a mexer com asp sem o dreamweaver mexer na mão mesmo.

maurohpg · Junho 10, 2005

Bom procuro estudar mesmo o código e outra coisa, mesmo colocando <% While NOT RSeventos.EOF%>não funcionou dá o msm erro!

Marcelo Barcellos · Junho 10, 2005

A linha 133 está depois do WEND.

Ou seja, o Recordset está vazio.

Voce terá que tirar

ASP

[*]

[*]<input type="hidden" name="MM_recordId" value="<%= RSeventos.Fields.Item("id").Value %>">

[*]

maurohpg · Junho 14, 2005

Valeu.....deu certinho aqui! valeu!

Arquivado

Erro 800a0bcd

Recommended Posts

maurohpg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Barcellos 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

maurohpg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Barcellos 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

maurohpg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

NucleoZERO 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

dark0 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

maurohpg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

maurohpg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Barcellos 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

maurohpg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante