Suma por campos

[[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