Codigo que estaba funcionando y ahora NO

[[Caral]]

Hola
El asunto es que llamas a una consulta total y tambien a una suma, esto confunde a la bd y no genera el dato.
Hay que buscar el dato que se necesita, no mas, en este caso solamente al campo Matricula y la suma de los campos que necesitas.
Otra cosa es darle a estas sumas un nombre que no sea igual al de un campo, no solo por la bd, tambien por no confundirse uno mismo.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  try
  if Edit1.Text ='' then
  showmessage ('Falta MATRICULA');
  except
  showmessage ('Falta MATRICULA');

Query1.SQL.Text := ' select Matricula, (exp + expgrup + pract1 + pract2 + pract3 + pract4 + pract5 + trab_final) As pract,'+
                   '( parcial1 + parcial2 + practica + final ) As tfin from 20092';
Query1.Open;

while not Query1.Eof do
begin
Qtemp.sql.Text := 'Update 20092 set practica = '+Query1.fieldbyname('pract').AsString+' where Matricula = '+QuotedStr(Edit1.Text);
Qtemp.ExecSQL;

Qtemp.SQL.Text := 'Update 20092 set tfinal = '+Query1.fieldbyname ('tfin').AsString+ ' where Matricula = '+QuotedStr(Edit1.Text);
Qtemp.ExecSQL;
Query1.Next;
end;

Query1.Close;
Query1.Open;
end;

end;

Si hicieras un showmesage al final de la consulta verias que en tu caso no devuelve nada y por supuesto nada da.
Saludos

[[Caral]]

Hola
Viendo el código me doy cuenta de que aun asi no funciona, el asunto es el siguiente:
Cuando se busca se hace con el mismo query1, tanto el dbgrid como la consulta.
A la hora de hacer la consulta no se encuentra cargado el dato, esto hace que no encuentre nada (se puede ver con un showmess).
En el ejemplo el Qtemp tampoco estaba conectado.
Bueno, el asunto lo resolvi con una variable ya que por alguna razon no me muestra el dato del query sin guardarlo antes (osea trampa de novato jejeje).
No veo el caso de hacer un recorrido si se va a buscar en una sola linea ya que se actualiza según la matricula.
Tampoco veo por que hacer dos update cuando en uno solo actualiza los dos campos.
Bueno el asunto para mi seria asi y por lo menos a mi me funciona y actualiza los datos:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var a,b :integer;
begin
  a:= 0;
  b:= 0;
  if Edit1.Text = '' then
  begin
  showmessage ('Falta MATRICULA');
  end;

Query1.Close;
Query1.SQL.Text := ' select (exp + expgrup + pract1 + pract2 + pract3 + pract4 + pract5 + trab_final) As pract,'+
                   '( parcial1 + parcial2 + practica + final ) As tfin from 20092 where matricula = '+QuotedStr(Edit1.Text);
Query1.Open;
a:= Query1.Fields[0].value;
b:= Query1.Fields[1].value;

Qtemp.sql.Text := 'Update 20092 set Practica = '+IntToStr(a)+', Tfinal = '+IntToStr(b)+' where Matricula = '+QuotedStr(Edit1.Text);
Qtemp.ExecSQL;

Query1.Close;
Query1.SQL.Text := ' select * from 20092 where matricula = '+QuotedStr(Edit1.Text);
Query1.Open;

end;

Bueno, por lo menos esto te sirve de practica.
Saludos

[aanil]

Gracias Caral,

Esto si me funciona, lo voy a usar.

Muchas, gracias..

Una cosa tengo que desconectar o dejar de usar una unidad, que esta conectada a un datamodule, no quiero usar el datamodule, para usar este código en el mismo form.

No se como me desconecto de datamodule.

Saludos.

[[Caral]]

Hola
Parece que estas esperando una respuesta?.
Por lo menos yo no entiendo lo que quieres hacer.
Desconectar una UNIT del Datamodule???????
No entiendo nada.
Saludos

[aanil]

Okey:

Ya sabia que no ve iban a entender, y eso es por el regionalismo del lenguaje español.

Bueno:

Si yo tengo un datamodule donde tengo la conexión de la base de datos, algunos Querys con sus respectivos DataSource, cuando uno quiere que un Formulario (Form1) use esa unidad, pues presiono ALT+F11, pero si yo quiero que el Form1 deje de usar esa unidad, ¿Qué se hace?, lo pregunto porque no lo he visto hacer, no he tenido la necesidad y el instructor que tenia en el año 2006 no me lo enseñó

Use algo que creo no es correcto, pero me funcionó, y es a cada componente conectado a su datasuorce correspondiente le borré la propiedad datasource y la conecté a otro datasource.

Gracias.. esto lo dejamos por terminado.


AAnil de la República Dominica, región del Cibao Central.

[[movorack]]

No es cuestión de idioma...

Cuando usas ALT+F11 el IDE se encarga de añadir el nombre de la unidad a la sección USES... para "desconectarte" solo debes ir a la sección USES y borrar el nombre de la unidad en cuestión.

[aanil]

Gracias

Morovack

Ese es la respuesta que esperaba.

Gracias a todos por las buenas orientaciones.

Este hilo se puede cerrar.

[[movorack]]

Siempre nos habias pasado el código de actualización... y aunque este tenia algunas fallas de forma no significaba que no debiera funcionar... solo descargando el ejemplo que colocaste fué que encontré la razón pq no te funcionaba...

La cuestión era que tenias un bloque try..except donde TODO el código de actualización estaba dentro del área de excepción y hasta que no ocurriera un error nunca se ejecutaría.

así lo tenias en el ejemplo que subiste:

Código Delphi [-]
  try
    if Edit1.Text ='' then
      showmessage ('Falta MATRICULA');
  except
    ... //código de actualización
  end;

[aanil]

Hola Movorack

Eso fue lo que paso, después que me funcionaba el código, yo le adapte ese try except para que no me diera el error de no escribir la matricula, de ahí en adelante parece que fue que se puso que no hacia nada..

Gracias..