Registros

[AnaLuisa]

Hola Tengo el siguiente dilema:

Quiero mostrar los datos de mi BD en forma de lista pero separados por medio de celdas, como si fuera excel o algo asi pero el numero de renglones dependeria directamente del numero de registros que quiero mostrar.

Como lo puedo hacer????

Ojala alguien me pueda ayudar.
Muchas GRACIAS

[a n g e l u s]

HOLA ANITA.

PUEDES HACER LO SIGUIENTE
CONSIDERMOS EN EL EJEMPLO QUE LA TABLA CONTIENE LO SIGUIENTE
NOMBRE, APELLIDO, RUT, DIRECCION

<table border=1>
<tr><td>Nº</td><td>Nombre</td><td>Apellido</td><td>Rut</td><td>Direccion</td></tr>
<%
SQL = "SELECT * FROM TABLA ORDER BY NOMBRE"
SET RS = DB.EXECUTE(SQL)

i = 1
DO WHILE NOT RS.EOF
%>
<tr><td><%=i%></td><td><%=rs("Nombre")%></td><td><%=rs("Apellido")%></td><td><%=rs("Rut")%></td><td><%=rs("Direccion")%></td></tr>

<%
rs.movenext
i = i + 1
loop
%>

ESPERO QUE TE SIRVA

[AnaLuisa]

Muchisimas gracias eso era lo que necesitava.

BYE Cuidate.

[AnaLuisa]

Oye una duda lo puse de la siguiente manera pero no me muestra nada, me lo puedes checar??

<table border=1>
<tr><td>Nº</td><td>Actividad</td><td>Hora Inicio</td><td>Hora Final</td><td>Tiempo Programado</td></tr>
<%SQL="SELECT * FROM actividades WHERE clavearea='"&area&"' AND claveproceso='"&proceso&"' AND fecha='"&fecha&"' ORDER BY fecha"
'Set Conn=Server.CreateObject("ADODB.Connection")
'Conn.Open "DSN=actividades;uid=actividades;pwd=actividad es"
Set RC=Conn.Execute(SQL)
i = 1
DO WHILE NOT RC.EOF
%>
<tr><td><%=i%></td><td><%=rc("actividad")%></td><td><%=rc("horainicio")%></td><td><%=rc("horafinal")%></td><td><%=rc("tiempoprog")%></td></tr>
<%
rc.movenext
i = i + 1
loop

Por Favor

[mc_quake]

anita mira este ejemplo alomejor te puede ayudar

SQL="SELECT * FROM actividades WHERE clavearea='"&area&"' AND claveproceso='"&proceso&"' AND fecha='"&fecha&"' ORDER BY fecha"

fCount = Registros.Fields.Count - 1 ' se coloca -1 por que empieza a contar de 0
Response.Write "<table border=1><tr bgcolor='#D8ECFC'>"

for i=0 to fCount
Response.Write "<th><font color=#0000FF size=1 face=Trebuchet MS><strong>" & Registros(i).name & "</strong></font></th>"
next
Response.Write "</tr>"
While Not Registros.EOF
Response.Write "<tr>"
for i=0 to fCount
Response.Write "<td><font color=#0000FF size=1 face=Trebuchet MS>" & Registros(i).value & "</font></td>"
next
Response.Write "</tr>"
Registros.MoveNext
Wend
Response.Write "</table>"

y deacurdo a la revision de tu codigo :

<table border=1>
<tr>
<td>Nº</td>
<td>Actividad</td>
<td>Hora Inicio</td>
<td>Hora Final</td>
<td>Tiempo Programado</td>
</tr>
<% SQL="SELECT * FROM actividades WHERE clavearea='"&area&"' AND claveproceso= '"&proceso&"' AND fecha='"&fecha&"' ORDER BY fecha"
'Set Conn=Server.CreateObject("ADODB.Connection")
'Conn.Open "DSN=actividades;uid=actividades;pwd=actividad es"
Set RC=Conn.Execute(SQL)
i = 1
DO WHILE NOT RC.EOF
%>
<tr>
<td><%=i%></td>
<td><%=rc("actividad")%></td>
<td><%=rc("horainicio")%></td>
<td><%=rc("horafinal")%></td>
<td><%=rc("tiempoprog")%></td>
</tr>
<%
i = i + 1
rc.movenext
Loop

si no funciona talves sea por problemas con el campo fecha que estas consultando

[a n g e l u s]

Iniciado por AnaLuisa

Oye una duda lo puse de la siguiente manera pero no me muestra nada, me lo puedes checar??

<table border=1>
<tr><td>Nº</td><td>Actividad</td><td>Hora Inicio</td><td>Hora Final</td><td>Tiempo Programado</td></tr>
<%SQL="SELECT * FROM actividades WHERE clavearea='"&area&"' AND claveproceso='"&proceso&"' AND fecha='"&fecha&"' ORDER BY fecha"
'Set Conn=Server.CreateObject("ADODB.Connection")
'Conn.Open "DSN=actividades;uid=actividades;pwd=actividad es"
Set RC=Conn.Execute(SQL)
i = 1
DO WHILE NOT RC.EOF
%>
<tr><td><%=i%></td><td><%=rc("actividad")%></td><td><%=rc("horainicio")%></td><td><%=rc("horafinal")%></td><td><%=rc("tiempoprog")%></td></tr>
<%
rc.movenext
i = i + 1
loop

Por Favor

HOLA ANITA.

verifica en tu base de datos como estas ingresando los datos de la fecha, si esta como fecha, para hacer tu consulta sql es necesario que lo hagas de esta manera:

fecha=#"&fecha&"#

donde los gatos identifican un dato de tipo fecha

y deberia quedar asi
SQL="SELECT * FROM actividades WHERE clavearea='"&area&"' AND claveproceso='"&proceso&"' AND fecha=#"&fecha&"# ORDER BY fecha"

espero que te sirva

[ElAprendiz]

si no te muestra nada es por que la consulta no encontro registros
pon esto antes del do while para que no te tire un error si se da este caso

if not rs.eof then
DO WHILE NOT RC.EOF
%>
<tr><td><%=i%></td><td><%=rc("actividad")%></td><td><%=rc("horainicio")%></td><td><%=rc("horafinal")%></td><td><%=rc("tiempoprog")%></td></tr>
<%
rc.movenext
i = i + 1
loop
else
response.write "no se encontraron registros"
end if

[AnaLuisa]

Muchas Gracias a todos, haciendo una mescolanza de sus respuestas ya pude solucionar mi problema.

Gracias

[AnaLuisa]

Oigan si quiero poner un vinculo a estos registros que muestro, como lo puedo hacer???

[ElAprendiz]

<tr><td><%=i%></td><td><a href="link.asp"><%=rc("actividad")%></a></td><td><%=rc("horainicio")%></td><td><%=rc("horafinal")%></td><td><%=rc("tiempoprog")%></td></tr>

y asi con todos los que necesites

[AnaLuisa]

Gracias por contestarme oiga y en donde le indico a que pagina se a ir????.

[mc_quake]

de acuerdo al codigo de ElAprendiz

<tr><td><%=i%></td><td><a href="link.asp"><%=rc("actividad")%></a></td><td><%=rc("horainicio")%></td><td><%=rc("horafinal")%></td><td><%=rc("tiempoprog")%></td></tr>

usted indica la pagina a la que decea ir en esta linea

<a href="link.asp"><%=rc("actividad")%></a>

mas especificamente en lo marcado con rojo

si deseas al momento de crear el link lo puedes crear pasando variables
ej:

<tr><td><%=i%></td><td><a href="link.asp?Variable=Valor_Variable"><%=rc("actividad")%></a></td><td><%=rc("horainicio")%></td><td><%=rc("horafinal")%></td><td><%=rc("tiempoprog")%></td></tr>

[AnaLuisa]

Gracias por la explicación lo pondre en practica.....

[mc_quake]

de nada cuando gustes

[AnaLuisa]

Una preguntota ya tengo asi el link que antes ustedes me ayudaron a hacer pero ¿Como puedo cambiar el color con el que aparece en mi pagina? segun yo ya le asigne el blanco pero no me la hace.

<td><font color="#000000" face="Georgia, Times New Roman, Times, serif"><a href="Modificaciones.asp"><%=rc("actividad")%></a></font></td>

[mc_quake]

por que no pruebas poniendo toda esa linea en asp

<%<td><font color=#000000 face=Georgia, Times New Roman, Times, serif"><a href=Modificaciones.asp>rc("actividad") </a></font></td>%>

[ElAprendiz]

es #FFFFFF. o como diria un fanatico "efecientos efenta y efe mil efecientos efenta y efe"

[AnaLuisa]

aaaaaaaaaaaa gracias, muchas gracias.

[AnaLuisa]

me manda el siguiente error:

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0400)
Se esperaba una instrucción
/cfe/TMP7zcnzx9gs7.asp, línea 173
<td><font color=#ffffff face=Georgia, Times New Roman, Times, serif"><a href=Modificaciones.asp>rc("actividad") </a></font></td>

[ElAprendiz]

es
<td><font color=#ffffff face=Georgia, Times New Roman, Times, serif"><a href=Modificaciones.asp><%=rc("actividad")%> </a></font></td>

o
<%
response.write "<td><font color=""#ffffff"" face=""Georgia, Times New Roman, Times, serif""><a href=""Modificaciones.asp"">"&rc("actividad")&"</a></font></td>"
%>


saludos

[AlZuwaga]

por un lado, hay que ser un poco más específico (mc_quake)
por el otro, si es que mc_quake utilizó un pseudo código, no hay que copiar y pegar solamente sino analizar un poco también (AnaLuisa)

en todo caso sería así:

Código:

<%response.write "<td><font color=#000000 face=Georgia, Times New Roman, Times, serif><a href=Modificaciones.asp>" & rc("actividad") & "</a></font></td>"%>

[AnaLuisa]

Si lo analice y vi que es el mismo que yo habia puesto solo moviendo los simbolos de scrip de ASP, no crea que no lo hice.

Gracias.

[Myakire]

Iniciado por AnaLuisa

Si lo analice y vi que es el mismo que yo habia puesto solo moviendo los simbolos de scrip de ASP, no crea que no lo hice.

Gracias.

Una de dos amigo A_Z: O te sentiste importante o más viejo