error al actualizar un registro por segunda vez

[@-Soft]

hola

estoy el el proceso de desarrollo de un software con delphi7, bde, paradox y tquery. al momento de yo insertar y modificar no tengo problemas, pero al momento de actualizar un mismo registro por segunda vez consecutivo me da el siguiente error:

Couldn't perform the edit because another user changed the record.

y esto solo pasa cuando trabajo con TQuery, si uso TTable no hay problemas pero no me actualiza sino hasta que cierro y abro el dataset. entonces que puedo hacer para que este error no me aparesca este error.

Salu2

[nemesio]

Hola

Si trabajas con TTable, debes hacer un Post después de la inserción o Modificación. En el Evento AfterPost del Ttable, coloca : NombreTabla.FlushBuffers; esto te va permitir que se actualice la tabla sin necesidad de cerrarla.
Si trabajas con TQuery y te da ese error podría ser porque no estás cerrando la consulta antes.
Debes tener la siguiente sintaxis:

Query1.Close;
Query1.SQL.Add('........');//tu sql para la modificacion
Query1.ExecSQL;
Query1.Open;
Si estas haciendo eso y persiste el error, entonces envía el código para ver donde está el detalle.

[marcoszorrilla]

Código Delphi [-]
 Query1.Close;
 Query1.SQL.Add('........');//tu sql para la modificacion
 Query1.ExecSQL;
//o
 Query1.Open;

Nemesio supongo que quieres decir que utilice ExecSql u Open dependiendo de que la consulta se de acción o de selección.

Un Saludo.

[nemesio]

Si Marcos, gracias por el detalle.

[@-Soft]

hola

pues el metodo que estoy usando es normal como si fuera un TTable, pero con TQuery

Código Delphi [-]
qObservaciones.Open;
   qObservaciones.Append;
   qObservacionesComp_id.Value         := fMenu.vCodCompany;
   qObservacionesPeri_id.Value         := fMenu.vPeriodo;
   qObservacionesEmat_matricula.Value  :=   qEstuSuspendidosemat_matricula.Value;
   qObservacionesSecc_id.Value         := qEstuSuspendidossecc_id.Value;
   qObservacionesObse_tipo_observ.Text := 'SUSPENDIDO';
   qObservacionesObse_observacion.Text := memObservacion.Lines.Text;
   qObservacionesUsua_usuario.Value    := fMenu.vUserLogin;
   qObservacionesObse_fecha_alta.Value := Date;
   qObservaciones.Post;
   qObservaciones.ApplyUpdates;
   qObservaciones.Close;

[nemesio]

Hola

De esa forma no lo vas a hacer, tienes que hacerlo por medio de una consulta de acción y pasarle los parámetros.

Código Delphi [-]
Query1.Close;
Query1.SQL.Add('........');//tu sql para la modificacion
Query1.ParamByName('Campo1').Value:=Edit1.Text;
...
..

Query1.ExecSQL;
//o
Query1.Open;