Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ADO
 Un "memo" si, dos no.
 Foro Bloqueado  Tema Bloqueado


Autor Temas
lethjo
New Member

España
86 Posts
Mensajes - 20 Jan 2003 :  22:36:45  Ver Perfil  Enviar Email  Visit lethjo's Homepage
Hola.
Tengo una base de datos con varios elementos tipo memo.
Al hacer la lectura, el primer campo memo si lo lee, pero los siguientes no.
¿Qué estoy haciendo mal?
El código es el siguiente:
---------------------------------------
<%response.buffer=true%>
<%
Dim oConn, rs, SQL
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("noticiario.mdb"))
set rs = CreateObject("ADODB.Recordset")
sqltxt="Select * from noticias"
'response.write sqltxt
rs.Open sqltxt, conn
if not rs.eof then
' nos ha devuelto un registro
%>
<BODY BGCOLOR="#003399">
<CENTER>
<TABLE TOPMARGIN="0" LEFTMARGIN="0" BORDER="1" BORDERCOLOR="SILVER">
<TR><TD VALIGN="TOP" ALIGN="CENTER"><FONT FACE="VIVALDI,VERDANA" SIZE="6" COLOR="YELLOW"><% Response.Write rs("titulo") %><FONT SIZE="4"> <BR><% Response.Write rs("fecha") %>
</FONT></TD></TR>
<TR><TD VALIGN="TOP"><FONT FACE="ARIAL,VERDANA" SIZE="3" COLOR="WHITE">
<% Response.write rs("noticia") %>
</FONT></TD></TR></TABLE><P>
<TABLE LEFTMARGIN="0" BORDER="1" BORDERCOLOR="SILVER">
<TR><TD ALIGN="CENTER" VALIGN="TOP"><FONT FACE="VIVALDI,VERDANA" SIZE="6" COLOR="YELLOW">
<% if rs("titulo2")<>"" then Response.write rs("titulo2") end if%>
<BR><FONT SIZE="4">
<% if rs("fecha2")<>"" then Response.write rs("fecha2") end if %>
</FONT></TD></TR>
<TR><TD VALIGN="TOP"><FONT FACE="ARIAL,VERDANA" SIZE="3" COLOR="WHITE">
<% if rs("noticia2")<>"" then Response.write rs("noticia2") end if%>
</FONT></TD></TR>
</TABLE><P>
<TABLE LEFTMARGIN="0" BORDER="1" BORDERCOLOR="SILVER">
<TR><TD ALIGN="CENTER" VALIGN="TOP"><FONT FACE="VIVALDI,VERDANA" SIZE="6" COLOR="YELLOW">
<% if rs("titulo3")<>"" then Response.write rs("titulo3") end if%>
<BR><FONT SIZE="4">
<% if rs("fecha3")<>"" then Response.write rs("fecha3") end if %>
</FONT></TD></TR>
<TR><TD VALIGN="TOP"><FONT FACE="ARIAL,VERDANA" SIZE="3" COLOR="WHITE">
<% if rs("noticia3")<>"" then Response.write rs("noticia3") end if%>
</FONT></TD></TR>
</TABLE>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

8~p

estisusper
New Member


63 Posts
Posted - 20 Feb 2003 :  13:53:00  Ver perfil  Enviar e-mail
En principio debería leerte todas las noticias solo del primer registro, y no leeria nada de los siguientes registros, ya que no te mueves por el recordset.

Si tienes alguna duda, o me explico mal, mandame un mail

Inicio Pagina

nicolas
New Member

España
74 Posts
Posted - 04 Mar 2003 :  20:14:13  Ver perfil  Enviar e-mail
Entiendo que el problema es que no puedes leer dos campos memo del mismos registro. Creo que esto puede ocurrir cuando se combinan dos cosas: 1) Que utilizas la conexión a Access mediante ODBC (en lugar de con OLEDB) y 2) Que no pones los nombres de las columnas en la Select. Cambiando una de las dos cosas debería funcionar

En lugar de "Select * ..." utiliza "Select fecha, noticia.

O en lugar de "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("noticiario.mdb"))"

utiliza: "Provider= Microsoft.Jet.OLEDB.4.0;Data " & _
"Source=" & server.mappath("noticiario.mdb")

Nicolás Sánchez Ruiz
ESI BarcelonaInicio Pagina

lethjo
New Member

España
86 Posts
Posted - 07 Mar 2003 :  02:50:26  Ver perfil  Enviar e-mail  Visit lethjo's Homepage
Después de meses y meses, probando, cambiando, rehaciendo, revisando... por fin ha llegado la noticia adecuada.
Nicolas muchas gracias. El error ha sido subsanado.
La conexión con la Base de Datos es efectiva.

Sinceramente, gracias.

Actualmente, he realizado algunas modificaciones en esta conexión... ahora los campos son distintos, pero en esencia, lo mismo. Fijate en la siguiente respuesta:

Edited by - lethjo on 07 Mar 2003 03:01:10Inicio Pagina

lethjo
New Member

España
86 Posts
Posted - 07 Mar 2003 :  02:59:22  Ver perfil  Enviar e-mail  Visit lethjo's Homepage
Ahora el problema viene por otro lado... y sabe dios por que:

Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

Siendo el error en la linea: Conn.Execute(SQL)

Y a su vez, el SQL:
SQL="INSERT INTO usuarios (nombre, apellido, email, usuario, password) VALUES ('"&nombre&"', '"&apellido&"', '"&email&"', '"&usuario&"', '"&password&"');"

(Aclaración: La linea SQL ocupa una sola línea, valga la redundancia)


Mi X3 supera límites inalcanzables. Las noches se me hacen días, los días noches... no se que demonios pasa... me parece que estoy oxidado...


8~pInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar