guardar dato siempre en el mismo registro

[microbiano]

haber haber como que no entiendes que asignarle al set?, creo que primero deberiamos pasar por un manual de sql jejejejeje.


yo lo hago asi espero te sirva.

Código Delphi [-]
with Form_modulo.Qry_Temp do
              begin
                SQL.Clear;
                SQL.Add('update agenda set tipo=:Ptipo');
                SQL.Add(',unidadcompradora=:Punidad');
                SQL.Add(',descripcion=:Pdescripcion');
                SQL.Add(',DePreconvocatoria=:Pdepreconv');
                SQL.Add(',HastaPreconvocatoria=:PHastaPreconvocatoria');
                SQL.Add(',Repcepcion=:PRepcepcion');
                SQL.Add(',RecepcionHora=:PRecepcionHora');
                SQL.Add(',Fallo=:PFallo');
                SQL.Add(',FalloHora=:PFalloHora');
                SQL.Add(',Ejercicio=:PEjercicio');
                SQL.Add(',status=:Pstatus');
                SQL.Add(',Claves=:PClaves');
                SQL.Add(',Importe=:PImporte');
                sql.Add('Where id=:Pid');
                Parameters.ParamByName('Ptipo').Value:=self.cbb_tipo.ItemIndex;
                Parameters.ParamByName('Punidad').Value:=Self.txtunidad.Text;
                Parameters.ParamByName('Pdescripcion').Value:=Trim(Self.txtnotas.Text);
                Parameters.ParamByName('Pdepreconv').value:=int(Self.dtpFechaPreIni.Date);
                Parameters.ParamByName('PHastaPreconvocatoria').Value:=int(self.dtpFechaPreFin.Date);
                Parameters.ParamByName('PRepcepcion').Value:=Int(self.dtpFecharecp.Date);
                Parameters.ParamByName('PRecepcionHora').Value:=timetostr(self.dtpHoraRecep.Time);
                Parameters.ParamByName('PFallo').Value:=Int(self.dtpFechaFallo.Date);
                Parameters.ParamByName('PFalloHora').Value:=TimeToStr(self.dtpHoraFallo.Time);
                Parameters.ParamByName('PEjercicio').Value:=Trim(Self.txtejercicio.Text);
                Parameters.ParamByName('PStatus').Value:=Self.cbb1.Text;
                Parameters.ParamByName('PClaves').Value:=Int(Self.txtclaves.Value);
                Parameters.ParamByName('PImporte').Value:=Self.txtimporte.Value;
                Parameters.ParamByName('Pid').Value:=Self.widentificador;
                try
                  ExecSQL;
                  Application.MessageBox('Las Modificaciones se Realizarón Exitosamente en la Adjudicación',PChar(Application.Title), MB_OK + MB_ICONINFORMATION);
                  limpiar;
                  botones(0);
                  Exit;
                except
                  on e:EOleException do
                    begin
                      MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
                      Exit;
                    end;  
                end;

              end;

adaptalo a lo que necesitas