[Resolvido] Erro na Atualização com FCKeditor

klebeer_ · Janeiro 14, 2008

Olá pessoal, dessa vez tenho certeza que será simples para muita gente, esse problema que eu estou agora.

EU NUNCA FIZ uma pagina de ATUALIZAÇÃO e nem usei o FCKeditor, mas graças as pesquisas (Tuto do SilvaExtreme) aqui no fórum o FCKeditor ta funcionando e inserindo beleza, o problema que esta dando é o seguinte:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript

(0x800A000D)

Tipos incompatíveis

/teste/formulario_atualiza.asp, line 49

Vou postar o que eu tenho e peço a vocês para ver se tem erros no código do "atualiza.asp" pq EU NUNCA FIZ, então foi no escuro.....hehe!

Banco de Dados= teste - TABELA= home - CAMPOS= id, texto

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------

formulário_atualiza.asp:

<%@ CodePage="1252" Language="VBScript"%>
<!-- #INCLUDE file="admin/fckeditor.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Atualiza</title>
<style type="text/css">
<!--
a:link {
	font-family: Tahoma;
	color: #0000FF;
	text-decoration: none;
}
a:visited {
	font-family: Tahoma;
	color: #0000FF;
	text-decoration: none;
}
a:hover {
	font-family: Tahoma;
	color: #0000FF;
	text-decoration: underline;
}
a:active {
	font-family: Tahoma;
	color: #0000FF;
	text-decoration: none;
}
-->
</style>
</head>
<body>
<table width="100%" border="1">
  <tr>
	<td width="26%"><div align="center"><a href="default.asp" target="_top">Ver dados na página</a></div></td>
	<td width="26%"> <div align="center"><a href="formulario_inserir.asp">Inserir dados</a></div></td>
	<td width="24%"><div align="center"><a href="formulario_atualiza.asp">Atualizar dados</a></div></td>
	<td width="24%"> </td>
  </tr>
</table>
<br />

<form action="atualiza.asp" method="post" name="txt" id="txt">
<%
Dim sBasePath,  svalordocampo, RecSet
sBasePath = Request.ServerVariables("PATH_INFO")
sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) )
[b][color="#FF0000"]svalordocampo = RecSet("texto")[/color]<---dando erro aqui[/b]
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath	 = "admin/"
oFCKeditor.Value		= svalordocampo
oFCKeditor.Create " TEXTO "
%>
<input type="submit" value="Atualizar o Banco de Dados" />
</form>

</body>
</html>

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------

atualiza.asp:

<%
'Dados contidos na variável
variavel = request.form("TEXTO")

'Chamando o Objeto ADODB.Connection
set cn = Server.CreateObject("ADODB.Connection")
cn.provider= "Microsoft.Jet.OLEDB.4.0"
cn.connectionstring=Server.MapPath("\dados\teste.mdb")
cn.open

'String para o comando SQL a ser executado
SQL = "UPDATE INTO home (texto) Values ('"&variavel&"')"
cn.execute(sql)
cn.close
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Atualiza Dados</title>
<style type="text/css">
<!--
a:link {
	font-family: Tahoma;
	color: #0000FF;
	text-decoration: none;
}
a:visited {
	font-family: Tahoma;
	color: #0000FF;
	text-decoration: none;
}
a:hover {
	font-family: Tahoma;
	color: #0000FF;
	text-decoration: underline;
}
a:active {
	font-family: Tahoma;
	color: #0000FF;
	text-decoration: none;
}
-->
</style>
</head>

<body>
<table width="100%" border="1">
  <tr>
	<td width="26%"><div align="center"><a href="default.asp" target="_top">Ver dados na página</a></div></td>
	<td width="26%"> <div align="center"><a href="formulario_inserir.asp">Inserir dados</a></div></td>
	<td width="24%"><div align="center"><a href="formulario_atualiza.asp">Atualizar dados</a></div></td>
	<td width="24%"> </td>
  </tr>
</table>
<br />
</body>
</html>

Obrigado denovo ai pessoal!!!!

Wallcrawler · Janeiro 14, 2008

No formulário_atualiza, não vi em nenhuma parte do seu código a abertura do recordset "RecSet", nem mesmo uma consulta, pra resgatar o valor do campo texto no banco.

klebeer_ · Janeiro 14, 2008

O problema é esse eu peguei um código ja meio pronto, e como NUNCA USEI o FCKeditor e também NUNCA fiz uma página de atualização, galera eu TÔ MAIS PERDIDO DO QUE AZEITONA EM BOCA DE BANGUELO por favor pessoal se tiver alguem que me de uma força eu agradeceria, é meio que urgente.

Obrigado.

klebeer_

MSN:klebeer_@hotmail.com

klebeer_ · Janeiro 15, 2008

Ok, arrumei o código, mas continua com um erro que eu não to conseguindo resolver, bem vamos la, ver se alguem pode me ajudar!

formulario_atualiza.asp

<body>
<table width="100%" border="1">
  <tr>
	<td width="26%"><div align="center"><a href="default.asp" target="_top">Ver dados na página</a></div></td>
	<td width="26%"> <div align="center"><a href="formulario_inserir.asp">Inserir dados</a></div></td>
	<td width="24%"><div align="center"><a href="formulario_atualiza.asp">Atualizar dados</a></div></td>
	<td width="24%"> </td>
  </tr>
</table>
<%					DIM rshome

					Set rshome = Server.CreateObject("ADODB.Recordset")
					rshome.ActiveConnection = MM_StrCOn_STRING
					rshome.Source = "select * from home order by id asc"
					rshome.CursorType = 3
					rshome.CursorLocation = 3
					rshome.LockType = 2
					rshome.Open()

%>
<form name="texte" id="texte" action="alteracao.asp" method="post">
<p>
<table width="751" border="0" cellspacing="0" cellpadding="0">
  <tr>
	<td><A HREF="<%=MM_movePrev%>">Anterior</A></td>
	<td><A HREF="<%=MM_moveNext%>">Próximo</A></td>
  </tr>
  <tr>
	<td width="74"> </td>
	<td width="677"><label></label></td>
  </tr>
  <tr>
	<td><input name="FRM_ID" type="hidden" id="FRM_ID" value="<%=(rshome.Fields.Item("id").Value)%>"  /></td>
	<td> </td>
  </tr>
</table>

<p> </p>

<%
'Chamando os arquivos para dentro do FCKEditor
sInitialValue = rshome("texto")
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "admin/"
oFCKeditor.value = sInitialValue
oFCKeditor.Create  "TEXTO"
Set oFCKeditor = Nothing
' oFCKeditor.Create "FCKeditor1"
%>

<br />

<input type="submit" value="Gravar" />
</p>
</form>


</body>
</html>

até aqui OK!, o bicho ta pegando aqui, no alteracao.asp

Tipo de erro:

Microsoft JET Database Engine (0x80040E10)

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

/teste/alteracao.asp, line 18

<%
'Dados contidos na variável
'variavel = Server.HTMLEncode(request.form("FCKeditor1"))
variavel = request.form("TEXTO")

'ALTEREI AQUI. PEgo o campo q deixei oculto.
id = request.form("FRM_ID")


'Chamando o Objeto ADODB.Connection
set cn = Server.CreateObject("ADODB.Connection")
cn.provider= "Microsoft.Jet.OLEDB.4.0"
cn.connectionstring=Server.MapPath("\dados\teste.mdb")
cn.open

SQL = "UPDATE home SET texto = '"&variavel&"' where registro = "&id&""

cn.execute(sql)
response.Redirect("default.asp")

%>

cn.execute(sql)  '<--AQUI Ó

É isso ai! espero que tenha alguem que possa me ajudar. é URGENTE

klebeer_ · Janeiro 15, 2008

Descupas a todos, eu que marquei no código, no lugar de:

SQL = "UPDATE home SET texto = '"&variavel&"' where registro = "&id&""

o CERTO seria:

SQL = "UPDATE home SET texto = '"&variavel&"' where id ="&id

AGORA SIM, está funcionando. http://forum.imasters.com.br/public/style_emoticons/default/blush.gif http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Obrigado.

Entrar

Arquivado

[Resolvido] Erro na Atualização com FCKeditor

Recommended Posts

klebeer_ 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Wallcrawler 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

klebeer_ 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

klebeer_ 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

klebeer_ 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

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante