Error: IBQuery: cannot modify a read-only dataset

[agustinbus]

Realice los cambios en los campos de la tabla Mesas y cambie el codigo que quedo de la siguiente manera:

var
  CompName:String;
  comp : TComponent;
  ctrl : TControl;
begin
  QMesas.First;
  while not QMesas.Eof do
    begin

      CompName := QMesasCODIGO.Value;
      comp := Self.FindComponent(CompName);
      if Assigned(comp) then
        begin
          SelectOnRunTime1.SelectControl := TControl(comp);
          //SelectOnRunTime1.Selected := True;
          ctrl := SelectOnRunTime1.SelectControl;
        end;
      with QMesas do
        begin
          Close;
          SQL.Clear;
          SQL.Add('UPDATE MESAS SET ANCHO = :ANC, PERSONAS = :PER, ALTO = :ALT, ARRIBA = :ARR, IZQUIERDA = :IZQ ');
          SQL.Add('WHERE CODIGO = :COD');
          ParamByName('ANC').Value := ctrl.Width;
          ParamByName('ALT').Value := ctrl.Height;
          ParamByName('PER').Value := ctrl.Tag;
          ParamByName('IZQ').Value := ctrl.Left;
          ParamByName('ARR').Value := ctrl.Top;
          ParamByName('COD').Value := Form1.QMesasCODIGO.Value;
          ExecSQL;
          Open;
          Next;
        end;
    end;

Pero al realizar la actualizacion no se guardan los cambios. Firebird me esta dando dolores de cabeza!

[ecfisa]

Hola Agustin.

Supongamos que tu tabla está declarada así:

Código SQL [-]
CREATE TABLE MESAS (
  CODIGO     CODIGO CHAR(6),
  ANCHO      INTEGER,
  PERSONAS   INTEGER,
  ALTO       INTEGER,
  ARRIBA     INTEGER,
  IZQUIERDA  INTEGER
);

Con este código tiene que modificar correctamente:

Código Delphi [-]
...
  with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE MESAS SET ANCHO = :ANC, PERSONAS = :PER, ');
    SQL.Add('ALTO = :ALT, ARRIBA = :ARR, IZQUIERDA = :IZQ ');
    SQL.Add('WHERE CODIGO = :COD');
    ParamByName('ANC').Value := 100;
    ParamByName('ALT').Value := 100;
    ParamByName('PER').Value := 100;
    ParamByName('IZQ').Value := 100;
    ParamByName('ARR').Value := 100;
    ParamByName('COD').Value := '000001';
    ExecSQL;
  end;
...

Un saludo.

[agustinbus]

Mi amigo Ecfisa, muchas gracias!, voy a guardar tu ejemplo en mi biblioteca de codigos. Cambie de componentes y ahora utilizo zeos, porque ellos me permiten realizar los insert y Updates con los metodos .Insert y .Edit que me resultan mas familiares.

Te agradezco mucho por darle una solucion a mi problema. Casimiro muchas gracias tambien!!

[ecfisa]

Hola Agustín.

Me alegra que hayas solucionado el problema .

Aunque no he usado los Zeos (escuché buenos comentarios sobre ellos), el componente TIBDataSet de los IBX como te comenté en el mensaje ( #4 ), también permite el uso de Insert, Edit, Post,...

Un saludo.

[agustinbus]

Muchas gracias se me paso por alto! Saludos!