Foros Club Delphi - Table1:Datase not in Edit o Insert Mode

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Table1:Datase not in Edit o Insert Mode (https://www.clubdelphi.com/foros/showthread.php?t=9118)

Table1:Datase not in Edit o Insert Mode

Por favor, ya no se que hacer, parece mentira, estoy tratando de hacer un pequeño proceso que me cambiara el valor de un campo en todos los registros de una tabla o sea que solo quiero que se le asigne un valor en especifico a todos los registro en ese campo, para esto pongo en el form un TTable, un TDatabase y un boton que me ejecutará el código, y en este pongo el siguiente código:

Código:

procedure TForm1.Button1Click(Sender: TObject);



Var

a:Integer;



begin

  Database1.Connected:=True;

  Table1.Active:=true;

  Table1.Edit;

  Table1.CachedUpdates:=True;

  Table1.First;

For a:=1 to Table1.RecordCount do

Begin

  Table1.FieldByName('Estado').Value:='Pendiente';

  Table1.Post;

  Table1.Next;

end;

  Table1.ApplyUpdates;

end;

Y al tratar de ejecutarlo me envía el error mencionado en el encabezado del mensaje, ¿que es lo que me falta?, ¿por que si le estoy poniendo Table1.Edit, no me lo respeta?, cual es mi error???

Gracias.

Hola.

El Table1.Edit lo tienes que hacer sobre cada registro a modificar, por tanto lo tienes que poner justo antes de la linea en que modificas el campo.

Saludos.

Yeeesss¡¡¡ si funcionó¡¡ muchas gracias... no se me vuelve a olvidar...

Por si te interesa JamesBond (si no, por favor ¡no dispares! :D ) creo que la actualización que haces podría ser más sencilla y eficiente usando un Query:

Código:

Query1.SQL.Text = 'update tabla set Estado = pendiente';

Query1.ExecSQL;

// Saludos