Fórum Gerenciar fila no banco de dados #523924

var
  IdOrigem, OrdemOrigem,  IdDestino, OrdemDestino: integer;

begin
  //antecipando a tarefa de uma registro selecionado
  IdOrigem:=TabelaID.AsInteger;
  OrdemOrigem:=TabelaOrdem.AsInteger;
  
  Query.Close;
  Query.Sql.Clear; //eu utilizo firebird entao eu uso first 1 para pegar so um registro, se for mysql é limit 1 no final do codigo
  Query.Sql.Add('Select first 1 id, ordem from tabela where ordem <:ordem order by order ordem');
  Query.ParamByName('ordem').AsInteger:=OrdemOrigem;
  Query.open;
  
  if not Query.isEmpty then //verifica se ta vazio, pq se tiver nao podemudar a ordem
  begin
    idDestino:=Query.Fields[0].AsInteger; //pega o id
    OrdemDestino:=Query.Fields[1].AsInteger; //pega a ordem

     //atualizando a nova ordem do registro anterior
    Query.Close;
    Query.Sql.Clear;
    Query.Sql.Add('Update tabela set ordem = :ordem');
    Query.Sql.Add('where id = :id');
    Query.ParamByName('ordem').AsInteger;=OrdemOrigem; // aqui eu informo a ordem do registro q eu quero alternar
    Query.ParamByName('id').AsInteger;=IdDestino; 
    Query.ExecSQL;

     //atualizando a nova ordem do registro atual
    Query.Close;
    Query.Sql.Clear;
    Query.Sql.Add('Update tabela set ordem = :ordem');
    Query.Sql.Add('where id = :id');
    Query.ParamByName('ordem').AsInteger;=OrdemDestino; // aqui eu informo a ordem do registro q eu quero alternar
    Query.ParamByName('id').AsInteger;=idOrigem; 
    Query.ExecSQL;
  end;
 
end;