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

Tipo De Erro: Adodb.field (0x800a0bcd)

angelolima

Perguntado por angelolima,

 Share

Pergunta

angelolima

angelolima

Postado
Postado

Bom Gente o codígo é esse eu to com o seguinte problema ... Printa o seguinte erro.

Tipo de erro:

ADODB.Field (0x800A0BCD)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/zeus/sistema/atualizar_form.asp, line 208

Alguém pode me ajudar por favor, eu ainda acho q possa ser algo relacionado a permissão !

Abraços e Obrigado

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="Connections/cadastro.asp" -->

<%

MM_editAction = CStr(Request("URL"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Request.QueryString

End If

' record edit

MM_abortEdit = false

' query string

MM_editQuery = ""

%>

<%

' *** Update Record

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

MM_editConnection = MM_cadastro_STRING

MM_editTable = "cadastro_cliente"

MM_editColumn = "cod"

MM_recordId = "" + Request.Form("MM_recordId") + ""

MM_editRedirectUrl = "confirma_atualizacao.asp"

MM_fieldsStr = "obra|value|localizacao|value|categoria|value|data|value|area|value|prazo|value|efetivo|value|foto|value|url|value|descritivo|value"

MM_columnsStr = "obra|',none,''|localizacao|',none,''|categoria|',none,''|data|',none,''|area|',none,''|prazo|',none,''|efetivo|',none,''|foto|',none,''|url|',none,''|descritivo|',none,NULL"

' criar MM_fields e MM_columns arrays

MM_fields = Split(MM_fieldsStr, "|")

MM_columns = Split(MM_columnsStr, "|")

' setar valores do form

For i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))

Next

' query string para 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

End If

%>

<%

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

' sql update

MM_editQuery = "update " & MM_editTable & " set "

For i = LBound(MM_fields) To UBound(MM_fields) Step 2

FormVal = MM_fields(i+1)

MM_typeArray = Split(MM_columns(i+1),",")

Delim = MM_typeArray(0)

If (Delim = "none") Then Delim = ""

AltVal = MM_typeArray(1)

If (AltVal = "none") Then AltVal = ""

EmptyVal = MM_typeArray(2)

If (EmptyVal = "none") Then EmptyVal = ""

If (FormVal = "") Then

FormVal = EmptyVal

Else

If (AltVal <> "") Then

FormVal = AltVal

ElseIf (Delim = "'") Then ' escape quotes

FormVal = "'" & Replace(FormVal,"'","''") & "'"

Else

FormVal = Delim + FormVal + Delim

End If

End If

If (i <> LBound(MM_fields)) Then

MM_editQuery = MM_editQuery & ","

End If

MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal

Next

MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

If (Not MM_abortEdit) Then

' update

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

End If

%>

<%

Dim Recordset1__Cod

Recordset1__Cod = "0"

if (request.querystring("cadastro_cliente") <> "") then Recordset1__Cod = request.querystring("cadastro_cliente")

%>

<%

set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_cadastro_STRING

Recordset1.Source = "SELECT * FROM cadastro_cliente WHERE cod = " + Replace(Recordset1__Cod, "'", "''") + ""

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 3

Recordset1.Open()

Recordset1_numRows = 0

%>

<html>

<head>

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

<title>Zeus Engenharia - Painel Administrativo</title>

<style type="text/css">

<!--

body {

margin-left: 0px;

margin-top: 0px;

margin-right: 0px;

margin-bottom: 0px;

background-repeat: no-repeat;

}

body,td,th {

color: #000000;

}

-->

</style>

<link href="../cs_styles.css" rel="stylesheet" type="text/css">

<style type="text/css">

<!--

a:link {

color: #000000;

}

a:visited {

color: #000000;

}

a:hover {

color: #666666;

}

a:active {

color: #000000;

}

.style2 {color: #D4635C}

-->

</style>

</head>

<body>

<table width="711" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td><div align="left">

<table border="0" cellpadding="0" cellspacing="0" width="712">

<!-- fwtable fwsrc="Untitled" fwbase="slices_admin.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->

<tr>

<td><img src="../slices/spacer.gif" width="318" height="1" border="0" alt=""></td>

<td><img src="../slices/spacer.gif" width="118" height="1" border="0" alt=""></td>

<td><img src="../slices/spacer.gif" width="276" height="1" border="0" alt=""></td>

<td><img src="../slices/spacer.gif" width="1" height="1" border="0" alt=""></td>

</tr>

<tr>

<td><img name="slices_admin_r1_c1" src="../slices/slices_admin_r1_c1.gif" width="318" height="101" border="0" alt=""></td>

<td><img name="slices_admin_r1_c2" src="../slices/slices_admin_r1_c2.gif" width="118" height="101" border="0" alt=""></td>

<td><img name="slices_admin_r1_c3" src="../slices/slices_admin_r1_c3.gif" width="276" height="101" border="0" alt=""></td>

<td><img src="../slices/spacer.gif" width="1" height="101" border="0" alt=""></td>

</tr>

<tr>

<td colspan="3" valign="top"><table width="100%" height="368" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" id="General">

<tr>

<td height="275" background="../slices/slices_admin_r2_c1.gif">

<form method="post" action="<%=MM_editAction%>" name="form1">

<table width="85%" border="0" align="center" cellpadding="2" cellspacing="2">

<tr>

<td><table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="30%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td><p class="tit1 style2">Atualiza&ccedil;&atilde;o de Cadastro de Obras</p>

<p>&nbsp;</p>

<p>&nbsp;</p>

<p>&nbsp;</p>

<p>&nbsp;</p>

<p>&nbsp;</p>

<p>&nbsp;</p>

</td>

</tr>

<tr>

<td class="vesttexto1">Caso haja d&uacute;vidas entre em contato com o suporte t&eacute;cnico. </td>

</tr>

<tr>

<td class="vesttexto1"><div align="center" class="menu1">

<p>&nbsp;</p>

<p>&nbsp;</p>

</div></td>

</tr>

<tr>

<td class="vesttexto1"><div align="center"><span class="menu1"><a href="javascript:history.back(-1)">Voltar</a></span></div></td>

</tr>

</table></td>

<td width="70%">

<table width="100%" border="0" cellspacing="2" cellpadding="2">

<tr>

<td width="29%" class="vesttexto1">Titulo da Obra </td>

<td width="71%" class="vesttexto1"><%=(Recordset1.Fields.Item("obra").Value)%></td>

</tr>

<tr>

<td class="vesttexto1">Localiza&ccedil;&atilde;o</td>

<td class="vesttexto1">&nbsp;</td>

</tr>

<tr>

<td class="vesttexto1">Categoria</td>

<td class="vesttexto1">&nbsp;</td>

</tr>

<tr>

<td class="vesttexto1">Data de Entrega</td>

<td class="vesttexto1">&nbsp;</td>

</tr>

<tr>

<td class="vesttexto1">Area Contru&iacute;da</td>

<td class="vesttexto1">&nbsp;</td>

</tr>

<tr>

<td class="vesttexto1">Prazo de Execu&ccedil;&atilde;o</td>

<td class="vesttexto1">&nbsp;</td>

</tr>

<tr>

<td class="vesttexto1">Efetivo M&eacute;dio</td>

<td class="vesttexto1">&nbsp;</td>

</tr>

<tr>

<td class="vesttexto1">Foto da Obra </td>

<td class="vesttexto1">&nbsp;</td>

</tr>

<tr>

<td class="vesttexto1">Site / Contato </td>

<td class="vesttexto1">&nbsp;</td>

</tr>

<tr>

<td class="vesttexto1">&nbsp;</td>

<td class="vesttexto1">Descritivo</td>

</tr>

<tr>

<td class="vesttexto1">&nbsp;</td>

<td class="vesttexto1"></textarea></td>

</tr>

<tr>

<td class="vesttexto1">&nbsp;</td>

<td class="vesttexto1"><div align="center">

<input name="Submit" type="submit" class="vesttexto1" value="Atualizar">

&nbsp;&nbsp;&nbsp; <input name="Submit2" type="reset" class="vesttexto1" value="Limpar">

</div></td>

</tr>

</table></td>

</tr>

</table></td>

</tr>

</table>

<input type="hidden" name="MM_update" value="true">

</form> </td>

</tr>

</table></td>

<td><img src="../slices/spacer.gif" width="1" height="368" border="0" alt=""></td>

</tr>

</table>

</div></td>

</tr>

</table>

</body>

</html>

<%

Recordset1.Close()

%>

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
angelolima

angelolima

Postado
  • Autor
Postado

E esse erro dá quando tento fazer o delete

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access] Não foi possível excluir items das tabelas especificadas.

/zeus/sistema/listar_todos.asp, line 56

Link para o comentário
Compartilhar em outros sites
  • 0
kuroi

kuroi

Postado
Postado (editado)

Alguém pode me ajudar por favor, eu ainda acho q possa ser algo relacionado a permissão !

nada a ver com permissao. o problema é nessa linha:

Recordset1.Source = "SELECT * FROM cadastro_cliente WHERE cod = " + Replace(Recordset1__Cod, "'", "''") + ""
quando você faz o select, ele não encontra nenhum registro em q o cadastro_cliente seja igual ao Replace(Recordset1__Cod, "'", "''"). e quando chega aqui:
<td width="71%" class="vesttexto1"><%=(Recordset1.Fields.Item("obra").Value)%></td>
ele da erro porque não existe registro selecionado. talvez o probelma seja no quando você passa o valor para o request.querystring("cadastro_cliente") . verifique. ou tente fazer assim: 
<td width="71%" class="vesttexto1"><% If Not RecordSet.EOF Then Response.Write Recordset1.Fields.Item("obra").Value%></td>

E esse erro dá quando tento fazer o delete

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access] Não foi possível excluir items das tabelas especificadas.

/zeus/sistema/listar_todos.asp, line 56

quanto a esse erro, ele não faz parte desse codigo q você postou e sim de outra pagina certo? porque olhei essa linha 56 e la você faz update e não delete. poste o codigo pra gente ver.

Editado por kuroi
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,6k
×
×
  • Criar Novo...