DBGrid - Actualizar valor de la tabla detalle.

[juliannemiro]

Hola a todos!

Algunos me habrán leido, pero sigo teniendo problemas con un tema. Voy a tratar de ser mas claro a ver si me pueden ayudar.

Estoy manejando una dbgrid, asociada a un adoquery y un datasource.

El Adoquery trae la información de la tabla ASISTENCIAS, y tiene un JOIN con la tabla TIPO_ASISTENCIA, que contiene el detalle de la asistencia justamente.

Sobre la DBGrid, el cliente debe editar los registros. Lo que necesito, es que cuando la persona edita el ID_ASISTENCIA, de la tabla ASISTENCIAS, se refresque la descripcion que esta en la tabla qe traigo con el join, osea TIPO_ASISTENCIAS.
No tiene que editar la tabla detalle ni nada, solamente actualizar el valor.

Imagino que debe ser una simple linea en algún evento de la grilla, pero hace tiempo que vengo probando y no puedo solucionarlo.

Muchas gracias, espero puedan ayudarme.

[[Caral]]

Hola
No entiendo, para que actualizar el Id_asistencias, este deberia ser clave.
Ademas no entiendo como actualizar la union de dos tablas de esa forma ya que al actualizar un dato se tendria que refrescar el query y si no se hace un filtro quedara en en el principio de la consulta.
Por otro lado, es una mala practica hacer cambios al vuelo.
No entiendo.
Saludos

[juliannemiro]

Hola.
Explico un poco mas. Yo tengo un DBgrid. Que tiene todo un curso y por cada día aparece una lista con los siguientes datos:

Alumnos - Id_asistencia - x_asistencia. - etc-
JUAN - 1 - Presente.
Carlos - 1 - Presente.
Pepe - 2 - Tarde
...


Por defecto cada día propongo en todos los alumnos 1: Presente. Pero el preceptor debe cambiar en caso de ser necesario ese nro'1', por 2 en caso de que el alumno llegue tarde, 3 en caso de que el alumno este ausente.
Entonces el x_asistencia, debe actualizarse.

Las tablas son asi

ASISTENCIAS
id_asistencia
id_alumno
fecha
...

TIPO_ASISTENCIA (la traigo con un join en el query)
Id_asistencia
x_asistencia (la descripcion, osea presente, ausente...)

Entonces cuando en la grilla cambio el valor del id_asistencia, deberia refrescar por el valor que corresponde.

[[Caral]]

Hola
Bien:
Codigo amigo, codigo habla.
Muéstrame la consulta del query y la modifico para que te actualice el dato.
Saludos

[[Caral]]

Hola
Por curiosidad que BD usas ?.
Saludos
Me auto respondo: SQL Server 2000 usando ADO.

[[Caral]]

Hola
Mas o menos:

Código Delphi [-]
var
dato: Integer;
tipo: String;
begin
  Dato:= ADOQuery1.FieldByName('id_asistencia').asinteger;
  If Dato = 1 then
  tipo:= 'Presente';
  If Dato = 2 then
  tipo:= 'Tarde';
  If Dato = 3 then
  tipo:= 'Ausente';
  AdoQuery2.SQL.Text := 'Update ASISTENCIAS set id_asistencia = '+IntToStr(Dato)+', x_asistencia = '+QuotedStr(Tipo);
  AdoQuery2.ExecSQL;
  ADOQuery1.Close,
  ADOQuery1.open;

Saludos

[juliannemiro]

El código del query es este:
El código del query es este:

Código Delphi [-]
      with self.ADOQueryAsistenciasGrid do
       begin
         close;
         SQL.Add(' select b.id_asistencias, c.apellido as Apellido, c.nombre as Nombre, ');
         SQL.Add('  b.id_asistencias_tipo, e.x_asistencia, b.computa,  b.valor, b.obs as Observación, f.id_estado, f.id_alumno,  e.id_asistencias_tipo ');
         SQL.Add(' from  asistencias b ');
         SQL.Add('    left outer join alumnos_cursos a ');
         SQL.Add('        on a.id_alumno = b.id_alumno ');
         SQL.Add(' inner join personas c ');
         SQL.Add('         on c.id_persona = a.id_alumno ');
         SQL.Add('    left outer join cursos d ');
         SQL.Add('         on a.id_curso = d.id_curso ');
         SQL.Add('        and b.n_anioLectivo = d.n_anio ');
         SQL.Add('    left outer join asistencias_tipos e ');
         SQL.Add('         on b.id_asistencias_tipo = e.id_asistencias_tipo ');
         SQL.Add('    left outer join alumnos f ');
         SQL.Add('         on c.id_persona = f.id_alumno  ');
         SQL.Add('where a.id_curso = ''' + EditCursoId.text +''' and  b.fecha = '''+ DateToStr(DateTimePicker1.DateTime) + '''   ');
         SQL.Add(' order by b.n_anioLectivo, b.fecha, c.apellido, c.nombre ');
         Open;
         Active:= True;
       end;

Lo que vos propones es trabajar con un segundo query que haga el update, verdad? En que evento se dispararía?

[[Caral]]

Hola
Si, lo que se me ocurre es tener un segundo query.
El evento depende de tu interes, puede ser el onchage, el ondobleclick etc.
Es algo muy particular.
Saludos

[juliannemiro]

Hola de vuelta.

La x_asistencia no debe modificarla. Solamente debe refrescar el valor cuando cambia el ID_ASISTENCIA.

He probado algo similar a lo que me describiste arriba, pero lamentablente no me funciona. Me dice 'No puede encontrar la fila para su actualizacion: algunos valores han cambiado desde la ultima vez que se leyó'.

Este es el código

Código Delphi [-]
procedure TFormAsistencia.DBGridMateriasCursoExit(Sender: TObject);
 var
dato, Id: integer;
begin
  Id:= ADOQueryAsistenciasGrid.FieldByName('id_asistencias').asinteger;  // Es el id de la asistencia
  Dato:=  ADOQueryAsistenciasGrid.FieldByName('id_asistencias_tipo').asinteger; //  Este es el id del TIPO de asistencia (1,2,3,4..)

  AdoQuery2.SQL.Text := 'Update ASISTENCIAS set id_asistencias_tipo = '+ IntToStr(Dato) +' where id_asistencias= '+IntToStr(id);
  AdoQuery2.ExecSQL;
  ADOQueryAsistenciasGrid.Close;
  ADOQueryAsistenciasGrid.open;
  end;
end.