suma total de todos los movimientos en movimientos

[agustincs]

estoy usando un componente de la casa berg que acabo de ver que no tiene la propiedad fields, alguien sabe como leer el contenido de una columna en una fila con este grid, si no es posible pos usare el grid estandar.

y sabes la respuesta a la 2 pregunta, en caso de que funcione como guardo la suma en una variable o una etiqueta??

[agustincs]

por cierto, he probado eso con un grid normal pero sigue sin ir, me dice lo mismo de parameter

[roman]

Me parece que en la consulta, donde dice

'where equipo:=...'

debe decir

'where equipo=...'

Es decir, sobran los dos puntos. Por la forma en que haces la consulta no estás usando parámetros en el texto SQL.

Pero vamos a otro asunto.

Fíjate en una cosa: el cálculo que haces depende en el fondo, no de la fila seleccionada en la rejilla mediante el 'click', sino del registro actual del dataset que alimenta a la rejilla (que cambia conforme seleccionas una u otra fila en ésta).

Entonces, en lugar de atacar el problema por el lado de la rejilla podrías hacerlo por el lado del dataset que la alimenta usando su evento OnAfterScroll, que se genera cada vez que cambia el registro actual.

Pero por otro lado creo que estás trabajando de más pues has olvidado la propiedad DataSource del AdoQuery que evitas que hagas este cálculo cada vez.

Para fijar ideas vamos a suponer que tienes estas dos tablas:

equipos = (id, nombre)
movimientos = (id, equipo_id, importe)

con un AdoTable, digamos adoEquipos, enlazado a la tabla equipos y que alimenta a la rejilla. Vamos a suponer que adoMovimientos es la componente AdoQuery que usas para el cálculo:

Código Delphi [-]
AdoQuery.Sql.Text := 'select sum(importe) from movimientos where equipo=:equipo_id';

Fíjate que en el texto de la consulta sí pongo los dos puntos (pero después del signo '=') para indicar que equipo_id es un parámetro.

Siguiendo tu metodología, lo lógico sería sustituir el valor del parámetro equipo_id cada vez que cambias de registro:

Código Delphi [-]
adoMovimientos.ParamByName('equipo_id').AsInteger := adoEquipos['id'];

Pero es innecesario ya que puedes alimentar este parámetro de manera automática asignando

adoMovimientos.DataSource := dsEquipos

donde dsEquipos sería el DataSource enlazado a adoEquipos. La asignación la haces en tiempo de diseño.

De esta manera ya no tienes que hacer más nada. Automáticamente, cuando te muevas por la rejilla que muestra los equipos, el parámetro de adoMovimientos se irá llenando solo y tendrás listo su valor.

¿Cómo obtienes ese valor?

Bueno, dado que la consulta regresa una sóla fila con un sólo campo simplemente los tomas con

adoMovimientos.Fields[0].AsInteger

o bien conectas otra rejilla a adoMovimientos a través de un DataSource.

// Saludos

[agustincs]

he optado por la segunda opcion pq me parece la mas correcta, pero ahora tengo un problema
como me has dicho he puesto en datasource del query movimientos el source de equipos, y en la propiedad de sql del query movimientos he puesto:

SELECT SUM(IMPORTE) FROM MOVIMIENTOS M WHERE (M.EQUIPO=:NOMBRE)

donde nombre es el campo de la base de datos equipo que guarda el nombre del equipo.Que es lo que esta mal? ya que no me dijiste nada de la sentencia sql a incluir (y yo supongo que habra que incluirla) puse esta, pero no se si estar a bien... creia que el data source lo tomaba el query como un parametro y el nombre del parametro era el mismo que el campo de la base de datos

[roman]

Empezado por agustincs

Que es lo que esta mal?

Pues no sé. No indicas cuál fue el problema. Tal como lo tienes me parece que está bien. Y en efecto, el nombre del parámetro debe coincidir con el nombre del campo en la tabla de equipos.

// Saludos

[agustincs]

el error es: "objeto parameter mal definido, se proporciono informacion incorrecta o incoherente"

la verdad es que prefiero usar esta opcion del del datasource pq se mucho comoda y "correcta" pero no se pq me da ese error


yo lo unico que he hecho en el query a sido fijar el datasource al source de equiops y luego escribir la sentencia sql, a continuacion en tiempo de diseño le doy a activar y me lanza ese error

[roman]

A todo esto no nos has dicho con qué base de datos trabajas. Acabo de hacer una prueba con Access como sigue:

Dos tablas

equipos = (id, nombre)
movimientos = (id, equipo, importe)

La consulta del AdoQuery así:

Código SQL [-]
select sum(importe) from movimientos m
where m.equipo=:nombre

Todo funcionó bien.

Asegúrate de no dejar espacios entre : y NOMBRE en la consulta. Si hay un espacio entonces manda el mesajes que indicas.

// Saludos