Programación General > Visual Basic 6.0 e inferiores
Re: ayuda para sumar una columna de access con adodc
Brroz:
Disculpas por el despiste en la respuesta del mensaje...
Lo que dice J.M.Movilla es correctísimo.
Necesitarás definir en tu aplicación los siguientes objetos:
Objeto conexión (ADODB.Connection). Utiliza su método 'Open' con la cadena de conexión adecuada a tu caso.
Objeto comando(ADODB.Command). Establece su propiedad 'ActiveConnection' con el valor del objeto conexión anterior (con SET, ojo, es un objeto) . Establece la propiedad 'CommandType' igual 'adCmdText'.
Objeto recordset (ADODB.Recordset). Este contendrá los registros seleccionados obtenidos de la siguiente forma:
set rs1 = cmd1.Execute "SELECT SUM(Importe) AS Total FROM Tabla WHERE Fecha BETWEEN #" & Text1.Text & "# AND #" & Text2.Text & "#"
Donde rs1 sería el objeto recordset y cmd1 el comando.
Una vez ejecutado, el resultado lo obtendrías así:
Total = Iff(Not IsNull(rs1.Fields(0).Value) , rs1.Fields(0).Value, 0)
Todo esto así a grandes rasgos. Si quieres más detalle o ejemplos, creo que en mensajes anteriores de este foro podrás encontrar lo que buscas.
Si te acostumbras a trabajar con este tipo de objetos, pronto dejarás de usar controles data
Suerte.
tazdemon:
GRACIAS NUEVAMENTE AMIGO PERO NO PUEDO HACERLO PORQUE ESTOY MEDIO WEY CON EL VISUAL BASIC, APENAS LO ESTOY MANEJANDO ENTONCES SI NO ES MUCHA MOLESTIA ME GUSTARIA QUE SI PUEDES MANDARME UN EJEMPLO DE COMO HACERLO OK SI NO ES MUCHA MOLESTIA.
GRACIAS Y ESPERO UNA PRONTA RESPUESTA.
Brroz:
Otra forma de utilizar la sentencia SQL, usando controles, es asignándola a la propiedad RecordSource de un control data.
Adodc1.RecordSource = "SELECT SUM(Importe) AS Total FROM Tabla WHERE Fecha BETWEEN #" & Text1.Text & "# AND #" & Text2.Text & "#"
Y Luego:
Adodc1.Refresh
DataGrid1.ReBind
Espero que esto te resulte más sencillo. De todas formas te recomiendo que busques información y ejemplos (en este foro mismo) sobre la utilización de objetos para acceso a datos.
Por cierto, en el mensaje anterior hay un error. Donde dice:
set rs1 = cmd1.Execute "SELECT SUM(Importe) AS Total FROM Tabla WHERE Fecha BETWEEN #" & Text1.Text & "# AND #" & Text2.Text & "#"
Debería decir:
cmd1.CommandText = "SELECT SUM(Importe) AS Total FROM Tabla WHERE Fecha BETWEEN #" & Text1.Text & "# AND #" & Text2.Text & "#"
Set rs1 = cmd1.Execute
Suerte.
tazdemon:
gracias amigos ya pude hacer la suma pero no me saca el resultado exacto entonces quiero poner un datagrid para que me aparescan todos los registros que estan dentro del intervalo de las fechas y que esta sumando para asi poder saber cual es el motivo por el cual no me da la suma exacta. la fecha la estoy metiendo asi mm,dd,año.
de hecho hice con la misma sentencia sql pero enves de fecha lo hice por el campo de id y ahi si me da la la suma total exacta.
bueno espero que me puedan seguir ayudando ya que realmente me superurge para mi proyecto de base de datos de la univerdidad y pues muchas gracias por lo anterior
J.M.Movilla:
Espero que el programita que te he preparado te sirva mejor que todas las palabras que puedan decirse..., puesto que hablas de estar comenzando a programar en Visual.
Y ya sabes... espero también que termines confirmando el resultado, COMO DEBE SER...
Saludos y suerte
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa