Suma por campos

[*Caro*]

Empezado por aanil

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

[*Caro*]

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

[aanil]

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.

[*Caro*]

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

[[Caral]]

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

[[Caral]]

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

[aanil]

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

[[Caral]]

Hola
No veo el error, pasa el codigo.
Saludos
PD: Borra todos los zip anteriores que pusiste, eso te dara espacio.
AH, no envies el exe.