Suma por campos
 

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

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

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

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

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.

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

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

// Saludos

Hola:

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



A ver que es lo que pasa.

Gracias.

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

O bien, una SUMa de abrazos :)

// Saludos

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.

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

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.

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

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

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

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.

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.

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

Hola Caral..

Realmente con el primer codigo se ejecuta, luego cuando pasa al segundo codigo se produce el error.

Lo hice solo con uno solo así:

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

y fiunciona correctamente.

Donde esta el Maco?

Aanil

Hola
A ver si a la fuerza.

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

Haces tres update de la tabla independientemente.
Saludos
PD: MACO?????......

Hola Maco

Ahora se para en el primer datam.Query1.Next; y dice error de sintaxis.

Seguimos....

Hola
No se que estas haciendo, pero mi primera intervención estaba correcta, solo que lo hice de memoria y ya no da mas.
Fijate en lo que haces aqui:

Código Delphi [-]
procedure TForm3.BitBtn2Click(Sender: TObject);
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;

Un solo query para todo, pero lo REESCRIBES quedando solo el ultimo.
Para hacer eso se necesita hacerlo asi:

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

El codigo funciona perfectamente como lo indique.
Aqui esta el codigo con TRES update seguidos sin poblemas.
Saludos

Caral:

Parece que tengo algo malo en mi composicion, ya que se produce el error al actualizar la ultima sentencia, o sea, en esta, que es donde se para el programa.

Código SQL [-]
datam.Query2.SQL.Text := 'Update 20092 set calif_final = '+datam.Query1calif_final.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
datam.Query2.ExecSQL; // ejecuta el query2

En lo anterior si se actualiza.

Seguire viendo a ver donde es que esta el problema.


Mil Gracias por tu ayuda.

Hola
Coloca el programa y la BD en un Zip aqui y lo reviso.
Saludos

Hola:

Ahora te envío el programa, mas adelante DB, ya que parece que no me permite por el tamaño.

Ahora te envío la DB que va dentro de la Carpeta Estudiantes

Parece que tengo que mandarte la otra parte cuando baje esta primera parte.

Hola Caral.

No puedo enviarte la DB, ya que no me lo permite, por razones de tamaño

Te digo que esta hecha en access y se llama “Alumnos_uasd” con una tabla que se llama 20092, con los siguientes campos definidos.

Matricula: Texto
Nombre:Texto
Centro:Texto
Asignatura: Texto
Clave : Texto
Seccion: Texto
A1: Texto
A2: Texto
A3: Texto
A4: Texto
A5: Texto
A6: Texto
A7: Texto
A8: Texto
A9: Texto
A10: Texto
EXP: numero
ExpGrup: numero
Pract1: numero
Pract2: numero
Pract3: numero
Pract4: numero
Pract5: numero
Practica: numero
Parcial1: numero
Parcial2: numero
Parciales: numero
Trab_Final: numero
Final: numero
Final: numero
Comentarios:texto
**********************
Saludos……

Hola
1. la tabla estaba incompleta.
2- no coincidían los datos de la bd con el programa
No se como se maneja el programa pero revisando y cambiando estos problemas actualiza perfectamente y no da ningún error.
Particularmente no lo haría con una sola tabla, se ve desordenado y obliga a actualizar muchos campos a la vez.
Yo haría varias tablas, incluyendo las notas por aparte y solo enlazaría.
Colocaría un ini para poder colocar la bd donde guste, ademas de un login para darle privacidad.
Saludos
PD: Si vas a enviar algo, no incluyas el exe, ocupa mucho espacio y es innecesario.

Hola Caral.

Si el programa que me retorna a ti te funciona, aqui me da el mismo problema.

Lo he revisado campo por campo y siempre da el mismo error.

Seguire revisando para determinar donde es que se produce el error.

Voy a tratar se hacer dos tablas relacionadas.

Saludos.

Hola.

Si se puede corregir este ejemplo y me dicen donde estan los errores, creo que podre completar mi proyecto.


AAnil

Hola Aanil, ¿cual es el error que te esta dando?

Saluditos

Hola de nuevo aanil, acabo de revisar tu codigo y veo que tienes algunos errores.

1.- Si vas a cambiar tu consulta en ejecución como lo estas haciendo es mejor no utilizar campos persistentes, o por lo menos debes añadir todos los campos que tienes como persistentes en tu consulta, eso en "Calcular".

2.- No le pongas como Alias, los nombres de campos de tu tabla, como TNotas...

3.- Has un Close cada ves que ejecutas una nueva consulta esto entre tus Updates seguidos.

Te adjunto el pas y dfm, espero que ahora si te funcione, sino, debes indicarnos los errores exactos que te da y mejor aún en la línea de codigo que te esta dando.

Saluditos

Hola Caro

En mi proyecto el error que se produce es este:

Project, Project1.exe raised esception class EOleException with message
'Error de sintaxis en la instruccion UPDATE', Process Stopped. Use Step o
Run to continue.

Este error lo produce en la primera actualizacion de un estudiantes cualquiera,
Luego no lo produce, y actualiza los campos, pero hay que darle doble clic al boton actualizar.

Este codigo lo he puesto de todas formas, juntos, separados, con dos botones y siempre lo mismo.

Código SQL [-]
with datam.Query1 do begin
   SQL.Text := ' select *, (exp + expgrup + pract1 + pract2 + pract3 + pract4 + pract5)As practica from 20092';
   SQL.Text := ' select *,( parcial1 + parcial2) As parciales from 20092';
   SQL.Text := ' select *,(practica + parciales + final + trab_final) As tfinal from 20092';
Filter:='matricula Like '''+ Edit1.Text + '*''';
Filtered:= True;
Open;

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 tfinal = '+datam.Query1tfinal.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
datam.Query2.ExecSQL; // ejecuta el query2
datam.Query1.Next; // recorre el query1 hasta el final

En la primera ejecución cuando se produce el error se para en esta línea del código que te presento.

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

Luego reinicio y ya el problema no sale con el estudiante en cuestión, luego se produce cuando se le colocan las notas al siguiente estudiante consultado y así sucesivamente.

Gracias por tomarnos en cuenta.

Hola de nuevo, has probado lo ultimo que te pase, reemplaza el pas y dfm que tienes con el adjunto, algo que me había olvidado decirte es que no debes mezclar Filter con consultas SQL, debes utilizar solo uno de los dos, como estas utilizando un query utiliza solo consultas Sql y no Filter. Prueba lo que te pase y me dices si sobre eso te da error.

Saluditos

Hola
El arreglo de Caro es correcto, aun asi el close entre cada update es innecesario ya que se usa TEXT y no ADD.
El cerrar y abrir la tabla si es correcto para actualizar el dbgrid.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
Query1.First;
   while not Query1.Eof do
   begin
   // recorre la tabla y hace el update
   //  QTemp.Close;
     QTemp.SQL.Text := 'Update tabla1 set TNotas = '+Query1.fieldbyname('ANotas').AsString+' where Nombres = '+QuotedStr(Query1.fieldbyname('Nombres').AsString);
     QTemp.ExecSQL;

   //  QTemp.Close;
     QTemp.SQL.Text := 'Update tabla1 set TPract = '+Query1.fieldbyname('Apract').AsString+' where Nombres = '+QuotedStr(Query1.fieldbyname('Nombres').AsString);
     QTemp.ExecSQL;

   //  QTemp.Close;
     QTemp.SQL.Text := 'Update tabla1 set TGeneral = '+Query1.fieldbyname('Ageneral').AsString+' where Nombres = '+QuotedStr(Query1.fieldbyname('Nombres').AsString);
     QTemp.ExecSQL;

     Query1.Next;
    end;

    //Actualizamos la consulta
    Query1.Close;
    Query1.Open;
end;

No entiendo cual es el problema, lo unico que siempre encuentro es que los campos no coinciden y las consultas AS las nombras como campos de la tabla.
Saludos

Hola
Creí que esto ya lo habíamos visto.......fíjate arriba.....

Código Delphi [-]
datam.Query1.close;
with datam.Query1 do begin
   SQL.Text := ' select *, (exp + expgrup + pract1 + pract2 + pract3 + pract4 + pract5) As practica,'+
'( parcial1 + parcial2) As parciales, '+
'(practica + parciales + final + trab_final) As tfinal '+
' from 20092 where matricula Like '''+ Edit1.Text + '*''';
Open;
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 tfinal = '+datam.Query1tfinal.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
datam.Query2.ExecSQL; // ejecuta el query2
datam.Query1.Next; // recorre el query1 hasta el final
End;
end;

Saludos

Hola Caral

Ahora le hice esta pequeña modificación el código y se para en
Datam.query1.next;

Observa:

Código Delphi [-]
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
datam.Query1.SQL.Text:= 'Select * From 20092 Where matricula LIKE:variable';
datam.Query1.Parameters[0].Value:= '%'+ Edit1.Text +'%';
datam.Query1.Open;
end;

procedure TForm3.BitBtn3Click(Sender: TObject);
begin
if edit1.Text = '' then
Showmessage ('Debes escribir la Matricula del Estudiante');

with datam.Query1 do begin

SQL.Text := ' select *, (exp + expgrup + pract1 + pract2 + pract3 + pract4 + pract5)As practica,( parcial1 + parcial2+ practica + final + trab_final) As tfinal from 20092';
Filter:='matricula Like '''+ Edit1.Text + '*''';
Filtered:= True;
Open;

datam.Query1.First;
while not datam.Query1.Eof do   // recorre la tabla en el query1
begin
  // hace el update del query2
//datam.Qtemp.Close;
datam.Qtemp.sql.Text := 'Update 20092 set practica = '+datam.Query1.fieldbyname('practica').AsString+' where matricula = '+QuotedStr(datam.Query1.fieldbyname('matricula').AsString);
datam.Qtemp.ExecSQL;

//datam.Qtemp.Close;
datam.Qtemp.SQL.Text := 'Update 20092 set tfinal = '+datam.Query1.fieldbyname ('tfinal').AsString+ ' where matricula = '+QuotedStr(datam.Query1.fieldbyname('matricula').AsString);
datam.Qtemp.ExecSQL; // ejecuta el query2
datam.Query1.Next;
 end;

 datam.Query1.Close;
 datam.Query1.Open;

end;


end;

Y en una segunda actualización del estudiante si permite hacer la suma de los campos.

Saludos