Hola a todos,
Tengo este codigo que funciona correctamente en IBExpert y Firebird Maestro.
Pero el problema es cuando compilo y lo ejecuto en Delphi 2007, que no hace nada.
Código Delphi
[-]procedure TFormCarga.btnCargarClick(Sender: TObject);
begin
if MessageDlg('¿ Esta seguro que desea asignar esta carga Academica ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
DMCarga.ibqry_Calificacion.Close;
DMCarga.ibqry_Calificacion.Sql.Clear;
DMCarga.ibqry_Calificacion.Sql.Add('UPDATE notas');
DMCarga.ibqry_Calificacion.Sql.Add('SET notas.MATERIA_UNO=(SELECT salones.MATERIA_UNO FROM salones');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE notas.AULA=salones.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('notas.IHS_UNO=(SELECT salones.IHS_UNO FROM salones');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE notas.AULA=salones.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('notas.DOCENTE_UNO=(SELECT salones.DOCENTE_UNO FROM salones');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE notas.AULA=salones.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('notas.MATERIA_DOS=(SELECT salones.MATERIA_DOS FROM salones');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE notas.AULA=salones.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('notas.IHS_DOS=(SELECT salones.IHS_DOS FROM salones');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE notas.AULA=salones.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('notas.DOCENTE_DOS=(SELECT salones.DOCENTE_DOS FROM salones');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE notas.AULA=salones.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('notas.MATERIA_TRES=(SELECT salones.MATERIA_TRES FROM salones');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE notas.AULA=salones.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('notas.IHS_TRES=(SELECT salones.IHS_TRES FROM salones');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE notas.AULA=salones.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('notas.DOCENTE_TRES=(SELECT salones.DOCENTE_TRES FROM salones');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE notas.AULA=salones.ID_SALON)');
{ DMCarga.ibqry_Calificacion.Sql.Add('a.MATERIA_CUATRO=(SELECT b.MATERIA_CUATRO FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.IHS_CUATRO=(SELECT b.IHS_CUATRO FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.DOCENTE_CUATRO=(SELECT b.DOCENTE_CUATRO FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.MATERIA_CINCO=(SELECT b.MATERIA_CINCO FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.IHS_CINCO=(SELECT b.IHS_CINCO FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.DOCENTE_CINCO=(SELECT b.DOCENTE_CINCO FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.MATERIA_SEIS=(SELECT b.MATERIA_SEIS FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.IHS_SEIS=(SELECT b.IHS_SEIS FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.DOCENTE_SEIS=(SELECT b.DOCENTE_SEIS FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.MATERIA_SIETE=(SELECT b.MATERIA_SIETE FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.IHS_SIETE=(SELECT b.IHS_SIETE FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.DOCENTE_SIETE=(SELECT b.DOCENTE_SIETE FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.MATERIA_OCHO=(SELECT b.MATERIA_OCHO FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.IHS_OCHO=(SELECT b.IHS_OCHO FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.DOCENTE_OCHO=(SELECT b.DOCENTE_OCHO FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.MATERIA_NUEVE=(SELECT b.MATERIA_NUEVE FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.IHS_NUEVE=(SELECT b.IHS_NUEVE FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.DOCENTE_NUEVE=(SELECT b.DOCENTE_NUEVE FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.MATERIA_DIEZ=(SELECT b.MATERIA_DIEZ FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.IHS_DIEZ=(SELECT b.IHS_DIEZ FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.DOCENTE_DIEZ=(SELECT b.DOCENTE_DIEZ FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.MATERIA_ONCE=(SELECT b.MATERIA_ONCE FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.IHS_ONCE=(SELECT b.IHS_ONCE FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.DOCENTE_ONCE=(SELECT b.DOCENTE_ONCE FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.MATERIA_DOCE=(SELECT b.MATERIA_DOCE FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.IHS_DOCE=(SELECT b.IHS_DOCE FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON),');
DMCarga.ibqry_Calificacion.Sql.Add('a.DOCENTE_DOCE=(SELECT b.DOCENTE_DOCE FROM salones b');
DMCarga.ibqry_Calificacion.Sql.Add('WHERE a.AULA=b.ID_SALON)');
DMCarga.ibqry_Calificacion.ExecSQL;
ShowMessage('Operacion realizada...');
end
else
begin
ShowMessage('Operacion no realizada...');
end;
end;
Ayuda por favor.