Перемещение строк в таблице (Access)

[chinara]

Привет!!!
Люди,очень прошу,помогите...Я уже 2 дня пытаюсь сделать одну вещь,но никак она у меня не получается...((
Хочу на форме с таблицей (БД Access) сделать две кнопки - move up и move down - для перемещения строк в таблице.
Огромное всем спасибо!Жду..

[mihali4]

Взаимно меняйте у них значение ключевого поля.
А вообще - затея бредовая.
Как вы собираетесь менять их местами после сортировки по какому-нибудь другому полю ?

[chinara]

Спасибо за идею
А я вообще не буду делать сортировку.

[Serge_Bliznykov]

Взаимно меняйте у них значение ключевого поля.

ну это нарушение всех мыслимых и немыслимых норм. Категорически не рекомендую!

А вот рекомендую добавить числовое поле, назвать его, например OrderTag
и туда писать число, какая эта запись должна быть по порядку.
Вот тогда строчку переместить вверх - это поменять значение полей OrderTag у текущей записи и у предыдущей записи (кстати, ID этой записи можно получать даже SQL запросом).

ну и не забывать при выборке данных указывать сортировку по этому полю:
select.... order by OrderTag

От Михалыча:
Именно первое поле - идентификатор записи, я и имел в виду, потому как не представляю себе таблицу без поля ID

[chinara]

А можно обойтись без SQL-кодов...??
Реализовать это на чистом паскале(delphi)??

[Serge_Bliznykov]

да воля Ваша:
методы датасета .First .Next .Prev
свойства .isEmpty .Eof .Bof
возможно, метод поиска .locate()
помогут Ваш решить задачу без использования SQL запросов.

p.s. а Вот указывать сортировку по этому полю обязательно прийдётся!
иначе всё остальное бессмыслено!

[_SERGEYX_]

Я делал что-то подобное, не меняя ключевых полей... вот, нашел...

procedure MoveRow(DataSet: TDataSet; MoveUp: Boolean);
var bmOld, bmNew: TBookmark;
  v_new, v_old: array[0..50] of Variant;
  i: Integer;
begin
  with Dataset do
  begin
    bmOld := GetBookmark;
    for i := 0 to FieldCount - 1 do
    if Fields[i].DataType <> ftAutoInc then v_old[i] := Fields[i].AsVariant;
    if MoveUp then Prior else Next;
    if (Eof) or (Bof) then Exit;
    bmNew := GetBookmark;
    for i := 0 to FieldCount - 1 do
    if Fields[i].DataType <> ftAutoInc then v_new[i] := Fields[i].AsVariant;

    Edit;
    for i := 0 to FieldCount - 1 do
    if Fields[i].DataType <> ftAutoInc then Fields[i].AsVariant := v_old[i];
    Post;
    GotoBookmark(bmOld);
    Edit;
    for i := 0 to FieldCount - 1 do
    if Fields[i].DataType <> ftAutoInc then Fields[i].AsVariant := v_new[i];
    Post;
    GotoBookmark(bmNew);
  end;
end;

//вверх
procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
  MoveRow(ADOTable1, True);
end;

//Вниз
procedure TForm1.RzBitBtn2Click(Sender: TObject);
begin
  MoveRow(ADOTable1, False);
end;

Но, имхо, лучше sql-запросом поменять местами сортировочное поле, как Serge_Bliznykov написал.