Mostrar en textarea contenido de combobox

#1 (**permalink**) 03/07/2004, 05:33

Necesito que segun el usuario pinche en uno de las opciones del combo (campo Fecha), se muestre el contenido del campo Noticia en el textarea. A ver si alguien puede ayudarme.

<%
Dim conexion, rs, sql
set conexion=Server.CreateObject("ADODB.Connection")
conexion.open "Provider=Microsoft.jet.oledb.4.0; Data source="&Server.MapPath("../db/db1.mdb")
set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM noticias ORDER BY Fecha DESC"
set rs=conexion.execute(sql)
%>
<form action="" method="post" name="noticias_mod" id="noticias_mod">
<table width="100%" border="0" cellspacing="10">
<tr>
<td><select name="FechaNoticia" id="FechaNoticia" onChange="window.location=this.value">
<option>Elige una noticia</option>
<% while not rs.eof %>
<option value="copia de _admin_n_mod.asp?id=<%=rs.fields("Id")%>"><%=rs("F echa")%></option>
<% rs.movenext
wend %>
</select></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>
<%
'CONCERNIENTE A LA SELECCION
Dim rs2, IdSql, Codigo
set rs2=Server.CreateObject("ADODB.Recordset")

Codigo=Request.QueryString("id")
IdSql="SELECT Noticia FROM noticias WHERE Id=id"
set rs2=conexion.execute(IdSql)
%>

<textarea name="TextoNoticia" cols="35" rows="5" wrap="virtual" id="TextoNoticia"><%=Codigo%><%=rs2("Noticia")%></textarea></td>

</tr>
<tr>
<td> </td>
<td align="right"> <input type="submit" name="Submit" value="Modificar noticia">
<input type="submit" name="Submit2" value="Eliminar noticia">
</td>
</tr>
</table>
</form>

jorel · #2 (**permalink**) 03/07/2004, 20:32

checandolo a simple vista veo que en ninguna parte, haces el request del Id para pasarlo al select ..., lo haces para pasarlo a codigo pero a id no

Código PHP:

  Codigo=Request.QueryString("id") 
IdSql="SELECT Noticia FROM noticias WHERE Id=id" 
set rs2=conexion.execute(IdSql)

o sea falta:

Código PHP:

  id = Request.QueryString("id") 
Codigo=Request.QueryString("id") 
IdSql="SELECT Noticia FROM noticias WHERE Id= "&id&" " 
set rs2=conexion.execute(IdSql)

a ver checalo...

#3 (**permalink**) 16/07/2004, 04:34

Voy a explicar primero bien q es lo q quiero q haga la pagina. Es una pagina para modificar noticias.
En la base de datos tengo tres campos: IdFecha(autonumerico) Fecha(fecha) y Noticia(texto)
Reescribo el codigo ya q lo he estado retocando:

CODIGO:
<body>
<%
Dim conexion, rs, sql, codigo
set conexion=Server.CreateObject("ADODB.Connection")
conexion.open "Provider=Microsoft.jet.oledb.4.0; Data source="&Server.MapPath("../db/db1.mdb")
set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM noticias ORDER BY Fecha DESC"
set rs=conexion.execute(sql)

codigo=Request.QueryString("id")
%>
<form action="" method="get" name="noticias_mod" id="noticias_mod">
<table width="100%" border="0" cellspacing="10">
<tr>
<td><select name="FechaNoticia" id="FechaNoticia" onChange="window.location=this.value">
<option>Elige una noticia</option>
<% while not rs.eof %>
<option value="_admin_n_mod.asp?id=<%=rs("IdFecha")%>"><%= rs("Fecha")%></option>
<% rs.movenext
wend %>
</select></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>
<%
'CONCERNIENTE A LA SELECCION
Dim rs2, IdSql
set rs2=Server.CreateObject("ADODB.Recordset")
IdSql="SELECT * FROM noticias WHERE IdFecha=codigo"
set rs2=conexion.execute(IdSql)
%>

<textarea name="TextoNoticia" cols="35" rows="5" wrap="VIRTUAL" id="TextoNoticia"><%=Codigo%><%=rs2("Noticia")%></textarea></td>
</tr>
<tr>
<td> </td>
<td align="right"><input type="submit" name="Submit" value="Modificar noticia"> ¡

Y el error q me da es:
Tipo de error:
Microsoft JET Database Engine (0x80040E10)
No se han especificado valores para algunos de los parámetros requeridos.
/plantilla/admin/_admin_n_mod.asp, línea 40

Creo q el problema puede radicar en el campo autonumerioc de la base de datos. Algo asi he estado leyendo por foros.

Myakire · #4 (**permalink**) 16/07/2004, 07:59

"SELECT * FROM noticias WHERE IdFecha=codigo"
deberia ser
"SELECT * FROM noticias WHERE IdFecha='"&codigo&"'"

Saludos

#5 (**permalink**) 19/07/2004, 06:42

He hecho lo q me has indicado y me sigue dando un error:

Microsoft JET Database Engine (0x80040E07)
No coinciden los tipos de datos en la expresión de criterios.
/plantilla/admin/_admin_n_mod.asp, línea 40

A ver si me podeis ayudar a salir de este callejon en el que me encuentro.

Gracias a todos por vuestra colaboracion.

Myakire · #6 (**permalink**) 19/07/2004, 10:37

Esto es por que el tipo del campo IdFecha no coincide con lo que codigo contiene.
Verifica que lo que recibes en Request.QueryString("id") sea un dato compatible con ese campo (puedes antes comprobarlo con el analizador de consultas del gestor de base de datos que este utilizando)

Saludos

#7 (**permalink**) 20/07/2004, 07:20

He cambaido esta linea:

codigo=CInt(Request.QueryString("id"))

para transformar id a entero (integer) pero me sigue dando el mismo error.
¿Sabes como transformar este id en autonumerico? ¿Que tipo de dato es el campo autonumerico?¿integer, double,...?

No entedi muy bien lo que me dijiste sobre comprobar el tipo de dato que era. El editor web con el q trabajo es dreamweaver MX.

Myakire · #8 (**permalink**) 20/07/2004, 07:34

Si en tu consulta preguntas con IdFecha=codigo, es de suponer que Request.QueryString("id") (que es con que llenas còdigo), sea una fecha.
Podrias hacer tu consulta asi:
...
WHERE IdFecha=#"&codigo&"#" si codigo es un formato fecha, es decir dd/mm/aaaa.

Un autonumerico es un entero largo.

Saludos