Suma por campos

[aanil]

Hola a todos:

Como yo haria para sumar el valor de un campo de la columna A, mas el valor de un campo de la columna B, de una consulta.

Supongo que seria así:

Código SQL [-]
('select sum (A, B) As total from MyTabla');

Pero cuando corro este código dice que hay un error de sintaxis en el from.

Gracias.

Aanil

[[Caral]]

Hola
No entiendo:

Código Delphi [-]
('select Sum(TuTabla.A) AS [TotalA], Sum(TuTabla.B) AS [TotalB] from TuTabla');

No se si posteriormente o en la misma consulta queras sumarlos, no entiendo.
Saludos

[roman]

La función Sum sólo puede aplicarse a un campo, porque lo que hace es sumar todos los valores de un mismo campo en toda la tabla o sobre grupos de registros (agrupando la tabla con GROUP BY).

Para lo que quieres basta hacer:

Código SQL [-]
select A + B as total from MyTabla

// Saludos

[[Caral]]

Hola
Totalmente cierto y por supuesto error mio, visto desde el punto de vista de una suma corriente seria tan sencillo como eso, visto desde el punto de vista de la suma del campo seria con un group By como indica el Maestro Roman.

Código Delphi [-]
('select DISTINCT TuTabla.TuCampodefinido, Sum(TuTabla.A) AS [TotalA],'+
 'Sum(TuTabla.B) AS [TotalB] from TuTabla GROUP BY TuTabla.TuCampodefinido');

o bien

Código Delphi [-]
('select DISTINCT TuTabla.TuCampodefinido, Sum(TuTabla.A) + '+
 'Sum(TuTabla.B) AS [Total] from TuTabla GROUP BY TuTabla.TuCampodefinido');

A ver si no me equivoco.
Saludos

[aanil]

Hola.

Es posible que no me diera a entender:

La idea es que en una tabla TEstudiantes consulto un nombre de un estudiante y el mismo tiene las columnas: nota1, nota2, nota3 y yo quiero sumar las notas de ese estudiante consultado, o sea nota1 + nota2+ nota3 y que el resultado de estas notas se presente en un Label o en un TEdit de el formulario donde yo hago la consulta.

A ver si es posible..


Gracias.

[*Caro*]

Empezado por aanil

Es posible que no me diera a entender:

La idea es que en una tabla TEstudiantes consulto un nombre de un estudiante y el mismo tiene las columnas: nota1, nota2, nota3 y yo quiero sumar las notas de ese estudiante consultado, o sea nota1 + nota2+ nota3 y que el resultado de estas notas se presente en un Label o en un TEdit de el formulario donde yo hago la consulta.

A ver si es posible..

Hola aanil, solo tienes que hacer la suma de los campos y recuperar por el alias que le pongas.

Código Delphi [-]
......
Query.Text := 'Select nota1 + nota2+ nota3 As Suma From TEstudiantes ....'
......
 
if Not Query.IsEmpty then
 Label.Caption := Query.FieldByName(Suma).AsString;

Saluditos

[roman]

Empezado por aanil

Como yo haria para sumar el valor de un campo de la columna A, mas el valor de un campo de la columna B, de una consulta.

Empezado por roman

Para lo que quieres basta hacer:

Código SQL [-]
select A + B as total from MyTabla

Empezado por aanil

Es posible que no me diera a entender:

[...]

A ver si es posible..

Sí te diste a entender y es lo que ya te había contestado.

// Saludos

[aanil]

Hola:

Aqui le pongo el codigo completo y siempre me dice que hay un error en la clausa from.

begin
 with datam.ADOQuery1 do begin
 sql.Add('select a+b+c AS total from Tabla1');
 open;
 label1.Caption := intTostr(datam.adoquery1.fieldBYname('total').asinteger);
 end;
 end;
end.

A ver que es lo que pasa.

Gracias.

[aanil]

begin
  with datam.ADOQuery1 do begin
  sql.Add('select a+b+c AS total from Tabla1');
  open;
  label1.Caption := intTostr(datam.adoquery1.fieldBYname('total').asinteger);
  end;
end;
end.

[[Al González]]

Empezado por aanil

Hola:

Aqui le pongo el codigo completo y siempre me dice que hay un error en la clausa from.

sql.Add('select a+b+c AS total from Tabla1');

A ver que es lo que pasa

Sería muy útil que nos dijeras cuál mensaje de error aparece, es decir, el texto del error que ves en pantalla. Me refiero al error que se despliega en pantalla cuando ejecutas la sentencia SQL.

El problema puede estar en que tus campos no se llaman A, B y C, sino Nota1, Nota2 y Nota3 y muy probablemente tu tabla no se llama Tabla1, sino Estudiantes, o algo por el estilo.

Dinos si te funciona colocando los nombres reales de la tabla y los campos.

Un abrazo selecto.

Al González.

[roman]

Empezado por Al González

Un abrazo selecto.

O bien, una SUMa de abrazos

// Saludos

[aanil]

Hola:

Mi tabla se llama 20092, los campos se llaman Nota1, Nota2......Nota5, mi base de datos que esta hecha en access se llama Estudiantes. Los campos Nota1 a Nota5 es de tipo numérico.

El error en principio era ERROR DE SINTAXIS EN FROM. Ahora no me presenta ese error, sino que ahora dice:" Query1: Field 'Matricula' Not found "

Y este es mi real codigo completo.

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
with datam.Query1 do begin
close;

Código SQL [-]
sql.Text := 'select (pract1 + pract2 + pract3 + pract4 + pract5) As practica from 20092'

open;
label40.Caption := (FIELDVALUES['practica']);
end;
end;
end.

[[Caral]]

Hola
Una muestra EXACTA de lo que tienes.
Funciona perfectamente.
Espero te ayude.
Saludos

[aanil]

Hola a todos y en especial a Caral

Todo esta funcionando perfectamente, ahora mi inquietud es que tengo un campo para guardar el resultado de la suma de todas las notas, se llama T_Notas y no se como guardar la suma de esas notas consultadas.

Este es mi codigo que esta funcionando perfectamente.

Código SQL [-]
datam.Query1.SQL.Text := ' select *,(exp + expgrup+ pract1 + pract2+ pract3 + pract4 + pract5) As Practica from 20092';
datam.Query1.Open;
Label40.Caption := IntToStr(datam.Query1 .FieldByName('Practica').AsInteger);

Gracias por las ayudas.

[[Caral]]

Hola
Me imagino que el campo esta en al misma tabla.
Lo que se hace es recorrer la tabla y hacer un update según el nombre.
Aquí esta el mismo ejemplo con esta modificación.
Saludos

[aanil]

Hola Caral.

Guiandome por el ejemplo que me enviaste hice esto:

procedure TForm3.BitBtn3Click(Sender: TObject);
begin

Código SQL [-]
datam.Query1.First;
   while not datam.Query1.Eof do   // recorre la tabla y hace el update
   begin
    datam.Query1. sql.Text := 'Update 20092 set practica = '+datam.Query1Practica.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
    datam.Query1.SQL.Text := 'Update 20092 set parciales = '+datam.Query1Parciales.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
    datam.Query1.SQL.Text := 'Update 20092 set calf_final = '+datam.Query1calif_final.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);

    datam.Query1.ExecSQL;
  datam.Query1 .Next;

end;
end;


procedure TForm3.BitBtn2Click(Sender: TObject);
begin

Código SQL [-]
datam.Query1.SQL.Text := ' select *,(exp + expgrup+ pract1 + pract2+ pract3 + pract4 + pract5) As Practica from 20092';
datam.Query1.SQL.Text := ' select *,( parcial1 + pasrcial2) As parciales from 20092';
datam.Query1.SQL.Text := ' select *,( practica + parciales + final) As Calf_final from 20092';
 datam.Query1.Open;

end;

end.


El error se produce en datam.Query1 .Next;

Dice error de sintaxis en la instrucción UPDATE

Mas o menos siento que estoy cerca de llegar al final de mi proyecto, pero me falta algo por comprender.

Sera que debo de usar EQTemp.Sql? y no se de donde sale.

Gracias

[[Caral]]

Hola
Coloca otro query en el datamodule. (query2)
A este query lo llamas como gustes, yo lo llame EQTemp (ya que lo uso en cualquier lado como temporal, es un query normal y corriente).
Si haces el update en el mismo query borra el contenido del anterior, entonces no encuentra nada y da un error de sintaxis u otros.
No puedes hacer un update sin no hay información, ya la borraste usando el mismo query.
Nada mas pon otro query, asi:

Código Delphi [-]
datam.Query1.First;
   while not datam.Query1.Eof do   // recorre la tabla en el query1
   begin
  // hace el update del query2
    datam.Query2. sql.Text := 'Update 20092 set practica = '+datam.Query1Practica.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
    datam.Query2.SQL.Text := 'Update 20092 set parciales = '+datam.Query1Parciales.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
    datam.Query2.SQL.Text := 'Update 20092 set calf_final = '+datam.Query1calif_final.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);

    datam.Query2.ExecSQL; // ejecuta el query2
  datam.Query1 .Next; // recorre el query1 hasta el final

Saludos

[aanil]

Hola Caral:

Realmente no entiendo donde es que esta mal porque con tu codigo sigue produciendo el mismo error

Señala en azul este: datam.Query1.Next; // recorre el query1 hasta el final
Y sigue diciendo que es un error de sintaxis.
Que podra ser?

AAnil.

[[Caral]]

Hola
Intentemos lo asi:

Código Delphi [-]
datam.Query1.First;
   while not datam.Query1.Eof do   // recorre la tabla en el query1
   begin
  // hace el update del query2
    datam.Query2. sql.Text := 'Update 20092 set practica = '+datam.Query1Practica.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
 datam.Query2.ExecSQL;
    datam.Query2.SQL.Text := 'Update 20092 set parciales = '+datam.Query1Parciales.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
 datam.Query2.ExecSQL;
    datam.Query2.SQL.Text := 'Update 20092 set calf_final = '+datam.Query1calif_final.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
 datam.Query2.ExecSQL; // ejecuta el query2

  datam.Query1 .Next; // recorre el query1 hasta el final

Me parece que son varios update y se tienen que ejecutar uno por uno.
Saludos
Pd: Si no funciona se podria colocar un query por update, pero me parece que no se necesario, con solo ejecutarlo servira.

[aanil]

Hola

Ahora se para en este punto.

Código SQL [-]
 datam.Query2.SQL.Text := 'Update 20092 set parciales = '+datam.Query1Parciales.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);

Y dice lo mismo.

No encuentro el problema