Delphi - update

Hola a todos tengo un pequeno problemita necesito hacer un update sencillito de una tabla pero no se hace con este codigo que teng, no me marca error, y al ver los valores que va tomando mis variables si son valores correctos, y al parecer se ejecuta correctamente solo que al hacerle un select a la tabla no se ve reflejado el update,Mi amigo ezequiel me ayudo con esta rutina, no soy muy experimentada en esto de la programacion en delphi y agradeceria de antemano su ayuda. Saludos

fdev:=now;
query4.prepare;
Query4.sql.text :='update '+Tabla+' set banfec=1 ,fecrep=:fdev where agencia=:agencia and ano=:ano and folio=:folio and tipo_caso=:tipo_caso';
Query4.prepare;
query4.params[0].value:=fdev;
query4.params[1].value:=agencia;
query4.params[2].value:=ano;
query4.params[3].value:=folio;
query4.params[4].value:=tipo_caso;
fdev:=now;
agencia:= query1.FieldValues['agencia'];
ano:= query1.FieldValues['ano'];
folio:= query1.FieldValues['folio'];
tipo_caso:= query1.FieldValues['tipo_caso'];
query4.ExecSQL;

Sacale los prepare, y pruebalo así, es raro qu no funcione, no esta haciendo commit.

asi es no hace el commit, ya le quite los prepare pero ni aun asi lo hace

Prueba asi, por ahi le faltan correcciones, tu codigo mismo puede estar confundiendote.
//Asumo que las variables Tabla, fdev, agencia, ano, folio, tipo_caso
//ya se cargaron, y que son strings, sino en vez de %s usas %d

Query4.SQL.Add(Format('UPDATE %s SET banfec = 1, frecrep = %s ' +
'WHERE agencia = %s AND ano = %s AND folio = %s AND tipo_caso = %s',
[Tabla, DateToStr(fdev), agencia, ano, folio, tipo_caso]);
Query4.ExecSQL(False);
Prueba este y avisas cualquier cosa.

No funciono, es una situacion muy rara porque como te digo veo los valores que esta tomando el query y el commit no lo realiza, quisiera probar utilizando algun procedimiento almacenado que haga este update y yo nomas enviarle los datos por parametro pero no tengo la menor idea de como hacerlo, haber si asi funciona, porque no tengo otra idea de como llevarlo a cabo

Hola buen dia!!!!

Ya lo habia modificado asi como me comentas, pero aun asi no me guarda los valores que le envio en el update, verifico que cada una de las variables que le estoy pasando al query esten tomando los valores que debe ser y todo esta correcto, y no marca error ni nada simplemente no me hace el update, la verdad no se que pueda ser lo he consultado con varias personas y todos me han dicho que el codigo esta bien.

Haaa Feo gracias por tu ayuda y tu comentario de dedicarme a otra cosa ( por cierto fuera de lugar), pero cuando tu estabas aprendiendo estoy segura que se te presentaron problemas y no por eso desististe o te dedicas a otra cosa???????? haaa y cuando tenga problemas de inseguridad referente a mi profesion o lo que me dedido seguro consultare un foro de psicologos no de programadores

Gracias y saluditos a todos por su ayuda!!!!

Probaste hacien un active := false y despues active := true de la tabla en uso?
Saludos y siempre hay algun comentario fuera de lugar
Sdos

No sé si aún requieras la ayuda, pero puedes intentar esto:

fdev:=now;
agencia:= query1.FieldValues['agencia'];
ano:= query1.FieldValues['ano'];
folio:= query1.FieldValues['folio'];
tipo_caso:= query1.FieldValues['tipo_caso'];
try
Query4.sql.text :='update '+Tabla+' set banfec=1 ,fecrep=:fdev where agencia=:agencia and ano=:ano and folio=:folio and tipo_caso=:tipo_caso';
query4.params[0].value:=fdev;
query4.params[1].value:=agencia;
query4.params[2].value:=ano;
query4.params[3].value:=folio;
query4.params[4].value:=tipo_caso;
if not Query4.Prepared then
Query4.Prepare;
query4.ExecSQL;
finally
Query4.Unprepare;
end;

Espero que te sirva.

Saludos.