Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-02-2009
Garfio Garfio is offline
Miembro
 
Registrado: jul 2006
Posts: 15
Poder: 0
Garfio Va por buen camino
Thumbs up SQL no actualiza los datos

Tengo el siguiente programa en Delphi 7 con Interbase 6. Uso los componentes de base de datos de interbase. El código es:
Código Delphi [-]
       DMRepara.QrPre.Close;
       DMRepara.QrPre.UnPrepare;
       DMRepara.QrPre.ParamByName('ENTRE').asstring := DMRepara.QrCab.FieldbyName('numPreaviso').asstring;
       DMRepara.QrPre.Prepare;
       DMRepara.QrPre.Open;
       DMRepara.QrPre.First;
       while not DMRepara.QrPre.Eof do
       Begin
         if DMRepara.QRPre.FieldByName('numEntre').AsString =
            DMRepara.QRCab.FieldByName('numEntre').AsString then
         Begin
           DMRepara.QrUCab.Close;
           DMRepara.QrUCab.UnPrepare;
           DMRepara.QrUCab.ParamByName('IDMEN').asinteger := DMRepara.QrPre.FieldbyName('idMensaje').asinteger;
           DMRepara.QrUCab.Prepare;
           DMRepara.QrUCab.Open;
           DMRepara.QrUCab.Edit;
           DMRepara.QrUCab.FieldByName('procesado').AsString := '1';
           DMRepara.QrUCab.Post;
         end;
         DMRepara.QrPre.Next;
       end;
       DMRepara.QRPre.Active := False;
       DMRepara.QrCab.Next;
    end;
   end;
   DMRepara.QrUCab.ApplyUpdates;
   DMRepara.TRPuerto.Commit;
   DMRepara.QrEntr.Close;
   DMRepara.QrPre.Close;
   DMRepara.QRCab.Close;
   DMRepara.QrUCab.Close;

y el SQL que tengo para QrUCab es:
Para el Select
Código SQL [-]
select * from "Cabeceras"
where
  "idMensaje" = :IDMEN
y para el Update
Código SQL [-]
update "Cabeceras"
set
  "Cabeceras"."procesado" = :"procesado"
where
  "Cabeceras"."idMensaje" = :"OLD_idMensaje"
el caso es que no me actualiza el campo procesado a '1'. Lo he probado asignando directamente el valor y tampoco me lo actualiza. Los componentes son TIBQuery y TIBUpdateSQL aunque tambien lo he probado con TIBDataSet y tampoco funciona.
He probado según algunos ejemplos que he visto en el foro y tampoco. Ahora lo tengo con CachedUpdates = True pero tambien lo he probado sin.
La cuestión es que me pasa por todas las sentencias que ha de pasar y no me da error, pero no me actualiza el campo.
Sinceramente, ya no se que hacer. Agradecería cualquier ayuda posible. Gracias.
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
TFileListBox no se actualiza jfadelphi Varios 2 27-09-2008 11:50:56
No actualiza IBQ trex2000 Conexión con bases de datos 2 19-01-2007 20:52:20
Qreport actualiza datos royrogers84 Varios 2 24-11-2006 17:41:07
No actualiza trex2000 Firebird e Interbase 2 28-01-2005 23:43:20
No actualiza . . . Agar23 Conexión con bases de datos 12 25-05-2004 09:27:52


La franja horaria es GMT +2. Ahora son las 12:35:58.


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