Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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">](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"> font-family: Tahoma;
color: #0000FF;
text-decoration: none;
} font-family: Tahoma;
color: #0000FF;
text-decoration: none;
} font-family: Tahoma;
color: #0000FF;
text-decoration: underline;
} 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"><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">](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"> font-family: Tahoma;
color: #0000FF;
text-decoration: none;
} font-family: Tahoma;
color: #0000FF;
text-decoration: none;
} font-family: Tahoma;
color: #0000FF;
text-decoration: underline;
} 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>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
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>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>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
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.
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.