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
  #4  
Antiguo 10-02-2009
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Poder: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
No entiendo como puede funcionar con comillas, pero si dices que lo hace, será así.
De todos modos, si te fijas en el Select, los parámetros no tiene comillas (:IDMEN)
Código SQL [-]
select * from "Cabeceras"
where
  "idMensaje" = :IDMEN
Por lo tanto, creo que por lo menos los parámetros en el Update tampoco deberían llevarlas:
Código SQL [-]
update "Cabeceras"
set
  "Cabeceras"."procesado" = rocesado
where
  "Cabeceras"."idMensaje" = :OLD_idMensaje
También puedes probar el quitar la parte OLD_ del parámetro

Código SQL [-]
update "Cabeceras"
set
  "Cabeceras"."procesado" = rocesado
where
  "Cabeceras"."idMensaje" = :idMensaje

Y finalmente, si no te da ningún error, puede deberse a que todo está dentro de algún bloque try...except más amplio.
Prueba lo siguiente para ver si falla en algún lado:
Código Delphi [-]
       try
         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
             try
               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;
             except
               on E:exception do ShowMessage(E.Message);
             end;
           end;
           DMRepara.QrPre.Next;
         end;
         DMRepara.QRPre.Active := False;
         DMRepara.QrCab.Next;
       except
         on E:exception do ShowMessage(E.Message);
       end;
     end;
   end;
   DMRepara.QrUCab.ApplyUpdates;
   DMRepara.TRPuerto.Commit;
   DMRepara.QrEntr.Close;
   DMRepara.QrPre.Close;
   DMRepara.QRCab.Close;
   DMRepara.QrUCab.Close;

Última edición por duilioisola fecha: 10-02-2009 a las 15:37:57.
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 06:01:03.


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