sumar todos los registros de un campo

[lexus]

Hola

tengo una base de datos en access 2000 con un campo que se llama Quincena, tiene muchos registros aproximadamente unos 500, pero cada dia crece mas, mi idea es que esos registros se sumen todos para luego mas abajo mostrar el total, donde aparecera el total de la suma de todos los registros de mi base de datos.

por ejemplo:
4000
5000
4500
3000
.
.
.
.
n +
_______
total=

ojala me hayan entendido bien y me puedan colaborar.

gracias

Lexus,

<img src="http://www.lexus.com/images/nav/nav_i_logo.gif" width="109" height="47" alt="Lexus" border="0">

[Hereje]

Hola no entiendo muy bien pero bue, esto es en lo que te puedo ayudar:

SQL = &quot;SELECT SUM(Campo) AS Alias FROM Tabla WHERE OtroCampo = Condicion;&quot;

Esto te devolveria la suma de todos los valores de &quot;Campo&quot; que cumplan con la condicion.

Para mostrarlos:
Response.Write(Tabla.Fields(&quot;Alias&quot;))

Hasta pronto !!

Sergio Flores<br>La Rioja, Argentina.<br><a href="http://www.lamatufia.com.ar">La Matufia</a>

[lexus]

Hola gracias pòr la respuesta

si lo que deseo es sumar todos los datos de un campo...

coloque como me dijiste y me sale un error
sabes como correjirlo????

&lt;%
'definicion de variables
Dim basedatos,con1,rs1
'nombre de la bd
basedatos = &quot;bd.mdb&quot;

Set con1 = Server.CreateObject(&quot;ADODB.Connection&quot;)
Set rs1 = Server.CreateObject(&quot;ADODB.Recordset&quot;)
con1 =&quot;DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=clave;&quot;
con1 = con1 &amp; &quot;DBQ=&quot; &amp; server.mappath(basedatos)


Dim sql

sql = &quot;SELECT SUM(quincena) AS total FROM datos_personales WHERE fondoempleados = Si;&quot;

Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdText = &amp;H0001
Const adUseClient = 3

rs1.Open sql, con1, 3, 3


%&gt;
&lt;% Response.Write(datos_personales.Fields(&quot;total &quot;))%&gt;
&lt;%
Set con = Nothing
Set rs = Nothing
%&gt;




y me salio este error


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

[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.

/bdpersonal/total.asp, line 34





gracias por tu colaboracion ojala puedas ayudarme con este error..


LEXUS

<img src="http://www.lexus.com/images/nav/nav_i_logo.gif" width="109" height="47" alt="Lexus" border="0">

[dguerr]

Aquí creo que hay un error:

el recordset se llama rs1, entonces debes colocar :

&lt;% Response.Write(rs1.Fields(&quot;total&quot;))%&gt;

Tambien noté que en el select, tienes un where campo = si , en caso de se alfanumerico deberias colocar : campo = 'si'


Si luego te da error, sería bueno indicarás cual es la linea.

Espero que esto te sirva, recibe un saludo
desde Vanezuela.

[zink]

Yo lo he hecho así:
&lt;%
Set DB = Server.CreateObject(&quot;ADODB.Connection&quot;)
DB.Open (&quot;PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=&quot; + Server.MapPath(&quot;xyz.mdb&quot;))
Set TBL = Server.CreateObject(&quot;ADODB.RecordSet&quot;)

For i=1 To 5
SQL = &quot;Select tabla1.[&quot;&amp;i&amp;&quot;] + tabla2.[&quot;&amp;i&amp;&quot;] as SumaTotal from tabla1, tabla2 Where tabla1.id_tabla1 = tabla2.id_tabla2&quot;
TBL.Open Sql, DB
Response.Write (TBL(&quot;SumaTotal&quot;))&amp;&quot;&lt;br&gt;& quot;
TBL.Close
Next

%&gt;

solo cambias el 5 por el numero de valores que quieres sumar.
(Gracias Vic)



Si preguntas, pasaras por ingenuo 5 minutos, si no preguntas ....... serás ingenuo toda tu vida

[lexus]

Hola el error que me sale es este



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

[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.

/bdpersonal/total.asp, line 37



esto es lo que estoy haciendo y coloque en negrita la linea donde me sale el error y en comentarios lo que interpreto del codigo...

por favor colaborenme para saber cual es el error. o que estoy haciendo mal..


&lt;%
'definicion de variables
Dim basedatos,con1,rs1
'nombre de la bd
basedatos = &quot;bd.mdb&quot;

Set con1 = Server.CreateObject(&quot;ADODB.Connection&quot;)
Set rs1 = Server.CreateObject(&quot;ADODB.Recordset&quot;)
con1 =&quot;DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=miclave;&quot;
con1 = con1 &amp; &quot;DBQ=&quot; &amp; server.mappath(basedatos)


Dim sql

sql = &quot;SELECT SUM(quincena) AS total FROM datos_personales WHERE fondoempleados = Si;&quot;
' lo que trato de hacer con este sql es
'que sume todo el campo quincena y lo guarde en el campo total de la tabla datos_personales
' pero solo donde el valor del campo fondoempleados sea Si


Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdText = &amp;H0001
Const adUseClient = 3

rs1.Open sql, con1, 3, 3 ' el error me sale en esta linea


%&gt;
&lt;% Response.Write(rs1.Fields(&quot;total&quot;))%&gt;
&lt;%
Set con = Nothing
Set rs = Nothing
%&gt;




gracias por todo. espero puedan decirme en que estoy mal o como arreglar el codigo para sumar el contenido de un campo con datos numericos.

<img src="http://www.lexus.com/images/nav/nav_i_logo.gif" width="109" height="47" alt="Lexus" border="0">

[zink]

lo intentaste con el for que puse arriba?
a mi me funciona a la perfección.