Formato en Vista de Datos

GUAPOBEN · #1 (**permalink**) 19/07/2003, 01:34

Quetal actualmente tengouna pagina que me muestra datos perome los muestra en una tabla pero de la siguiente forma:

Fecha Afiliación Folio Comercio Asignado a:
1/12/02 122222 111 Locos Juanito

Pero lo que yo quiero es que lo haga con formato algo asi:

Fecha : 1/12/02
Afiliación: 122222
Folio : 111
Comercio: Locos
Asignado a: Juanito.

Como le puedo hacer, mi codigo es el siguiente.

<html>
<head>
<style>

</style>
<title>Ver Comercios</title>
<style fprolloverstyle>A:hover {color: #FFCC00; font-weight: bold}
</style>
</head>
<body link="#333399" vlink="#333399" alink="#333399">

 
Comercios por Fecha  

<%
Dim oConn,strSQL, objRS

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("MiBase.mdb"))

strSQL = "SELECT TOP 3 * FROM Comercio ORDER BY Fecha DESC"
Set objRS = oConn.Execute(strSQL)

%>
<div align="center">
<center>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 width="742">
<TR><TD width="97" align="center" bgcolor="#333399">
Fecha</TD>
<TD width="141" align="center" bgcolor="#333399">
Afiliación</TD>
<TD width="120" align="center" bgcolor="#333399">
Folio</TD>
<TD width="189" align="center" bgcolor="#333399">
Comercio</TD>
<TD width="192" align="center" bgcolor="#333399">
Asignado a: </TD> </TR>
<%

while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("Fecha") & "</td><td> " & objRS("Afiliacion") & "</td><td> " & objRS("Folio") &" </td><td> " & objRS("Comercio") &" </td><td> " & objRS("Instalador") &" </td></tr>")
objRS.MoveNext
wend

oConn.Close
set objRS = nothing
set oConn = nothing

%>
</table>
</center>
</div>
</body>
</html>

Me pueden ayudar Mil GRACIAS

GUAPOBEN · #2 (**permalink**) 19/07/2003, 01:36

Seme olvidaba, Que cada registro diferente me lo muestre en una tabla distinta no en la misma ni uno por uno.

Se puede??

De ante mano mil Gracias

AlZuwaga · #3 (**permalink**) 19/07/2003, 12:44

Lo más fácil es que crees una tabla estática con el formato deseado y luego le metas el ASP necesario para que se rellene con sus datos y genere una nueva tabla por cada registro.

Dale, que no es complicado!
Te lo dejo como tarea para el hogar =)

GUAPOBEN · #4 (**permalink**) 21/07/2003, 07:34

No Me salio, Lo estuve intentando y no me salio, alguien me puede ayudar???

GUAPOBEN · #5 (**permalink**) 21/07/2003, 14:54

AYUDENME POR FA¡¡¡¡¡ POR FA¡¡¡¡¡ POR FA¡¡¡¡¡¡¿¿

sander · #6 (**permalink**) 21/07/2003, 15:57

Como aun estas en linea explicame como quieres que aparesca :
asi:
fecha: xxx1er regsitro - xxxx2doregistro - xx3erregistro, etc
afiliacion: xxx1er regsitro - xxxx2doregistro - xx3erregistro, etc
etc

o lo quieres asi:

fecha: xx1er registro
afiliacion xx 1er regsitro

fecha: xxx2do registro
afiliacion: xxx2do registro

fecha: xxx3er registro
afiliacion: xxx3er registro
etc...........

sander · #7 (**permalink**) 21/07/2003, 16:21

bueno como no respondes tengo que irme , pero es muy facil cualquiera de las dos formas, cualquier consulta dejamela aqui que te la atiendo mañana.
Un Saludo

GUAPOBEN · #8 (**permalink**) 22/07/2003, 08:01

Que tal, Sander disculpa que no te alla contestado, pero ya no estaba en linea, Pero agradezco de antemano tu ayuda.

De las dos formas que me indicaste , yo preferiria la segunda opcion, es decir asi:

fecha: xx1er registro
afiliacion xx 1er regsitro

fecha: xxx2do registro
afiliacion: xxx2do registro

fecha: xxx3er registro
afiliacion: xxx3er registro
etc...........

Nuevamente agradezco mucho tu apoyo, y pues para expertos como tu pues ya no es dificil pero pues yo voy empezando y de hecho lo poco que he aprendido de asp es Gracias a gente como tu.

Nuevamente GRACIAS por tu ayuda

univercity · #9 (**permalink**) 22/07/2003, 08:31

No te entiendo, si para eso primero pintas la tabla a tu PINTA, horizontal vertical, como quieras mostrar los datos y en cada celda para arriba o pra abajo vas llamando los campos de tu BD...

No le veo la complicación...

Don Graff · #10 (**permalink**) 22/07/2003, 10:49

el problema de guapoben es de html (como ordenar la tabla)...yo diria que por ahora tiene muy poco que ver con asp...

Don Graff · #11 (**permalink**) 22/07/2003, 10:54

strSQL = "SELECT TOP 3 * FROM Comercio ORDER BY Fecha DESC"
Set objRS = oConn.Execute(strSQL)

while (not objRS.Eof)

<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 width="742">
<TR>
<TD width="97" align="center" bgcolor="#333399">Fecha</TD>
<td>objRS("Fecha")</td>
</tr>
<tr>
<TD width="141" align="center" bgcolor="#333399">Afiliación</TD>
<td>objRS("Afiliacion")</td>
</tr>
<tr>
<TD width="120" align="center" bgcolor="#333399">Folio</TD>
<td>objRS("Afiliacion")</td>
</tr>
<tr>
<TD width="189" align="center" bgcolor="#333399">Comercio</TD>
<td>objRS("Comercio")</td>
</tr>
<tr>
<TD width="192" align="center" bgcolor="#333399">Asignado a: </TD>
<td>objRS("Instalador")</td>
</TR>
</table>

objRS.MoveNext

...sip...quedan un par de detalles pero esos te los dejo a ti para que sigas aprendiendo...

ah!...y una recomendación...consiguete un manual de html...

GUAPOBEN · #12 (**permalink**) 22/07/2003, 12:37

Que tal GRAFF, agradezco tu ayuda.

Sin embargo dejame comentarte que referente a html, no tengo ninguna duda, el problema que me presentaba o que tenia es que no sabia como mandar a llamar los datos de mi base de datos y hacer que me lo arrojara en diferentes tablas en html es decir:

fecha: xx1er registro
afiliacion xx 1er regsitro

fecha: xxx2do registro
afiliacion: xxx2do registro

fecha: xxx3er registro
afiliacion: xxx3er registro
etc...........

Me entiendes, ahora bien, de la forma que tu me lo estas dando lo intente hacer mas de 1 vez sin embargo no pude y por eso pedi ayuda a ustedes, por que no pude hacerlo.

Voy a revisar lo que me pusiste aqui, y en serio que hago todo lo posible por sacar las cosas yo mismo pero no siempre se puede, y yo prefiero preguntar a quedarme callado y no poder segui aprendiendo.

Saludos y muchas GRACIAS por tu ayuda.

¡¡

Mickel · #13 (**permalink**) 22/07/2003, 12:43

<%
Set objRS = oConn.Execute(strSQL)
%>
<div align="center">
<center>
<%
while (not objRS.Eof)
Response.Write("<table><tr><td>Fecha : </td><td> " & objRS("Fecha") & "</td></tr><tr><td>Afiliacion : </td><td> " & objRS("Afiliacion") & "</td></tr><tr><td>Folio : </td><td> " & objRS("Folio") &" </td></tr><tr><td>Comercio: </td><td> " & objRS("Comercio") &" </td></tr><tr><td>Instalador :</td><td> " & objRS("Instalador") &" </td></tr></table> ")
objRS.MoveNext
wend
%>
</center>
</div>
<%
set objrs=nothing
%>

GUAPOBEN · #14 (**permalink**) 23/07/2003, 14:12

Alguien me puede decir por que me manda este error:

Microsoft VBScript compilation error '800a0400'

Expected statement

/bases/prueba.asp, line 48

End If
^

Este es el codigo que e ido cambiando forme me han retroalimentado de hecho practicamente es el codigo de MICKEL que me envio:

<HEAD>
</HEAD>
<BODY>

<%
'Instanciamos y abrimos nuestro objeto conexion
Dim Conn,strSQL, objRS

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Ctro Mensajes.mdb"))

Dim Temp

strSQL = "SELECT TOP 3 * FROM Skytels ORDER BY Fecha DESC"
Set objRS = Conn.Execute(strSQL)

while (not objRS.Eof)

%>

<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 width="742">
<TR>
<TD width="97" align="center" bgcolor="#333399">Fecha</TD>
<td>objRS("Nombre")</td>
</tr>
<tr>
<TD width="141" align="center" bgcolor="#333399">Afiliación</TD>
<td>objRS("Apellido")</td>
</tr>
<tr>
<TD width="120" align="center" bgcolor="#333399">Folio</TD>
<td>objRS("Pin")</td>
</tr>
<tr>
<TD width="189" align="center" bgcolor="#333399">Comercio</TD>
<td>objRS("pal")</td>
</tr>
<tr>
<TD width="192" align="center" bgcolor="#333399">Asignado a: </TD>
<td>objRS("pin")</td>
</TR>
</table>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</BODY>

Alguien me puede ayudar??

Don Graff · #15 (**permalink**) 23/07/2003, 14:20

<td>objRS("Nombre")</td>

eso no va a funcionar, dejalo asi...

<td><%=objRS("Nombre")%></td>

y tambien tienes que cambiar los de apellido, pin, pal, Pin...

Actualizacion:

y porque tienes un END IF si no tienes ningun IF...por eso reclama...

GUAPOBEN · #16 (**permalink**) 24/07/2003, 08:30

Ya hice los cambios que me indicaste Don Graff pero ahora me sale este mensaje.

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/skytel/bases/prueba.asp, line 15

Dice algo como de pocos parametros se esperaba 1??

A que se refiere con eso?

Por cierto por que el apodo Don Draff?

Don Graff · #17 (**permalink**) 24/07/2003, 08:37

...y cual es la linea 15¿...

el apodo¿...es una larga historia...viene de otro apodo (Perro)...luego adopte el nombre de un perro "conocido" aca en mi Chile querido...

GUAPOBEN · #18 (**permalink**) 24/07/2003, 08:46

La que esta en Negrita es la linea 15

<HEAD>
</HEAD>
<BODY>

<%
'Instanciamos y abrimos nuestro objeto conexion
Dim Conn,strSQL, objRS

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Ctro Mensajes.mdb"))

Dim Temp

strSQL = "SELECT TOP 5 * FROM Skytels ORDER BY Fecha DESC"
Set objRS = Conn.Execute(strSQL)

while (not objRS.Eof)

%>

<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 width="742">
<TR>
<TD width="97" align="center" bgcolor="#333399">Fecha</TD>
<td><%=objRS("Nombre")%></td>
</tr>
<tr>
<TD width="141" align="center" bgcolor="#333399">Afiliación</TD>
<td><%objRS("Apellido")%></td>
</tr>
<tr>
<TD width="120" align="center" bgcolor="#333399">Folio</TD>
<td><%=objRS("pin")%></td>
</tr>
<tr>
<TD width="189" align="center" bgcolor="#333399">Comercio</TD>
<td><%=objRS("pal")%></td>
</tr>
<tr>
<TD width="192" align="center" bgcolor="#333399">Asignado a: </TD>
<td><%=objRS("pin")%></td>
</TR>
</table>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
%>
</BODY>

GUAPOBEN · #19 (**permalink**) 24/07/2003, 08:48

Suena interesante la historia de tu Apodo , pero por que de un perro??

Don Graff · #20 (**permalink**) 24/07/2003, 08:55

Cita:

Mensaje Original por GUAPOBEN
La que esta en Negrita es la linea 15
<%
'Instanciamos y abrimos nuestro objeto conexion
Dim Conn,strSQL, objRS

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Ctro Mensajes.mdb"))

Dim Temp

strSQL = "SELECT TOP 5 * FROM Skytels ORDER BY Fecha DESC"
Set objRS = Conn.Execute(strSQL)

while (not objRS.Eof)

%>

...te falta declarar el recordset...

set objRS=createobject("ADODB.Recordset")
strSQL = "SELECT TOP 5 * FROM Skytels ORDER BY Fecha DESC"
Set objRS = Conn.Execute(strSQL)

Don Graff · #21 (**permalink**) 24/07/2003, 08:59

Cita:

Mensaje Original por GUAPOBEN
Suena interesante la historia de tu Apodo , pero por que de un perro??

es que una amiga mia un dia en vez de llamarme por mi nombre me dijo Bobby...como tu comprenderas, ese nombre es bastante usual en las mascotas caninas...desde ese dia pase a ser Bobby para mis amigas y Perro para mis amigos (menos mal porque ver a un hombre llamar a otro Bobby es como...mmm..."raro")...

GUAPOBEN · #22 (**permalink**) 24/07/2003, 09:08

Me manda lo mismo:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/skytel/bases/prueba.asp, line 16

Ya declare el recorset como me lo indicaste pero aun me envia el mismo error en la misma parte nada mas que como aumente la dlclaracin del recorset ahora es la linea 16 y no la 15.

Don Graff · #23 (**permalink**) 24/07/2003, 09:12

Cita:

Mensaje Original por GUAPOBEN
Me manda lo mismo:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/skytel/bases/prueba.asp, line 16

Ya declare el recorset como me lo indicaste pero aun me envia el mismo error en la misma parte nada mas que como aumente la dlclaracin del recorset ahora es la linea 16 y no la 15.

mmm...entonces has lo siguiente...

set objRS=createobject("ADODB.Recordset")
strSQL = "SELECT TOP 5 * FROM Skytels ORDER BY Fecha DESC"
response.write(strSQL)
response.end

y ve como se esta armando la sentencia...

Bluesman74cl · #24 (**permalink**) 24/07/2003, 09:17

Cita:

Mensaje Original por Don Graff

es que una amiga mia un dia en vez de llamarme por mi nombre me dijo Bobby...como tu comprenderas, ese nombre es bastante usual en las mascotas caninas...desde ese dia pase a ser Bobby para mis amigas y Perro para mis amigos (menos mal porque ver a un hombre llamar a otro Bobby es como...mmm..."raro")...

jeejejeeje ...off topic pero en fin... bobby!!! bobby sientate...

Don Graff · #25 (**permalink**) 24/07/2003, 09:20

Cita:

Mensaje Original por Bluesman74cl

jeejejeeje ...off topic pero en fin... bobby!!! bobby sientate...

...pffff...

PD:

Bluesman74cl · #26 (**permalink**) 24/07/2003, 09:22

A todo esto he estado observando el código de guapoweb(creo que asi era ,, perdona)... están trabajando de una forma que no conozco en cuanto a declarar la conexion y usan un (str(sql)) cosa nuebva para mi... expliquense si se puede... grax...

PD: Don Graff eso de que Bobby sea "mmmm Raro" ... te viene en too caso... jejeje broma master...... pasé JAVA... toy listo para la práctica y me voy de acá (de mi trabajo , se entiende)

GUAPOBEN · #27 (**permalink**) 24/07/2003, 09:36

Don Graff, ya no manda error, ahora solo me aparece :

SELECT TOP 5 * FROM Skytels ORDER BY Fecha DESC

en mi pagina, pero ya no manda errores. y no me muetsra mi tabla.
No habra otra forma de hacerlo??

Don Graff · #28 (**permalink**) 24/07/2003, 09:45

Cita:

Mensaje Original por GUAPOBEN
Don Graff, ya no manda error, ahora solo me aparece :

SELECT TOP 5 * FROM Skytels ORDER BY Fecha DESC

en mi pagina, pero ya no manda errores. y no me muetsra mi tabla.
No habra otra forma de hacerlo??

esa era la idea...era para ver si la sentencia estaba siendo bien "armada"...

...estas seguro que en la base de datos hay una tabla Skytels y que dentro de esa tabla hay un campo Fecha...

PD: bluesman...no me digas que eras tú el que le anduvo rogando al profe como 3 semanas para que lo dejara pasar...

PD2:

Bluesman74cl · #29 (**permalink**) 24/07/2003, 09:55

Cita:

Mensaje Original por Don Graff

PD: bluesman...no me digas que eras tú el que le anduvo rogando al profe como 3 semanas para que lo dejara pasar...

PD2:

Off topic.....

No para nada.... aunque ví casos totalmente "patéticos" el caso de una mina a la que le faltó poco para dejarle sus "cositas" en el escritorio... pero el Guatón como es de fierro... la rajó igual.... a mi me fue igual bien un 4.4 en el exámen y listo....

PD: ya pues muchachos expliquense con la forma de conexion y todo eso... es nuevo para mi...

GUAPOBEN · #30 (**permalink**) 24/07/2003, 10:14

GRACIAS por tu ayuda Don Graff, oye ya veo la primer tabla pero me manda el siguiente error:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/skytel/bases/prueba.asp, line 45

Y ahora por que la linea 45 es la sigueinte esta enytre y :

<%
Tabla.MoveNext 
Wend
Tabla.Close
Conexion.Close
%>