Ver Mensaje Individual
  #6 (permalink)  
Antiguo 24/06/2002, 15:57
Avatar de lexus
lexus
 
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 10 meses
Puntos: 4
Re: sumar todos los registros de un campo

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..


<%
'definicion de variables
Dim basedatos,con1,rs1
'nombre de la bd
basedatos = "bd.mdb"

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


Dim sql

sql = "SELECT SUM(quincena) AS total FROM datos_personales WHERE fondoempleados = Si;"
' 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 = &H0001
Const adUseClient = 3

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


%>
<% Response.Write(rs1.Fields("total"))%>
<%
Set con = Nothing
Set rs = Nothing
%>




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">