Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-02-2014
NISOTO NISOTO is offline
Miembro
NULL
 
Registrado: abr 2012
Ubicación: RIOHACHA - LA GUAJIRA
Posts: 27
Poder: 0
NISOTO Va por buen camino
Problema con Update

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.

Última edición por Casimiro Notevi fecha: 27-02-2014 a las 09:23:16.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problema con el UPDATE XcamX Conexión con bases de datos 12 21-12-2010 00:32:48
Problema con update agustin173 Varios 3 26-10-2010 00:22:11
Problema con sql Update juanpe Firebird e Interbase 3 04-09-2008 12:31:00
Problema con update omarifr SQL 3 06-08-2007 23:28:38
Problema con update pache Firebird e Interbase 4 22-11-2006 21:08:06


La franja horaria es GMT +2. Ahora son las 09:55:27.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi