suma total de todos los movimientos en movimientos

[agustincs]

hola, tengo un programa en el que se permiten hacer movimientos de dinero, cada movimiento le corresponde a un equipo de una competicion. Lo que intento hacer es que cada vez que pinches en una de las filas de un dbgrid, el programa devuelve en una etiqueta la suma total de todos los movimientos de ese equipo. Para hacer esto (no se si es lo correcto) creo una ADOQuery y en el evento OnClick del grid pongo:

  consultaSaldo.Close;
   consultaSaldo.SQL.Clear;
   consultaSaldo.SQL.Add('select sum(importe) from movimientos where equipo:=DBGridView1.Fields[1].Value');
   consultaSaldo.ExecSQL;
   consultaSaldo.Open;

Con esto tengo dos problemas:
1.-me da error, al pichar sobre el grid me lanza un error y me dice: object parameter mal definido, se proporciono informacion incompleta o incoherente.(problema de de tipo de datos distintos no creo que sea pq esta mas que confimado que el field[1] es el campo equipo de la base de datos dada que segun se los field se numeran de 0 a N-1
2.-una vez que consiga que no me de error, como hago para el valor de la suma al campo caption de una etiqueta??? asi:

etiqueta.caption:=cosultaSaldo.ExecSQL

dudo que sea asi, jeje, haber si me podeis ayudar

[delphi.com.ar]

Empezado por agustincs

consultaSaldo.SQL.Add('select sum(importe) from movimientos where equipo:=DBGridView1.Fields[1].Value');

Tené en cuenta que "DBGridView1.Fields[1].Value" es pasado como string al Sql y no como el valor que contenga este campo... ¿Que tipo de DbGrid Utilizas?

Podría ser:

Código Delphi [-]
consultaSaldo.SQL.Add('select sum(importe) from movimientos where equipo:=' + QuotedStr(DBGridView1.Fields[1].Value));

Saludos!

[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