Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Sumar una Columna en asp
 Foro Bloqueado  Tema Bloqueado


Autor Temas
xpopex
Starting Member

Mexico
8 Posts
Mensajes - 23 Aug 2007 :  23:40:43  Ver Perfil  Enviar Email
Hola a todos buenas tardes...

Tengo una pagina en asp la cual me trae datos de una consulta que tengo en Access.

Esta pagina me trae los resultados en una tabla que hice en la pagina de asp, lo que quiero es sumar las columnas de importes que tengo en la tabla, pero no c como, les dejo el codigo para ver si alguien de ustedes me puede ayudar.

Otro dato importante es que los datos de importes estan en Access como texto.

La columna que se genera es

# = Numero de Registros AÑO CREDITO IMPORTE_1 IMPORTE_2

<%@ LCID = 2058 %>
<% Option Explicit %>
<!--#include file="../../../adovbs.inc"-->
<%


Dim objConn1
Set objConn1 = Server.CreateObject("ADODB.Connection")
objConn1.ConnectionString= "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=d:/wwwroot/sistemas/seguros/seguros_1.mdb"
objConn1.Open


Dim objRS1
Set objRS1 = Server.CreateObject("ADODB.Recordset")

objRS1.CursorLocation= adUseClient

objRS1.Open "analitico_intensidad" , objConn1, adOpenStatic


If objRS1.EOF then
Ucase()
End if
%>
<style type="text/css">
<!--
.style21 {font-weight: bold}
.Estilo4 {color: #FF0000}
-->
</style>

<div align="center">
<p><strong>SINIESTROS CAPTURADOS <span class="Estilo4"></span><br />
</strong></p>
</div>
<table id="datos" width="950" style="display:" align="center" border=".1" cellpadding="0" cellspacing="0">
<TR>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> # </B> </TD>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> AÑO </B> </TD>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> CREDITO </B> </TD>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> IMPORTE_1 </B> </TD>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> IMPORTE_2 </B> </TD>
</TR>
<p><%

Dim icuentaregistros1
icuentaregistros1 = 0

Do While Not objRS1.EOF
icuentaregistros1 = icuentaregistros1 + 1
Response.Write "<TR><TD> <B><center><h5> " & icuentaregistros1 & "</B></TD> "
Response.Write " <TD> <B><center><h5> " & objRS1("anio") & "</B></TD> "
Response.Write " <TD> <B><center><h5> " & objRS1("cre_aut_1") & "</B></TD> "
Response.Write " <TD> <B><center><h5> " & formatnumber(cdbl(objRS1("imp_tra_1")),2) & "</B></TD> "
Response.Write " <TD> <B><center><h5> " & formatnumber(cdbl(objRS1("imp_apl_1")),2) & "</B></TD></TR>"

objRS1.MoveNext
Loop
objRS1.Close
Set objRS1=Nothing

objConn1.Close
Set objConn1 = Nothing
%>

<p>&nbsp;</p>
<p>


Admin
Forum Admin

España
229 Posts
Posted - 24 Aug 2007 :  08:47:38  Ver perfil  Enviar e-mail
Puedes sumar los importes dentro del bucle Do While

inicializa antes del bucle 2 variables de totales (para tus 2 campos numericos) y luego ves sumandoles el importe de cada registro dentro del bucle, de la misma forma a como lo que haces con la variable
icuentaregistros1 pero sumandole el valor del campo en vez de 1
Inicio Pagina

xpopex
Starting Member

Mexico
8 Posts
Posted - 24 Aug 2007 :  18:25:40  Ver perfil  Enviar e-mail
Esque no tengo idea de como sumarle el valor del campo es donde me esta fallando mi cabeza de chorlito.

Tienes algún ejemplo, donde me pudiera apoyar?

Inicio Pagina

Admin
Forum Admin

España
229 Posts
Posted - 27 Aug 2007 :  17:27:43  Ver perfil  Enviar e-mail
Solotienes que convertir el dato a numerico
(en http://www.asptutor.com/asp/vart.asp?id=44 tienes las funciones de conversión), y luego ir sumandolo dentro del bucle.

Ejemplo :
'convertimos el campo a numerico tipo INTEGER
campoanumerico=cint(objRS1("imp_tra_1"))
'lo vamos acumulando en TOTAL
total = total + campoanumericoInicio Pagina
xpopex
Starting Member

Mexico
8 Posts
Posted - 30 Aug 2007 :  00:37:59  Ver perfil  Enviar e-mail
Perfecto!
ya me salio.

Inicio 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