17/07/2002, 11:38
| |||
| |||
| GetRows Hola a todos estoy haciendo una paginación con getrows y esta todo Ok pero ahy dos cosas que no logro, primero ponerle a los datos que salen dentro de la tabla la tipografia que yo quiero Ej. Verdana, y lo otro es como hacer para que la columna de email tenga el enlace para mail La BD es asi nombre, apellido, email, especialidad, pais El codigo se los envio ahora continua...... |
|
17/07/2002, 11:45
| |||
| |||
| Re: GetRows <% Option Explicit Dim pag, iEstado, oConn, SQL, rs, aDatos, iTotal, I, J set oConn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("info.mdb" ) SQL="Select * from dpersonales ORDER BY Apellido" 'Vamos a utilizar el Recordset más eficiente 'CursorType = Forward-Only rs.CursorType = 0 'LockType = Read-Only rs.LockType = 1 'CursorLocation = adUseClient rs.CursorLocation = 3 'Y abrimos el Recordset rs.Open SQL, oConn 'Obtengo los datos con GetRows aDatos = rs.GetRows 'Cierro y limpio objetos ya rs.Close oConn.Close set rs = nothing set oConn = nothing 'Obtengo la página a mostrar de 'la querystring pag = CInt(Request.QueryString("P")) 'Y llamo a PaginarGR iEstado = PaginarGR (10, pag, aDatos) '================================================= ==================================== ' PaginarGR -- Pagina un vector bidimensional ' vector es el vector a paginar, iPag la página a mostrar y iRegsPorPag el nº de ' registros por cada página que queremos. '================================================= ==================================== Function PaginarGR (iRegsPorPag, iPag, vector) ' 'I, J se utilizan para recorrer el vector Dim I, J 'Total de páginas y la página que queremos mostrar Dim iPaginas, iPagActual 'Total de registros, registro en que empezamos y registro en que terminamos Dim iTotal, iComienzo, iFin 'Hallo el total de registros devueltos iTotal = UBound(aDatos,2)+1 'Calculo el numero de páginas que tenemos iPaginas = (iTotal \ iRegsPorPag) 'Si daba decimales, añado una más 'para mostrar los últimos registros if iTotal mod iRegsPorPag > 0 then iPaginas = iPaginas + 1 end if 'Si no es una página válida, comienzo en la primera if iPag < 1 then iPag = 1 end if 'Si es una página mayor al nº de páginas, comienzo en la última if iPag > iPaginas then iPag = iPaginas end if Continua...... |
|
17/07/2002, 11:47
| |||
| |||
| Re: GetRows Response.Write("Página " & iPag & " de " & iPaginas & " (" & iTotal & " registros)<br>") 'Calculo el índice donde comienzo: iComienzo = (iPag-1)*iRegsPorPag 'y donde termino: iFin = iComienzo + (iRegsPorPag-1) 'Si no tengo suficientes registros restantes, 'voy hasta el final if iFin > UBound(vector, 2) then iFin = UBound(vector, 2) end if 'Pinto la tabla Response.Write("<TABLE BORDER=""1"">") for I= iComienzo to iFin Response.Write("<TR>") for J=0 to UBound(vector,1) Response.Write("<TD>" & vector(J,I) & "</TD>") next next Response.Write("</TABLE>") 'Imprimo enlaces, si son necesarios if iPag > 1 then Response.Write("<A HREF=""vermedicos.asp?P="&iPag-1&""">Anterior</A>&nbsp;&nbsp;") end if if iPag < iPaginas then Response.Write("<A HREF=""vermedicos.asp?P="&iPag+ 1&""">Siguiente</A>&nbsp;") end if PaginarGR = 0 End Function '================================================= ==================================== Function Tabla ( vector ) Response.Write("<TABLE BORDER=""1"">") for J=0 to Ubound(vector, 2) Response.Write("<TR>") for I=0 to UBound(vector, 1) Response.Write("<TD>"&vector(I ,J)&"</TD>") next Response.Write("</TR>") next Response.Write("</TABLE>") Tabla = UBound(vector, 2) + 1 End Function 'Tabla %> Gracias de antemano |
|
17/07/2002, 11:48
| ||||
| ||||
| Re: GetRows Pues lo del tipo de letra <font family="verdana"><%=Rs("Nombr e_Campo")%></font> El link <a href="mailto:<%=Rs("Campo_mail") %>">Correo</a> Saludos <center> <a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a> </center> |
|
17/07/2002, 11:59
| |||
| |||
| Re: GetRows Hola urjose, lo que pasa que aquí tengo otra situación con el getrows no tengo por separado los campos para poder ponerle a cada uno como yo quiero lo que tengo es esto: <% Pinto la tabla Response.Write("<TABLE BORDER=""1"">") for I= iComienzo to iFin Response.Write("<TR>") for J=0 to UBound(vector,1) Response.Write("<TD>" & vector(J,I) & "</TD>") next next Response.Write("</TABLE>") %> con respecto a la tipografia le pongo eso y solo me lo toma el la parte donde me da la cantidad de paginas y en Anteriores y Siguientes pero en los datos que se imprimen dentro de la tabla pone la tipografía que quiere. |
|
17/07/2002, 12:04
| |||
| |||
| Re: GetRows Hola yo puedo ayudarte, ya que en ocasiones y cuando al situación lo amerita trabajo con GetRows. Para el Font lo único que tienes que hacer es <font face="Verdana"><%=Vector(j,i)%> </font> Y para el mailto: <a href="mailto:<%=Vector(j,i)%>"> <%=Vector(j,i)%></a> Esto debe funcionar pero por cualquier duda al respecto me dices. Nos vemos |
|
17/07/2002, 12:13
| ||||
| ||||
| Re: GetRows Entonces lo del Font colocalo de forma global Response.Write "<font face='verdana'>" ... 'Aqui todo tu codigo ... Response.Write "</font>" En cuanto a lo del link for J=0 to UBound(vector,1) If Instr(vector(J,I),"@") Then Response.Write("<TD><a href='mailto:" & vector(J,I) & "'>"&vector(J,I) &"</a></TD>") Else Response.Write("<TD>" & vector(J,I) &"</td>") next Saludos <center> <a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a> </center> |
|
17/07/2002, 12:51
| ||||
| ||||
| Re: GetRows mmmm  Como diria Mvalls: Me he comprometido a erradicar el Copy & paste de los foros. Si te fijas hace falta un End If en el código que te di <center> <a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a> </center> |
|
17/07/2002, 13:08
| |||
| |||
| Re: GetRows Un millon de gracias a todos, ya le habia puesto el end if pero lo habia ubicado despues del next, y en realidad va antes del next, por si a alguien mas le sirve lo del link queda asi: for J=0 to UBound(vector,1) If Instr(vector(J,I),"@") Then Response.Write("<TD><a href='mailto:" & vector(J,I) & "'>"&vector(J,I) &"</a></TD>") Else Response.Write("<TD>" & vector(J,I) &"</td>") end if next Con el tema tipografia sigo luchando, es lo mas sencillo de todo y no lo logro Muchas gracias!!!!!!  |
