Club Delphi  
    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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-01-2011
chiche_s chiche_s is offline
Registrado
 
Registrado: dic 2009
Posts: 6
Poder: 0
chiche_s Va por buen camino
ApplyUpdates da un error 'Unsupported feature' en Delphi 2009

Saludos a todo aquel que lea este mensaje.

He estado practicando con la versión 2.5 de Firebird y siguiendo un tutorial del blog de Delphi al límite hice una pequeñísima aplicación de mantenimiento de clientes. Pero me encontré con un gran inconvieniente. La versión 2009 de Delphi se "rehúsa" a trabajar con los componentes TClientDataSet ya que cuando quiero hacer una actualización de los datos de un cliente, si lo ejecuto desde el IDE arroja el error del título, e inmediatamente después, el siguiente:

Project Project1.exe raised exception class EDatabaseError with message 'TClientes: Must apply updates before refreshing data'.

El código que utilizo es el siguiente:

Código Delphi [-]
// Llamo al formulario para la modificación de datos del cliente
procedure TFClientes.BitBtn2Click(Sender: TObject);
begin
  LogicaNegocio.TClientes.Params.ParamByName('id').AsString:= LogicaNegocio.TLstClientesIDCLIENTE.AsString;
  LogicaNegocio.TClientes.Open;
  LogicaNegocio.TClientes.Edit;
  Application.CreateForm(TFCliente, FCliente);
  FCliente.ShowModal;
  LogicaNegocio.TClientes.Close;
  ListadoClientes.SetFocus
end;


Código Delphi [-]
// Acepto las modificaciones realizadas
procedure TFCliente.BitBtn1Click(Sender: TObject);
begin
  LogicaNegocio.TClientes.Post;
  ModalResult:= mrOk
end;


Código Delphi [-]
// Actualizo el DBGrid con los nuevos datos si los hay
procedure TLogicaNegocio.TClientesAfterPost(DataSet: TDataSet);
begin
  if TClientes.ChangeCount>0 then
    begin
      TClientes.ApplyUpdates(0); // Aquí explotan las excepciones
      TClientes.Refresh;
      if TClientes.Active then
        TLstClientes.Refresh
    end;
end;


Desde ya será muy bien recibida cualquier ayuda.

Última edición por chiche_s fecha: 06-01-2011 a las 03:56:41. Razón: No aparecía bien el código
Responder Con Cita
Respuesta



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
Error en el Depurador de Delphi 2007,2009 en win7 64bits Chogo Windows 2 15-08-2018 17:28:03
Evento Delphi 2009 y C++ Builder 2009 en Guadalajara y Mexico con David poliburro Noticias 14 15-09-2008 02:03:58
Error: Unsupported 16bits resource in file xxx.dfm kukinn Varios 2 26-05-2004 17:00:30
Error en Applyupdates() de ClientDataSet con TIbQuery y Delphi 7 jmoran Conexión con bases de datos 1 16-07-2003 19:47:03
Error -901 (feature is not supported) en Interbase Sebastian_LP Firebird e Interbase 5 27-06-2003 06:37:20


La franja horaria es GMT +2. Ahora son las 00:48:05.


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